博圖TIA系統(tǒng)時(shí)間轉(zhuǎn)unix時(shí)間戳
//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;
