mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 18:49:24 +02:00
14 lines
253 B
ObjectPascal
14 lines
253 B
ObjectPascal
Program Example13;
|
|
|
|
{ This program demonstrates the FileDateToDateTime function }
|
|
|
|
Uses sysutils;
|
|
|
|
Var
|
|
ThisAge : Longint;
|
|
|
|
Begin
|
|
Write ('ex13.pp created on :');
|
|
ThisAge:=FileAge('ex13.pp');
|
|
Writeln (DateTimeToStr(FileDateToDateTime(ThisAge)));
|
|
End. |