Date first and last day of week given week and year

[jdbolt]

Hi,

I need a way to get the last and first day of teh week given a week and year number, 45 (week) and 2005 (year) for example.

Could any provide insight into how this might be done?

 

[TrojanWarBlade]

Check out Date::Manip and Date::Calc on cpan.


Trojan.

 

[jdbolt]

yeah I have that module installed, I was hoping someone could give me some ideas on how to solve the problem,

 

[PaulTEG]

Have you read the docs for the modules?

Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[MrSm1th]

use Date::Calc qwall);
use Date::Calendar;

($year,$month,$day) = Today();
my ($sec,$min,$hour,$mday,$mon,$year,
$wday,$yday,$isdst) = localtime time;
$year += 1900;
$mon++;
$week = int(($day + Day_of_Week($year,$month,1) - 2) / 7) + 1;
$dow = Day_of_Week($year,$month,$day);
$DayOfWeek = Day_of_Week_to_Text($dow);

Example:
($month == 11 && $week == 4 && $DayOfWeek eq "Thursday") && do{ # Thanksgiving Day

Hope this helps.