Function LocalToEpoch (Year,Month,Day,Hour,Minute,Second : Word) : longint;
Converts the Local time to epoch time (=Number of seconds since 00:00:00 , January 1, 1970 ).
None
GetEpochTime, EpochToLocal, GetTime,GetDate
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.