mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 01:51:49 +01:00
20 lines
498 B
ObjectPascal
20 lines
498 B
ObjectPascal
Program Example4;
|
|
|
|
{ Program to demonstrate the LocalToEpoch function. }
|
|
|
|
Uses linux;
|
|
|
|
Var year,month,day,hour,minute,second : Word;
|
|
|
|
begin
|
|
Write ('Year : ');readln(Year);
|
|
Write ('Month : ');readln(Month);
|
|
Write ('Day : ');readln(Day);
|
|
Write ('Hour : ');readln(Hour);
|
|
Write ('Minute : ');readln(Minute);
|
|
Write ('Seonds : ');readln(Second);
|
|
Write ('This is : ');
|
|
Write (LocalToEpoch(year,month,day,hour,minute,second));
|
|
Writeln (' seconds past 00:00 1/1/1980');
|
|
end.
|