project BLF > class Persistence (Progress) > method DisplayDateFormat

function returns character


Parameters


itDateinputdate
icFormatinputcharacter


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.