Problems? Is your data what you think it is? PerlMonks

### Re^2: Determing Week Ranges between given date range?

 on Oct 12, 2010 at 17:20 UTC ( #864909=note: print w/replies, xml ) Need Help??

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) {
days => (\$dow1 + (7 - \$week_s->dow()) % 7,
);
...

Cheers,
Matt

Replies are listed 'Best First'.
Re^3: Determing Week Ranges between given date range?
by ikegami (Pope) 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 );
Sort of...actually, I cribbed that code from something I had lying around -- that code was designed around the convention of 0=Mon, 1=Tue, etc. But I forgot, oops.

After fixing that assumption, this also works (closer to the form I originally used). 0=Sun, 1=Mon ... :

```     days => (\$first_dow + (6 - \$week_s->dow())) % 7
Thanks for spotting it.

Cheers,
Matt

Yeah, that's functionally equivalent, but I wanted to keep the two halves of the equation separate (calculating the last day of the week and calculating the number of days until the last day of the week). In mine, (\$first_dow + 6) can be replaced with \$last_dow.

Create A New User
Node Status?
node history
Node Type: note [id://864909]
help
Chatterbox?
 [haukex]: Discipulus: which one do you mean? [haukex]: Ah I see... looks like "under construction" or something :-)

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (10)
As of 2018-06-22 08:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Should cpanminus be part of the standard Perl release?

Results (122 votes). Check out past polls.

Notices?