>I've written the following to mimic the Clipper function:
>
>

><STRONG>
>FUNCTION ampm
>    LPARAMETERS cTime
>    DO CASE
>        CASE cTime > '12'
>            cTime = STR(VAL(SUBSTR(cTime,1,2))-12,2) + SUBSTR(cTime,3,3) + ' pm'
>        CASE cTime = '12'
>            cTime = STR(VAL(SUBSTR(cTime,1,2))   ,2) + SUBSTR(cTime,3,3) + ' pm'
>        OTHERWISE
>            cTime = STR(VAL(SUBSTR(cTime,1,2))   ,2) + SUBSTR(cTime,3,3) + ' am'
>    ENDCASE
>    RETURN cTime
></STRONG>
>

>
>The problem is that this function is not recognized while the program is running...
>
>I 'watch' DTOC(DATE())+" "+AMPM(TIME()) in the debugger and it says "Expression could not be evaluated" but I can type ? DTOC(DATE())+" "+AMPM(TIME())in the command window and it prints fine ?!?!?!?!?!?
>
>How can this be? What's the difference?
>
>TIA
>
>Larry
Larry,
Too much work for AMPM (BTW I think there is a scope problem there).

cOldSysFormat = set("sysformat") 
nOldHours = set("hours")
cOldDateFormat = set("date")
set sysformats off
set date to dmy
set hours to 12
cTime = ttoc(datetime())
set hours to &nOldHours
set sysformat &cOldSysFormat
set date to &cOldDateFormat
return cTime

Cetin