Do something like:
use Time::Local; # part of std perl
my $MySecs = timelocal( 0, 0, 12, 1, $month-1, $year );
# ^--- seconds
# ^--- minutes
# ^--- hours
# Note: By using noon then you don't have to be concern about daylight
savings switch
my @MyTime = localtime($MySecs);
$MyTime[6] will be the day of the week with Sun=0 thru Sat = 6
Wags ;)
-----Original Message-----
From: Glenn Cannon [mailto:[EMAIL PROTECTED]]
Sent: Thursday, November 15, 2001 10:37
To: [EMAIL PROTECTED]
Subject: Day of the month
Given the month and the year, how can I derive what day the first landed on?
Glenn Cannon
[EMAIL PROTECTED]
Level II Certified DCI Judge
'There is no spoon.'
www.eventsbeyondbelief.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
