Visual Basic - Un Reto para Expertos

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Un Reto para Expertos

Publicado por Cesar (39 intervenciones) el 14/09/2002 09:22:28
Necesito saber cuento tiempo falta para un evento (x) solo especificando cuantas horas, minutos y segundos más despues del NOW.
vHasta = Time (pongamos que... "11:47:02")
vDesde = cdate("10:30:57")
vFalta = Con Datediff("x",a,b) no me ha funcionado)

Por favo, AYUDA, no le encuento como me puede presentar una cuenta regresiva que me indique cuantas horas, minutos y segundos me latan para terminar un proceso x.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Un Reto para Expertos

Publicado por Mauro (67 intervenciones) el 15/09/2002 08:36:32
Public Function TiempoDiff(HoraInicio As Date, HoraFin As Date) As String
Dim Hor As Integer, Min As Integer, Seg As Integer
Hor = Hour(HoraFin) - Hour(HoraInicio)
Min = Minute(HoraFin) - Minute(HoraInicio)
Seg = Second(HoraFin) - Second(HoraInicio)
If Seg < 0 Then Seg = Seg + 60: Min = Min - 1
If Min < 0 Then Min = Min + 60: Hor = Hor - 1
If Seg = 60 Then Min = Min + 1
If Min = 60 Then Hor = Hor + 1
TiempoDiff = Hor & ":" & Min & ":" & Seg
End Function

No lo probe, pero creo que esta bien
suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

crea una clase

Publicado por Hely (39 intervenciones) el 18/09/2002 00:46:36
o mejor un ocx

usa un timer que contabilize y vaya restando
y MAGIA !! cuando tiempDif sea igual a X
RaiseEvent

[email protected]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar