No: of weeks in a month

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: No: of weeks in a month by Anonymous Monk on Sep 13, 2012 at 11:45 UTC
The question you ask is ambiguous: September 2013 begins on a Saturday and ends the following Sunday ... how many weeks, to you, is that? You might say six, or you might say four. Date-calculation routines are available in abundance on CPAN, but first you must nail-down the exact meaning of the question for you. See for example Date::Calc, Date::Manip for the math heavy-lifting.	[reply]
Re^2: No: of weeks in a month by DrHyde (Prior) on Sep 13, 2012 at 12:58 UTC
Or you might say 30/7 == 4 and 2/7. You might even say 5, if your definition of a week being in a month is that it begins in that month - those being the weeks beginning on the 2nd, 9th, 16th, 23rd and 30th.	[reply]
Re^2: No: of weeks in a month by daxim (Curate) on Sep 13, 2012 at 13:32 UTC
The question you ask is ambiguous No, it isn't. We have a standard that defines what a week is.	[reply]
Re^3: No: of weeks in a month by grumbert (Scribe) on Sep 13, 2012 at 14:30 UTC
But that ISO standard has no definition of what defines weeks per month. A week is clearly defined but not how it relates to the entity of the month. I think it's safe to assume that the OP meant it to be the number of weeks that either fall completely within the month and those that are transected by the beginning and end of the month.	[reply]
Re: No: of weeks in a month by grumbert (Scribe) on Sep 13, 2012 at 11:25 UTC
I assume you are interested in the number of calendar weeks a month straddles rather than a simplified "February has 28 days so only 4 weeks in February..." I don't really know of a module that gives that answer but Date::Calc has a Week_of_Year function which you could utilise (use it on first and last day of the month , then subtract the weeknumbers and add one), which should give you the number you're looking for...	[reply]
Re^2: No: of weeks in a month by Anonymous Monk on Sep 13, 2012 at 11:41 UTC
Thanks for the reply :) will try that.	[reply]
Re: No: of weeks in a month by Anonymous Monk on Sep 13, 2012 at 07:33 UTC
Welcome, I will guide you The Perl Monks Guide to the Monastery `[weeks in month]` -> no results, uh-oh `brain .oO( what is a week? what is a month? )` Hmm, a week is seven days A month is 28 to 31 days Hmm, days in month , divided by seven, equals weeks in month `[day in month]` -> day in month -> weeks in month -> Calculating latest 'Sunday' date on the first of the month, Determining the dayname for the last day of any given month, how can i find number of days in a given year and month I am finished	[reply] [d/l] [select]
Re^2: No: of weeks in a month by bimleshsharma (Beadle) on Sep 13, 2012 at 11:16 UTC
Hmm, I am trying to explain. `my %daysinmonth=(Jan=>31,Feb=>30,Mar=>31,Apr=>30,May=>31,Jun=>30,Jul=> +31,Aug=>31,Sep=>30,Oct=>31,Nov=>30,Dec=>31); $weeks_count= $daysinmonth{enteryourmonth}/7; $day_count= $daysinmonth{enteryourmonth}-($weeks_count*7); print "Only $weeks_count weeks in $daysinmonth{enteryourmonth} month";` [download] enjoy!!!	[reply] [d/l]
Re^2: No: of weeks in a month by Anonymous Monk on Sep 13, 2012 at 11:49 UTC
I have asked for some specific date module which help in this calculation	[reply]
Re^3: No: of weeks in a month by DrHyde (Prior) on Sep 13, 2012 at 12:57 UTC
DateTime is the Swiss army chainsaw of date calculations.	[reply]