21/01/2009, 13:38
|
 | | | Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 20 años, 6 meses Puntos: 19 | |
| Respuesta: Trabajar con tiempos
Código:
Dim Hora1 As Variant
Dim Hora2 As Variant
Dim Hora3 As Variant
Dim Diferencia1 As Variant
Dim Diferencia2 As Variant
Dim Suma As Variant
Hora1 = "00:25:00"
Hora2 = "01:50:00"
Hora3 = "03:30:00"
Diferencia1 = Format(TimeValue(Hora2) - TimeValue(Hora1), "hh:mm:ss")
Diferencia2 = Format(TimeValue(Hora3) - TimeValue(Hora2), "hh:mm:ss")
Suma = Format(TimeValue(Diferencia1) + TimeValue(Diferencia2), "hh:mm:ss")
MsgBox "DIFERENCIA 01: " & Diferencia1 & vbNewLine & "DIFERENCIA 01: " & Diferencia2 & vbNewLine & "SUMA DE DIFERENCIAS: " & Suma
|