in reply to Getting Day Of Month
use Date::Manip; my @dayOfWeek = qw(Sunday Monday Tuesday Wednesday Thursday Friday Sat +urday); my ( $month, $day, $year ) = ( 5, 25, 2002 ); my $day = &Date_DayOfWeek( $month, $day, $year ); print $dayOfWeek[ $day ];
And no doubt somebody is going to look that date up and say that it is not a Monday... =8-)According to Date::Manip, it's a Saturday :)
Cheers,
Ovid
Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: (Ovid) Re: Getting Day Of Month
by danger (Priest) on Jan 03, 2001 at 01:22 UTC |