* Build string for display on screen dDate = {^2001/12/25} cString = "Christmas is on " cString2 = FormatDate(dDate,"C") ? cString + cString2 RETURN
* Format date LPARAMETERS tdDate, tcFormat DO CASE CASE tcFormat = "C" cString = CMONTH(tdDate) + " " + STR(DAY(tdDate)) ... ENDCASE RETURN cStringNow what gets displayed by this code when run;
* Build string for display on screen LOCAL cString, cString2 dDate = {^2001/12/25} cString = "Christmas is on " cString2 = FormatDate(dDate,"C") ? cString + cString2 RETURN
* Format date LPARAMETERS tdDate, tcFormat LOCAL cString DO CASE CASE tcFormat = "C" cString = CMONTH(tdDate) + " " + STR(DAY(tdDate)) ... ENDCASE RETURN cStringWhat gets displayed now?
* Clock PUBLIC dDate dDate = DateTime() RETURNand we alter our other progrms to use this new program
* Build string for display on screen LOCAL cString, cString2 dDate = {^2001/12/25} cString = "Christmas is on " * update clock on screen Clock() WAIT WINDOW TTOT(dDate) cString2 = FormatDate(dDate,"C") ? cString + cString2 RETURN
* Format date LPARAMETERS tdDate, tcFormat LOCAL cString DO CASE CASE tcFormat = "C" cString = CMONTH(tdDate) + " " + STR(DAY(tdDate)) ... ENDCASE RETURN cStringSo when is christmas in this code?