Wordclock/timecore.lua

local M
do

--Summer winter time convertion
--See: https://arduinodiy.wordpress.com/2015/10/13/the-arduino-and-daylight-saving-time/
--
--As October has 31 days, we know that the last Sunday will always fall from the 25th to the 31st
--So our check at the end of daylight saving will be as follows:
--if (dow == 7 && mo == 10 && d >= 25 && d <=31 && h == 3 && DST==1)
--{
--setclockto 2 am;
--DST=0;
--}
--
--To start summertime/daylightsaving time on the last Sunday in March is mutatis mutandis the same:
--if (dow == 7 && mo == 3 && d >= 25 && d <=31 && h ==2 && DST==0)
--{
--setclockto 3 am;
--DST=1;
--}

-- @fn isSummerTime(year, month, day, hour, minute, second,dow)
-- The @param time is a struct containing the following entries:
-- @var year      Current year of day       range (2016 - ...)
-- @var month     Current month of year     range (1 - 12) e.g. 2 is Februrary
-- @var day       Current day in month      range (1 - 31)
-- @var hour      Current hour of day       range (0 - 23)
-- @var minute    Current minute in hour    range (0 - 59)
-- @var second    Current second of minute  range (0 - 59)
-- @var dow       Current day of week       range (1 - 7)   (1 is Monday, 7 is Sunday)
-- @return <code>true</code> if we have currently summer time
-- @return <code>false</code> if we have winter time
local function isSummerTime(time)
  -- we are in 100% in the summer time
  if (time.month > 3 and time.month < 10) then 
    return true
  -- March is not 100% Summer time, only starting at the last sunday
  elseif ((time.month == 3 and time.day >= 25 and time.day <= 31 and time.hour > 2 and time.dow == 7) or
          -- Only handle days after the last sunday in this month
          ((time.month == 3 and time.day >= 25 and time.day <= 31 and time.dow < 7 and ((7-time.dow + time.day) > 31))) ) then
   -- summer time
   return true
  -- October is not 100% Summer time, ending with the last sunday
  elseif ((time.month == 10 and time.day >= 25 and time.day <= 31 and (time.hour < 2 ) and time.dow == 7) or
          (time.month == 10 and time.day >= 25 and time.day <= 31 and time.dow < 7 and ((7-time.dow + time.day) <= 31)) or 
           -- Handle all days up to the 25. of october
           (time.month == 10 and time.day < 25 )
           )then
   -- summer time
   return true
  end
  -- otherwise it must be winter time
  return false
end

----------------------------------------------------------
-- Here comes some code to extract the year, month, day, hour, minute, second and day of week of a unix timestamp

-- Source:
-- http://www.jbox.dk/sanos/source/lib/time.c.html

local YEAR0=1900

local EPOCH_YR=1970
--SECS_DAY=(24L * 60L * 60L)
local SECS_DAY=86400

local ytab = {}
ytab[0] = {}
ytab[1] = {}
ytab[0][0] = 31
ytab[0][1] = 28
ytab[0][2] = 31
ytab[0][3] = 30
ytab[0][4] = 31
ytab[0][5] = 30
ytab[0][6] = 31
ytab[0][7] = 31
ytab[0][8] = 30
ytab[0][9] = 31
ytab[0][10] = 30
ytab[0][11] = 31
ytab[1][0] =  31
ytab[1][1] = 29
ytab[1][2] = 31
ytab[1][3] = 30
ytab[1][4] = 31
ytab[1][5] = 30
ytab[1][6] = 31
ytab[1][7] = 31
ytab[1][8] = 30
ytab[1][9] = 31
ytab[1][10] = 30
ytab[1][11] = 31


local leapyear = function(year)
    return  ( not ((year) % 4 ~= 0) and (((year) % 100 ~= 0) or not ((year) % 400 ~= 0)))
end

local yearsize = function(year)
 if leapyear(year) then
  return 366
 else
  return 365
 end
end

local function getUTCtime(unixtimestmp)
  local year = EPOCH_YR
  local dayclock = math.floor(unixtimestmp % SECS_DAY)
  local dayno = math.floor(unixtimestmp / SECS_DAY)

  local sec = math.floor(dayclock % 60)
  local min = math.floor( (dayclock % 3600) / 60)
  local hour = math.floor(dayclock / 3600)
  local dow = math.floor( (dayno + 4) % 7) -- Day 0 was a thursday

  while (dayno >= yearsize(year))
  do
    dayno = dayno - yearsize(year);
    year=year + 1
  end
  --Day in whole year: local yday = dayno (Not needed)
  local mon = 0
  while (dayno >= ytab[leapyear(year) and 1 or 0][mon])
  do
      dayno = dayno - ytab[leapyear(year) and 1 or 0][mon];
      mon = mon + 1
   end
   local mday = dayno + 1

  return { year = year, month = (mon+1), day = mday, hour = hour, minute = min, second = sec, dow = dow }
end


local getTime = function(unixtimestmp, timezoneoffset)
    local time = getUTCtime(unixtimestmp + (3600 * timezoneoffset))
    if ( isSummerTime(time) ) then
        time = getUTCtime(unixtimestmp + (3600 * (timezoneoffset + 1)) )
    end
    return time
end
-- Pack everything into a module
M = {
    getTime = getTime
}
end
return M