Find nearest day of week

[mikeopolo]

I'm developing a routine to group sales transactions by week numbers, and then group those into reporting months on qa 4-4-5 basis.

1st problem: given a date value, how would I find the nearest Saturday?

so:

ldDate1 = ctod("31/03/2008")
ldSaturday = ?????

Regards
Mike

 

[TheRambler]

Assuming Saturday is DOW() = 7 then next Saturday would be:

SET DATE DMY
ldDate1 = CTOD("31/3/2008")
ldSaturday = ldDate1 + 7 - DOW(ldDate1)

 

[Mike Lewis]

Assuming Saturday is DOW() = 7 ....

And, if Saturday isn't day 7 (perhaps because the user has set something different in Control Panel), a small mod to TheRambler's code will fix it:

ldSaturday = ldDate1 + 7 - DOW(ldDate1[b],1[/b])

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[cricket]

Nearest Saturday could precede the date.
Question does not specify NEXT Saturday

 

[baltman]

cricket - add:

IF ldSaturday - ldDate1 > 3
  ldSaturday = ldSaturday -7
ENDIF

 

[mikeopolo]

Thank you to all four contributors, that's the solution I require!

Regards
Mike