fpcdocs/olinuxex/ex1.pp


1
2
3
4
5
6
7
8
9
10

Program Example1;

{ Program to demonstrate the GetEpochTime function. }

Uses oldlinux;

begin
  Write ('Secs past the start of the Epoch (00:00 1/1/1980) : ');
  Writeln (GetEpochTime);
end.