RE:como doy formato a una hora
Publicado por
Carlos G. (1 intervención) el 28/10/2007 17:41:12
Aqui te mando como lo he resuelto yo de dos formas diferentes. La primera es la mas sencilla. Espero que sea esto lo que ibas buscando.
'ESTE ES UN MÉTODO DIRECTO PARA RESTAR HORAS
Private Sub Command1_Click()
'Vamos a restar 9:45:05 AM con 15:40:00 PM
Text1.Text = TimeSerial(9 - 15, 45 - 40, 5 - 0)
End Sub
'SEGUNDA FORMA DE HACERLO
Private Sub Command2_Click()
Dim Horas As Long
Dim Minutos As Long
Dim Segundos As Long
Dim S As Long
S = Abs(DateDiff("s", #9:45:05 AM#, #3:40:00 PM#)) 'Restamos las 2 horas y nos da el resultado en segundos "s"
Print S; " segundos"
'Pasamos los segundos a horas y nos quedamos con la parte entera
'(21295seg = 21295/3600 = 5,915277777 horas ===> 5 horas)
Horas = S \ 3600 'División sin decimales "\" (parte entera)
'Pasamos la parte decimal de las horas a minutos y nos quedamos con la parte entera
' (0,915277777 horas * 60min/hora = 54,9166666 min ===> 54minutos)
Minutos = Int((S / 3600 - Horas) * 60)
'Pasamos la parte decimal de los minutos a segundos y nos quedamos con la parte entera
'(0,91666666 min * 60 seg/min = 55 seg)
Segundos = (((S / 3600 - Horas) * 60) - Minutos) * 60
Text2.Text = Horas & " horas " & Minutos & " minutos " & Segundos & " segundos "
End Sub