* 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
>