fpcdocs/sysutex/ex2.pp


1
2
3
4
5
6
7
8
9

Program Example2;

{ This program demonstrates the DateTimeToFileDate function }

Uses sysutils;

Begin
  Writeln ('FileTime of now would be: ',DateTimeToFileDate (Now));
End.