Calculo intervalo de tiempo VB 6

[Panxo]

Hola a tod@s:

Alguien sabria explicarme cual es el código a utilizar para calcular el tiempo que transcurre entre dos eventos generados por el usuario.

Concretamente lo que necesito es saber el tiempo que transcurre entre que el usuario hace click en un boton comando y otro botón comando.

el código q he intentado es este, pero la resta de los dos tiempos ( tiempo2 - tiempo1) me da como resultado cero siempre.

Private Sub Form_Load()
Dim tiempo1 As Byte
Dim tiempo2 As Byte
Dim tempo As Byte

End Sub

Private Sub Command1_Click()
tiempo1 = Time


Private Sub Command2_Click()
tiempo2 = Time

Call tiemp

End Sub

Public Sub tiemp()
tempo = (tiempo2) - (tiempo1)
Text1.Text = tempo

End Sub

gracias por adelantado y un saludo

[_Lucifer_]

Hola.
En primer lugar no deberías usar una variable de tipo byte para almacenar la hora, ya que esta es de tipo real, deberías usar double o single ya que la hora te la retorna en ese formato, trata de averiguar un poco mas en internet al respecto.

Saludos

[niroblock]

hola

confirmo esto:
"En primer lugar no deberías usar una variable de tipo byte para almacenar la hora" de lucifer

efectivamente un byte no puede contener de ninguna manera una hora dato que supera las 255 cifras decimales permitidas es demaciado pequeña
en C se suele utilizar un array de una o mas dimenciones

pero un byte es siempre un byte sea el leguaje que sea

aky tienes un documento de microsoft en castellano para

solucionar tu problema

http://support.microsoft.com/kb/111268/es

espero te sirva.

ciao.

[pablosop]

Estoy resolviendo el mismo problema ya que quiero ver las horas de espera entre que entra un camion a planta y la hora actual.

Private Sub Command2_Click()
Dim t0 As Variant, t1 As Variant
t0 = now(Text, "hh:mm:ss")
t1 = Format(Text2, "hh:mm:ss")
Label = Format(TimeValue(t0) - TimeValue(t1), "hh:mm:ss")
End Sub

El problema surge cuando la hora almacenada en text2 es del dia anterior.
Si alguien puede ayudarme...de antemano gracias.

PabloSop