//Function: Converttoutime-converts DIL TO Unix Time

//Calculate the Unix time equlvalent OR the DIL time Input parameter

//Unix time 1s aimply the number of seconds since 1970-01-01-00: 00

//Rev1310n:04-22-2015

//n1t1a113e

#SecsPerDay :=24*60*60;

//Number of seconds for year component

#YearSecs := (#Time.YEAR - 1970) * 365 * #SecsPerDay;

//Number of leap year days (excluding year 2000)

#LeapDays := TRUNC_USINT(#Time.YEAR - 1972) / 4;

#LeapYear := ((#Time.YEAR - 1972) MOD 4 = 0) AND (#Time.YEAR <> 2000);

//Number of seconds for leap year component excluding January, February of leap year19 OIE (Leapyear AND #Time. MONTH <3) THEN

IF (#LeapYear AND #Time.MONTH<3) THEN

? ? #LeapSecs := (#LeapDays - 1) * #SecsPerDay;

ELSE

? ? #LeapSecs := #LeapDays * #SecsPerDay;

END_IF;

? //Number of seconds for month component

CASE #Time.MONTH OF

? ? 1:

? ? ? ? #MonthSecs := 0;

? ? ? ? ;

? ? 2:

? ? ? ? #MonthSecs := 31 * #SecsPerDay;

? ? ? ? ;

? ? 3:

? ? ? ? #MonthSecs := (31 + 28) * + #SecsPerDay;

? ? ? ? ;

? ? 4:

? ? ? ? #MonthSecs := (31 + 28 + 31) * #SecsPerDay;

? ? ? ? ;

? ? 5:

? ? ? ? #MonthSecs := (31 + 28 + 31 + 30) * #SecsPerDay;

? ? ? ? ;

? ? 6:

? ? ? ? #MonthSecs := (31 + 28 + 31 + 30 + 31) * #SecsPerDay;

? ? ? ? ;

? ? 7:

? ? ? ? #MonthSecs := (31 + 28 + 31 + 30 + 31 + 30) * #SecsPerDay;

? ? ? ? ;

? ? 8:

? ? ? ? #MonthSecs := (31 + 28 + 31 + 30 + 31 + 30 + 31) * #SecsPerDay;

? ? ? ? ;

? ? 9:

? ? ? ? #MonthSecs := (31 + 28 + 31 + 30 + 31 + 30 + 31 + 31) * #SecsPerDay;

? ? ? ? ;

? ? 10:

? ? ? ? #MonthSecs := (31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30) * #SecsPerDay;

? ? ? ? ;

? ? 11:

? ? ? ? #MonthSecs := (31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31) * #SecsPerDay;

? ? ? ? ;

? ? 12:

? ? ? ? #MonthSecs := (31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + 30) * #SecsPerDay;

END_CASE;

? ?//Number of seconds for day component

#DaySecs := #Time.DAY * #SecsPerDay;

? ?//Number of seconds for hour component

#HourSecs:=USINT_TO_UDINT(#Time.HOUR)*60* 60;

? ?//Number of seconds for minute component

#MinSecs := USINT_TO_UDINT(#Time.MINUTE) * 60;

? ?//Sum individual components

#UnixTime := #YearSecs + #LeapSecs + #MonthSecs + #DaySecs + #HourSecs + #MinSecs + #Time.SECOND;