Foro - Perl en Español

por **alcidesalarcon** » 2007-12-04 16:40 @736

Hola compañeros...

¿Cómo puedo comparar si la hora actual hora está dentro de un rango?

El ejemplo sería:

Código: Seleccionar todo: HorarioAtencionInicial = 09:00 HorarioAtencionFinal = 18:00

Entonces, necesito saber si la hora que ejecuto el script entra en ese rango de horario.

Sería:

Código: Seleccionar todo: Si (HorarioAControlar >= HorarioAtencionInicial y HorarioAControlar <= HorarioAtencionFinal) return VERDADERO SINO return FALSO FIN-SI

Desde ya muchas gracias.

Saludos.

#!/usr/bin/perl

$HorarioAtencionInicial='09:00';
$HorarioAtencionFinal='18:00';

sub dentro_del_rango {
my$HorarioAControlar=shift;

return
$HorarioAControlargt$HorarioAtencionInicial
and
$HorarioAControlarlt$HorarioAtencionFinal
}

my@horas=qw(

    16:24

    09:42

    03:00
);

foreachmy$hora(@horas){

print"$hora ";

if(not dentro_del_rango($hora)){
print'no ';
}

print"está dentro del rango\n";
}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Código: Seleccionar todo: 16:24 está dentro del rango 09:42 está dentro del rango 03:00 no está dentro del rango

por **Jenda** » 2007-12-04 20:28 @894

Y para obtener la hora actual, bien escrita, se puede usar localtime() y sprintf().

Foro - Perl en Español

Comparar horas

Comparar horas

Publicidad

localtime() y sprintf()

¿Quién está conectado?