3
{ Program to demonstrate the LocalToEpoch function. }
7
Var year,month,day,hour,minute,second : Word;
10
Write ('Year : ');readln(Year);
11
Write ('Month : ');readln(Month);
12
Write ('Day : ');readln(Day);
13
Write ('Hour : ');readln(Hour);
14
Write ('Minute : ');readln(Minute);
15
Write ('Seonds : ');readln(Second);
17
Write (LocalToEpoch(year,month,day,hour,minute,second));
18
Writeln (' seconds past 00:00 1/1/1980');