Visual Basic - Minutos, Horas, Dias

Life is soft - evento anual de software empresarial
 
Vista:

Minutos, Horas, Dias

Publicado por Lirquen (roberto) (6 intervenciones) el 26/08/2003 17:03:35
Hola Amigos, necesito ayuda, estoy haciendo un sistema en RR.HH, y tengo una tabal on las ausencia del personal, donde tengo un campo que guarda los datos de los atrasos en minutos mensual (ejm. 715 minutos), ahora este datos lo muestro en el sistema, pero tambien necesito mostrarlo como dias, o sea los minutos pasarlos a dias, para saber cuantos dias en atraso tiene la persona, si hay alguien que me pueda ayudar,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Minutos, Horas, Dias

Publicado por Juan (284 intervenciones) el 26/08/2003 17:56:12
Prueba este código a ver si te orienta:

Private Sub Form_Click()
Dim minTotales As Long, aux As Long
Dim dias As Long, horas As Long, minutos As Long
minTotales = CLng(InputBox("Inserta el nº de minutos"))
dias = minTotales \ 1440
aux = minTotales - (dias * 1440)
horas = aux \ 60
minutos = aux Mod 60
MsgBox CStr(minTotales) & " minutos son " & CStr(dias) & " dias, " & CStr(horas) & " horas y " & CStr(minutos) & " minutos."
End Sub

Para probarlo sólo tienes que copiarlo, ejecutar el proyecto y hacer click en el formulario.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Minutos, Horas, Dias

Publicado por Lirquen (roberto) (6 intervenciones) el 26/08/2003 18:56:21
gracias juan.. era justo lo que necesitaba, saludos desde chile
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar