RosettaCodeData/Task/Date-format/Delphi/date-format.pas

2 lines
100 B
ObjectPascal

ShowMessage(FormatDateTime('yyyy-mm-dd', Now) +#13#10+ FormatDateTime('dddd, mmmm dd, yyyy', Now));