Perl - Operaciones Fechas

 
Vista:

Operaciones Fechas

Publicado por Susana (1 intervención) el 25/06/2001 22:22:25
Hola, agradecería información sobre las operaciones con fechas, y mas concretamente como resolver lo siguiente:

$fIni = "01012001"; # formato ddmmyy
$ffin = "31122001";
$dia = "16072001";

while ($fIni < $fFin){
if ($fIni = $dia){
print "lo encontre\n";
}

$fIni++;
}
...
$fIni = $fIni + Un dia
$fIni = $fIni + Un Mes
$fIni = $fIni + Un Año
...
Como saber los dias de un mes
Como saber el dia de la semana
Como saber las semanas del mes
Cuando es bisiesto
De momento no se me ocurren mas :-)

Un beso a todos, Susana.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Operaciones Fechas

Publicado por Pato (3 intervenciones) el 26/06/2001 19:09:12
para utilizar fechas puedes utilizar lo siguiente:

fecha();
$f="$year-$mon-$day";
print "fecha:$f\n";

sub fecha{
($daynyear,$year,$mon,$day,$hour,$min,$sec)=(localtime(time)) [7,5,4,3,2,1,0];
$mon++;
$year=$year+1900;
if ($mon > 12){
$mon=0;}

para saber si un año es bisiesto, trata con esto:
$year % 4 == 0 && (( $year % 100 ) != 0 || ( $year % 400 ) == 0)

donde $year contiene el año, puede crear una funcion...asi

sub Bisiesto
{
my $year;
return ( $year % 4 == 0 && (( $year % 100 ) != 0 || ( $year % 400 ) == 0));
}
luego la invocas..

al parecer no puedes sumar fechas como lo que mencionaste en tus preguntas


Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar