ABCdatos
ABCdatos tu página de inicio Inicio       

restar horas

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

Moderador: Moderadores

Notapor 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
jose felix
Novat@
 
Mensajes: 2
Registrado: Mar Ago 06, 2002 1:00 am

restar fechas y horas

Notapor 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
Avatar de Usuario
anominus
 


Volver a Programación

¿Quién está conectado?

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

Creado con phpBB3 © 2000, 2002, 2005, 2007 Grupo phpBB
Copyright © 1999-2014 ABCdatos.com. Todos los derechos reservados.
Aviso legal. Políticas de privacidad y cookies.
Contactar con ABCdatos.