Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Previous week date range
Message
From
02/05/2013 13:58:12
 
 
To
02/05/2013 12:35:48
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP3
Network:
Windows 2008 Server
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01572482
Message ID:
01572522
Views:
35
Thanks Rick!

>>Hi guys,
>>
>>I need the previous week date range (mon-sun), for example if I run the program today thursday 5/2/2013, it will return the range for the previous week 4/22 - 4/28, I will run the program on mondays so if I would have ran it this monday would have returned 4/22 - 4/28 as well. I need to get the date range from 2 weeks ago as well.
>>
>>Thanks!
>
>
>
* Test the prior week functionality
>ldPriorWeekStart = DATE() && Set to any bogus date
>ldPriorWeekEnd = DATE() && Set to any bogus date
>
>? getPriorWeek(DATE() - 0, @ldPriorWeekStart, @ldPriorWeekEnd), ldPriorWeekStart, ldPriorWeekEnd
>? getPriorWeek(DATE() - 1, @ldPriorWeekStart, @ldPriorWeekEnd), ldPriorWeekStart, ldPriorWeekEnd
>? getPriorWeek(DATE() - 2, @ldPriorWeekStart, @ldPriorWeekEnd), ldPriorWeekStart, ldPriorWeekEnd
>? getPriorWeek(DATE() - 3, @ldPriorWeekStart, @ldPriorWeekEnd), ldPriorWeekStart, ldPriorWeekEnd
>? getPriorWeek(DATE() - 4, @ldPriorWeekStart, @ldPriorWeekEnd), ldPriorWeekStart, ldPriorWeekEnd
>? getPriorWeek(DATE() - 5, @ldPriorWeekStart, @ldPriorWeekEnd), ldPriorWeekStart, ldPriorWeekEnd
>? getPriorWeek(DATE() - 6, @ldPriorWeekStart, @ldPriorWeekEnd), ldPriorWeekStart, ldPriorWeekEnd
>? getPriorWeek(DATE() - 7, @ldPriorWeekStart, @ldPriorWeekEnd), ldPriorWeekStart, ldPriorWeekEnd
>
>cancel
>
>* Compute the week ago, then to the beginning of the week
>* Call with ldDate, @ldPriorWeekStart, @ldPriorWeekEnd
>FUNCTION getPriorWeek
>LPARAMETERS tdDate, tdPriorWeekStart, tdPriorWeekEnd
> tdPriorWeekStart = tdDate - 6 - DOW(tdDate) + 0 && If you want Monday as starting day of week, change "+0" to "+1"
> tdPriorWeekEnd = tdPriorWeekStart + 6
> RETURN tdDate
>

Previous
Reply
Map
View

Click here to load this message in the networking platform