programador01
16 de Junio del 2006

Estoy haciendo un pequeño sistema en el que necesito obtener el TIEMPO que una persona permanece en x lugar. congelando talvez el tiempo de entrada en un textbox y luego tambien el de salida en otro textbox.
¿puede ayudarme el timer de la barra de obgetos?¿como?
mil gracias de antemano .

acemel
16 de Junio del 2006

'creo q no te hace falta el timer
Dim Segundos1, Minutos1, Horas1 As Byte
Dim Segundos, Minutos, Horas As Byte
Dim Fecha As Variant

'cuando quieras iniciar la cuenta
Fecha = Now
Segundos1 = Second(Fecha)
Minutos1 = Minute(Fecha)
Horas1 = Hour(Fecha)
'al finalizar la cuenta
Fecha = Now
Segundos = Second(Fecha) - Segundos1
Minutos = Minute(Fecha) - Minutos1
Horas = Hour(Fecha) - Horas1
Text1.Text = Str(Horas) + "horas " + Str(Minutos) + "minutos " + Str(Segundos) + "segundos"

programador01
16 de Junio del 2006

mil gracias por tu ayuda lo pondre en practica y segun lo analizo funcionara muy bien gracias.