Duda sobre horas

[marcos1979]

Hola, soy bastante principiante en VB y tengo este problema:
El usuario debe ingresar dos horas en el formato 0 a 23 sin importar los minutos, una es la hora de inicio y la otra la hora de fin. El tema es que debo saber si la hora actual esta entre esas dos horas, por ej:

HoraInicio = 22
HoraFin = 04
HoraActual = 01

¿Como hago a saber si esta entre las dos horas indicadas?

Repito que no me importan ni los minutos ni la fecha solo la hora en ese formato, asi es ingresada por el usuario, como un numero entre 00 y 23. La hora actual es la del reloj del sistema.

Gracias

Otro duda es como hacer que se reinicie la aplicacion. Es que debe reiniciarce despues de hacer algun tipo de cambio en la configuracion de la misma y no se como se hace.

Muchas gracias otra vez

[reel]

Código:

Hour (Time())

Te devolverá la hora actual del ordenador.

Y estoy prueba lo que necesitas.

Código:

If HActual >= HIni And HActual <= HFin Then
........

Saludes.

[marcos1979]

eso es lo primero que probe pero como dije el formato es de dos digitos 00 a 23 y en el caso del ejemplo anterior no andaria:

HActual = 01
HIni = 22
HFin 04

[reel]

HActual = CInt(Format(Time, "hh"))

[marcos1979]

el problema no es pasar la hora actual a una variable en el formato que yo quiero sino saber si esta entre dos horas dadas. Se entiende??

[reel]

Pues tu dices que probastes con el if que puse el pos, pues debe de funcionarte, lo única forma que falle ese if es que no estes tratando con el tipo de dato correcto, asegurate que la comparacion se hagas con tipos de datos Integer, porque si el tipo de datos es String no funcionara.

Te sugiero que convertas las oras tomadas con CInt para que estes seguro que la comparación se haga con ese tipo de datos.

[aavg]

Dale una leida en la ayuda de vbasic MSDN a la funcion TIMEVALUE() , ahi encuentras la solucion a tu problema

podrias utilizar algo asi...

If TimeValue(Time) >= TimeValue(Hora_Inicio) And TimeValue(Time) <= TimeValue(Hora_Final) Then

y con eso debe bastar =)