Help for this page

Select Code to Download


  1. or download this
    $today = &day($mon,$day,$year) ;
  2. or download this
    $today = &day($day,$mon,$year) ;
  3. or download this
    use POSIX       qw( strftime );
use Time::Local qw( timegm   );

print strftime("%a", gmtime(timegm(0, 0, 0, $day, $mon-1, $year)));
  4. or download this
    use POSIX       qw( strftime  );
use Time::Local qw( timelocal );

print strftime("%a", localtime);