Determing Week Ranges between given date range?

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

I'm trying to calculate weekly date ranges (start and end) from a given date range (e.g. April 1, 2010 - October 10, 2010)

I'm hoping there is a module for this.

This is what I would expect to see:

weeks between April 1, 2010 - October 10, 2010 are:
Week 1: April 1, 2010 - April 4, 2010
Week 2: April 5, 2010 - April 11, 2010
...
[download]

Is there an easy way to do this?
Thanks

Comment on Determing Week Ranges between given date range? Download Code

Replies are listed 'Best First'.
Re: Determing Week Ranges between given date range? by ikegami (Patriarch) on Oct 12, 2010 at 16:01 UTC
use strict; use warnings; use DateTime qw( ); my $s = DateTime->new(year => 2010, month => 4, day => 1); my $e = DateTime->new(year => 2010, month => 10, day => 10); my $week_s = $s; my $week_e; my $week_c; while ($week_s <= $e) { # First Sunday on or after $week_s ( $week_e = $week_s->clone() ) ->add( days => 7 - $week_s->dow() % 7 ); $week_e = $e->clone if $week_e > $e; printf("Week %s: %s to %s\n", ++$week_c, $week_s->strftime('%x'), $week_e->strftime('%x'), ); ( $week_s = $week_e->clone() ) ->add( days => 1 ); } [download]	[reply] [d/l]
Re^2: Determing Week Ranges between given date range? by mojotoad (Monsignor) on Oct 12, 2010 at 17:20 UTC
If you want the first day of the week to be something besides Sunday, you can do this: `my $dow1 = 1; # (0-7) ... while ($week_s <= $e) { ($week_e = $week_s->clone())->add( days => ($dow1 + (7 - $week_s->dow()) % 7, ); ...` [download] Cheers, Matt	[reply] [d/l]
Re^3: Determing Week Ranges between given date range? by ikegami (Patriarch) on Oct 12, 2010 at 18:16 UTC
If you want the first day of the week to be something besides Sunday He wants it to be Monday. you can do this: You have an off-by-one error. `my $first_dow = 1; # 0=Sun, 1=Mon, ..., 7=Sun ... # Day before first $first_dow after $week_s ->add( days => ((7 - $week_s->dow()) + ($first_dow + 6)) % 7 );` [download]	[reply] [d/l]
Re^4: Determing Week Ranges between given date range? by mojotoad (Monsignor) on Oct 12, 2010 at 21:54 UTC
Re^5: Determing Week Ranges between given date range? by ikegami (Patriarch) on Oct 12, 2010 at 22:51 UTC
Some notes below your chosen depth have not been shown here
Re^2: Determing Week Ranges between given date range? by Anonymous Monk on Oct 12, 2010 at 17:39 UTC
That is perfect! Thanks	[reply]
Re: Determing Week Ranges between given date range? by Ratazong (Monsignor) on Oct 12, 2010 at 15:23 UTC
I would have a look at Date::Calc. It contains many functions like `Day_of_Week` or `Monday_of_Week` which might be useful for you. HTH, Rata	[reply] [d/l] [select]