? CTOT(TimeToStr(DATETIME()))
? CTOT(TimeToStr(DATE()))
? CTOT(TimeToStr({}))
function TimeToStr
lparameter ttTime
local lcReturn
if empty(m.ttTime)
	lcReturn='{/ :}'
else
	lcReturn=(transform(ttoc(m.ttTime,1), "@R 9999/99/99T99:99:99"))
endif
return m.lcReturn