>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