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

# LocalToEpoch (deprecated)

Convert local time to epoch (UNIX) time

## Declaration

Source position: unixutil.pp line 36

`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.