Visual Basic - Ayuda Horas

Esta es una nota anterior, por favor si me pueden ayudar ...

Wilfredo:
Hola bueno, soy nuevo en esto, necesito ayuda para lo siguiente:
Es un sistema de reservas para hoteles, el hecho es q despues de que se registre la reserva, esta solo puede estar activa por 12 horas, despues se deben actualizar los datos, y la habitacion q estaba reservada debe aparecer como libre, no se si existe algo como un hilo u algo asi q me permita hacer esto, por favor.... Estoy utilizando VB6 y Access.... Gracias

Compañero:
Usa las funciones DateAdd o DataDiff

Cuando reserves la habitacion graba la fecha y la hora en que fue reservada,´para eso usa la función NOW.

Para que verifiques la vigencia de la reservación pregunta por la hora que se grabó al reservarse, usa la función DateAdd

Dim Reserva As Date ' Declara las variables.
Dim TipoIntervalo As String
Dim Numero As Integer
Dim Msj
TipoIntervalo = "h" ' "h" especifica HORAS como intervalo.
Reserva = Fecha_y_hora_de_reservacion
Numero = 12 'horas que durará la reservacion
If DateAdd(TipoIntervalo, Numero, Reserva) > Now Then
MsgBox "Reservación Cancelada"
Else
MsgBox "Reservación Activa"
End If

Espero te sirva, saludos

Wilfredo (2/10/2006)
Hola, gracias por tu ayuda, pero lo q en realidad quiero es q todo el tiempo se este verificando si ya pasaron las 12 horas, aunque sea cada 5 minutos o algo asi. Necesito algo como un Timer, por favor lo necesito, pues lo que quiero es q cuando una habitacion se habilite cuando haya pasado el tiempo. De antemano gracias....
Si alguien puede ayudarme...

Gracias de antemano

No entiendi...
La misma persona que escribio el mensaje se respondio o que?

Pues como sea creo que se tiene que almacenar (la hora en que la habitacion comenzo a ser utilizada + 12 horas mas), en un timer solo se debe de programar una consulta que debe de ser comparada con la hora actual.

Esta consulta se debe estar realizando siempre con todos y cada una de los registros que contienen una hora almacenada.

Cuando la hora del sistema sea igual a la que esta almacenada en alguno de los registros, se debe liberar la habitacion...

Dim extraccion(3) As String
Dim hora As String
hora = Format(Now, "hh:mm AM/PM")
extraccion(0) = Mid(hora, 1, 2) +12

No estoy muy seguro de que el calculo para almacenar la hora sea el correcto, pero todo lo demas si funciona si es que se hace correctamente.

Hola, en realidad es una pregunta de hace 2 dias mas o menos, el hecho es que lo que quiero es que exista algo asi como un Thread o un Timer, que todo el tiempo este haciendo la consulta, o al menos cada 5 minutos, para realizar la actualizacion, no se si alguien conoce algun componente (pienso q si hay).. por favor una ayuda...

Te digo algo, estas haciendo una peticion medio extraña...
Quiero que existe algo asi como un Timer!!!
Por que no agregar el TIMER predeterminado de VB?

Eso es lo q no se manejar :( ... bueno espero que puedas ayudarme, lo que quiero es que un conjunto de instrucciones se ejecuten automaticamente cada cierto tiempo, mejor si es todo el tiempo, esto para realizar actualizaciones. No se si se entiende ... :(
Por favor una ayuda

Oye, agregame...
Espero poder ayudarte...