function returns character
Parameters
itDate | input | date | |
icFormat | input | character | |
Internal usage
unused
program code (program1/progress.p)
define variable cformat as character case-sensitive no-undo.
cformat = icFormat.
case cformat:
when "d" then return string (day (itDate)).
when "D" then return string (day (itDate),"99").
when "m" then return string(month(itDate)).
when "M" then return string(month(itDate),"99").
when "y" then return string (year(itDate) modulo 100).
when "Y" then return string (year(itDate)).
otherwise return icFormat.
end case.