Obtenir le jour de la semaine d'un jour donné

Publié le 23 août 2007 par Jean-Vincent

Usage: $week_day = &get_week_day($jour,$mois,$annee)

Code :

sub get_week_day {

local($d,$m,$y) = @_;

local($ya,$c);

$y = (localtime(time))[5] + 1900 if ($y eq '');

if ($m > 2) {

$m -= 3;

} else {

$m += 9;

--$y;

}

$c = int($y/100);

$ya = $y - (100 * $c);

$jd = int((146097 * $c) / 4) +

int((1461 * $ya) / 4) +

int((153 * $m + 2) / 5) +

$d + 1721119;

$sem_jour = ($jd + 1) % 7;

return($sem_jour);

}