Obtenir le jour de la semaine d'un jour donné
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...