blob: 80aed8633a43e2c85309c500954326e5e478ba2a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
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.
|
