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.