DIFERENCIA ENTRE 2 HORAS
Publicado por RODRIGO SALAZAR (9 intervenciones) el 11/04/2009 23:05:14
HOLA YO NUEVAMENTE, LOGRE SACAR LA DIFERENCIA ENTRE DOS HORAS
TODO BIEN HASTA QUE TENGO QUE RESTAR POR EJEMPLO DE 23:00 A 00:30
ES DONDE ME TIRA UN ERROR. ME EXPLICO MEJOR , SI LA HORA 1 ES MAYOR A LA HORA 2 EL RESULATADO ES ERRONEO O BIEN ME ARROJA ERROR
ESTE ES EL CODIGO KE ESTOY OCUPANDO.
(DOS CAJAS DE TEXTO DONDE DIGITO LAS HORAS Y UN LABEL DONDE MUESTRO LA DIFENCIA)
TODO BIEN HASTA QUE TENGO QUE RESTAR POR EJEMPLO DE 23:00 A 00:30
ES DONDE ME TIRA UN ERROR. ME EXPLICO MEJOR , SI LA HORA 1 ES MAYOR A LA HORA 2 EL RESULATADO ES ERRONEO O BIEN ME ARROJA ERROR
ESTE ES EL CODIGO KE ESTOY OCUPANDO.
(DOS CAJAS DE TEXTO DONDE DIGITO LAS HORAS Y UN LABEL DONDE MUESTRO LA DIFENCIA)
1
2
3
4
5
6
7
8
9
10
Dim totsegs As Long
Dim h As Integer
Dim m As Integer
Dim s As Integer
totsegs = DateDiff("S", Text1, Text2)
h = totsegs 3600totsegs = totsegs - (h * 3600)
m = totsegs 60s = totsegs Mod 60Label1 = Format(h) & ":" & Format(m, "00") & ":" & Format(s, "00")
Valora esta pregunta
0