restar horas

Cuestiones y dudas acerca de lenguajes de programación diversos.

Moderador: Moderadores

jose felix
Novat@
Mensajes: 2
Registrado: Mar Ago 06, 2002 1:00 am

Mensaje por jose felix » Mar Ago 06, 2002 5:05 pm

buenas, hay alguna manera de restar dos textbox con contengan horas, es decir saber la diferencia de tiempo entre estos dos, si fuera el caso.


gracias

Avatar de Usuario
anominus

restar fechas y horas

Mensaje por anominus » Mié Ago 21, 2002 3:16 am

Option Explicit


Private Sub Command1_Click()
Dim t0 As Variant, t1 As Variant

'Text1 Tendrá una fecha anterior
'Text2 tendrá la nueva fecha
t0 = DateValue(Text1)
t1 = DateValue(Text2)
Label1 = t1 - t0

End Sub


Private Sub Command2_Click()
Dim t0 As Variant, t1 As Variant

'Text3 Tendrá una hora anterior
Text4 = Format(Now, "hh:mm:ss")
t0 = Format(Text3, "hh:mm:ss")
t1 = Format(Text4, "hh:mm:ss")
Label2 = Format(TimeValue(t1) - TimeValue(t0), "hh:mm:ss")

End Sub


Private Sub Form_Load()
'Para probar la diferencia de fechas
Text1 = DateValue(Now)
Text2 = DateValue(Now + 10)
'
'Para probar la diferencia de horas
Text3 = Format(Now, "hh:mm:ss")
Text4 = Format(Now, "hh:mm:ss")

Command1_Click
Command2_Click
End Sub

Responder

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados