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" LcDay = LcDay + "nd" CASE RIGHT(LcDay, 1) = "3" LcDay = LcDay + "rd" OTHERWISE LcDay = LcDay + "th" ENDCASE LcMonth = CMONTH(LcDate) LcYear = ALLT(STR(YEAR(LcDate))) RETURN(LcDay + " day of " + LcMonth + ", " + LcYear) ENDFUNC