>FUNC Date2String > LPARA ; > LcDate > Local ; > LcDay, ; > LcMonth, ; > LcYear > > LcDay = ALLT(STR(DAY(LcDate))) > DO CASE > CASE RIGHT(LcDay, 1) = "1" .and. LcDay <> "11" > LcDay = LcDay + "st" CASE RIGHT(LcDay, 1) = "2" and LcDay <> "12" > LcDay = LcDay + "nd" CASE RIGHT(LcDay, 1) = "3" and LcDay <> "13" > LcDay = LcDay + "rd" > OTHERWISE > LcDay = LcDay + "th" > ENDCASE > LcMonth = CMONTH(LcDate) > LcYear = ALLT(STR(YEAR(LcDate))) > RETURN(LcDay + " day of " + LcMonth + ", " + LcYear) >ENDFUNC >