mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 11:49:31 +02:00
12 lines
204 B
ObjectPascal
12 lines
204 B
ObjectPascal
Program Example9;
|
|
|
|
{ This program demonstrates the DecodeDate function }
|
|
|
|
Uses sysutils;
|
|
|
|
Var YY,MM,DD : Word;
|
|
|
|
Begin
|
|
DecodeDate(Date,YY,MM,DD);
|
|
Writeln (Format ('Today is %d/%d/%d',[dd,mm,yy]));
|
|
End. |