in reply to Determing Week Ranges between given date range?
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 ); }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Determing Week Ranges between given date range?
by mojotoad (Monsignor) on Oct 12, 2010 at 17:20 UTC | |
by ikegami (Patriarch) on Oct 12, 2010 at 18:16 UTC | |
by mojotoad (Monsignor) on Oct 12, 2010 at 21:54 UTC | |
by ikegami (Patriarch) on Oct 12, 2010 at 22:51 UTC | |
by mojotoad (Monsignor) on Oct 13, 2010 at 06:09 UTC | |
Re^2: Determing Week Ranges between given date range?
by Anonymous Monk on Oct 12, 2010 at 17:39 UTC |
In Section
Seekers of Perl Wisdom