[Overview][Types][Procedures and functions][Variables][Index] Reference for unit 'unixutil' (#rtl)

LocalToEpoch

Convert local time to epoch (unix) time

Declaration

Source position: unixutil.pp line 45

function LocalToEpoch(

  year: Word;

  month: Word;

  day: Word;

  hour: Word;

  minute: Word;

  second: Word

):LongInt;

Description

Converts the Local time to epoch time (=Number of seconds since 00:00:00, January 1, 1970).

Errors

None

See also

EpochToLocal

  

Convert epoch time to local time

Example

Program Example4;

{ Program to demonstrate the LocalToEpoch function. }

Uses UnixUtil;

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.

Documentation generated on: Sep 28 2017