On Tuesday, June 25, 2002, at 07:01 , Johnson, Shaunn wrote:
> ($mday, $mon, $year) = (localtime())[3 .. 5]; have you thought about the off set values of $wday? my ($mday, $mon, $year,$wday) = (localtime())[3 .. 6]; $year += 1900; my $k_mon = $mon + 1; my @day_oh_week = qw/Sun Mon Tues Wens Thur Fri Sat/; print "$mday, $mon, $year,$wday\n"; print "$day_oh_week[0] falls on ", ($mday - $wday) , "\n"; print "$day_oh_week[6] falls on ", ($mday + (6 - $wday)) , "\n"; ciao drieux --- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]