2 lines
100 B
ObjectPascal
2 lines
100 B
ObjectPascal
|
ShowMessage(FormatDateTime('yyyy-mm-dd', Now) +#13#10+ FormatDateTime('dddd, mmmm dd, yyyy', Now));
|