>Hi All,
>
>I’m working on a payroll overtime program and struggling with the following. End user is suppose to give a date range and overtime is calculated accordingly. Our work week starts on Monday.
>
>My question is ,
> If user gives the starting date (MyDate) any thing other than MONDAY, how to find Monday’s date from MyDate ???
>
>Please Help !!!
>
>TIA
>
>- Jeana -
FUNCTION PreviousMonday
LPARAMETER tdDate
LOCAL ldresult
IF DOW(tddate, 1) = 1
ldresult = tdDate - 6
ELSE
ldresult = tdDate - (DOW(tdDate, 1) - 2)
ENDIF
RETURN ldresult
ENDFUNC
George
Ubi caritas et amor, deus ibi est