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?
 [choroba]: Hey [Discipulus]: all is well.. flying home [Eily]: if I had a flying home I would be rather concerned I think

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2018-02-21 17:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
When it is dark outside I am happiest to see ...

Results (285 votes). Check out past polls.

Notices?