--Looks great! --Thanks!
-X -----Original Message----- From: Wagner, David --- Senior Programmer Analyst --- WGO [mailto:[EMAIL PROTECTED]] Sent: Friday, November 22, 2002 12:40 PM To: Johnson, Shaunn; [EMAIL PROTECTED] Subject: RE: Last Wednesday of Month I took at the doc and it states that it comes back empty if not valid. So you could do something like: @last_wednesday = Nth_Weekday_of_Month_Year($new_year,$month,3,5); # start w/ 5th wed of month if (scalar(@last_wednesday)) { # if a value, then 5th wed exists }else { @last_wednesday = Nth_Weekday_of_Month_Year($new_year,$month,3,4); # try 4th Wed } print @last_wednesday, "\n\n"; Wags ;) -----Original Message----- From: Johnson, Shaunn [mailto:[EMAIL PROTECTED]] Sent: Friday, November 22, 2002 09:06 To: [EMAIL PROTECTED] Subject: Last Wednesday of Month Howdy: Can someone clue me in as to how I can get the last Wednesday (or whatever) of the month? I have an example of what *might* work, but I'm not sure how I can use it if, say, there are five Wednesdays in the Month. [snip from code] #!/usr/bin/perl -w use strict; use warnings; use Date::Calc qw(:all); my $month=(localtime())[4]+1; my $year=(localtime())[5]; my $new_year=$year + 1900; my @last_wednesday = Nth_Weekday_of_Month_Year($new_year,$month,3,4); print @last_wednesday, "\n\n"; [/snip code] In the definition of @last_wednesday, if I change ($new_year, $month, 3, 4) to ($new_year, $month, 3, 5), it could return nothing. I'm not sure how to test that. Suggestions? Thanks! -X ********************************************************** This message contains information that is confidential and proprietary to FedEx Freight or its affiliates. It is intended only for the recipient named and for the express purpose(s) described therein. Any other use is prohibited. ****************************************************************
