PLC090419_1

//Find number of leap years upto last year NoofLeapYears := 0; FOR LeapYearCheck := INT#1972 TO (Year - 1) DO IF LeapYearCheck MOD 4 = 0 THEN NoofLeapYears := NoofLeapYears + 1; END_IF; END_FOR; //Find number of non-leap years NoofNonLeapYears := Year - INT#1970 - NoofLeapYears; //Determine this year is a leap year CurrentYearIsLeapYear := Year MOD (4) = 0; //Seconds to last complete year NoofSecondsToLastYear := (NoofSecondsPerLeapYear * NoofLeapYears) + (NoofSecondsPerYear * NoofNonLeapYears); //Start calculating number of seconds this year - start with days NoofCompleteDaysThisYear := 0; FOR Loop := 1 TO Month - 1 DO NoofCompleteDaysThisYear := NoofCompleteDaysThisYear + DaysPerMonthLookup[Loop]; END_FOR; //Add on 29th Feb IF CurrentYearIsLeapYear THEN IF Month > 2 THEN NoofCompleteDaysThisYear := NoofCompleteDaysThisYear + 1; END_IF; END_IF; DaysThisYearAsSeconds := (NoofCompleteDaysThisYear + INT_TO_LINT(Day) - LINT#1) * NoofSecondsPerDay; //Seconds in the hours of today HoursThisDayAsSeconds := INT_TO_LINT(Hour) * NoofSecondsPerHour; //Seconds in the minutes of this hour MinutesThisHourAsSeconds := INT_TO_LINT(Minute) * NoofSecondsPerMinute; SecondsThisMinuteAsSeconds := INT_TO_LINT(Second); //Combine DateTimeNow := LINT_TO_DT(NoofSecondsToLastYear + DaysThisYearAsSeconds + HoursThisDayAsSeconds + MinutesThisHourAsSeconds + SecondsThisMinuteAsSeconds); 47137886-f538-4d4f-998c-4aa015179f3f