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

# LocalToEpoch

Convert local time to epoch (unix) time

## Declaration

Source position: oldlinux.pp line 1319

`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

GetEpochTime |  | Return the current unix time
EpochToLocal |  | Convert epoch time to local time
GetTime |  | Return current system time
GetDate |  | Return the system date

## Example

    Program Example4;

    { Program to demonstrate the LocalToEpoch function. }

    Uses oldlinux;

    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: Feb 26 2014