Re: Re: getting the First day of the month

Thanks vroom, When I plug this into a loop I am getting these results . I am confused. They are all Mondays but just not always the first Monday.

foreach my $item (1..12) {
my $year = 2003;
my $month = $item;
my $day = 12;
my ($week,undef)=Week_of_Year($year,$month,$day);
my (undef, $tmpmonth, $firstmonday)=Monday_of_Week($week,$year);
if ($tmpmonth != $month)
{
(undef, undef, $firstmonday)=Monday_of_Week(++$week,$year);
}
[download]

First monday of 1/2003 is 6
First monday of 2/2003 is 10
First monday of 3/2003 is 10
First monday of 4/2003 is 7
First monday of 5/2003 is 12
First monday of 6/2003 is 9
First monday of 7/2003 is 7
First monday of 8/2003 is 11
First monday of 9/2003 is 8
First monday of 10/2003 is 6
First monday of 11/2003 is 10
First monday of 12/2003 is 8

Comment on Re: Re: getting the First day of the month Download Code

Replies are listed 'Best First'.
(jeffa) 3Re: getting the First day of the month by jeffa (Bishop) on Aug 03, 2003 at 00:49 UTC
I see now. You want a list of 12 dates, each one the first Monday of the month. Personally, i am not a huge fan of Date::Calc, and prefer Time::Piece and DateTime. Here is some code that uses the latter: use strict; use warnings; use DateTime; my $year = DateTime->now->year; for my $month (1..12) { my $dt = DateTime->new(year => $year, month => $month); $dt->add(days => 1) until $dt->day_of_week == 1; printf "First monday of %02d/%d is %s\n", $dt->month, $dt->year, $dt->day, ; } __END__ First monday of 01/2003 is 6 First monday of 02/2003 is 3 First monday of 03/2003 is 3 First monday of 04/2003 is 7 First monday of 05/2003 is 5 First monday of 06/2003 is 2 First monday of 07/2003 is 7 First monday of 08/2003 is 4 First monday of 09/2003 is 1 First monday of 10/2003 is 6 First monday of 11/2003 is 3 First monday of 12/2003 is 1 [download] (psst ... that was pzbagel you replied to, not vroom ;)) jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l]
Re: Re: Re: getting the First day of the month by pzbagel (Chaplain) on Aug 03, 2003 at 01:25 UTC
Ummm, first off my name is pzbagel, not vroom. Secondly, $day should be set to 1 and not 12 as you have set it. That is why you are getting the wrong Monday in your loop. Change $day to 1 and you will be set.	[reply]