--[[ DateTime Info ]]--

----------------------------------------
--[[ description:
  -- Show date/time information.
  -- Показ информации о дате/времени.
--]]
----------------------------------------
--[[ uses:
  LuaFAR.
  -- group: Samples.
--]]
--------------------------------------------------------------------------------

----------------------------------------
local logShow = context.ShowInfo

----------------------------------------
local datim = require "Rh_Scripts.Utils.DateTime"

--------------------------------------------------------------------------------
local Info = {}
local SepLine = "─────────────────────"
local DateFmt = "%04d-%02d-%02d"
local TimeFmt = "%02d:%02d:%02d"

local dt = os.date("*t")

--logShow(dt, "os.date")
Info[#Info+1] = "────── os.date ──────"
Info[#Info+1] = (DateFmt.." "..TimeFmt):format(
                 dt.year, dt.month, dt.day, dt.hour, dt.min, dt.sec)
Info[#Info+1] = ("Day of week =   %1d"):format(dt.wday - 1)
Info[#Info+1] = ("Day of year = %03d"):format(dt.yday)

local d = datim.newDate(dt.year, dt.month, dt.day)
--logShow(d, "TDate", "w")
--local d = datim.newDate(1886, 12, 25) -- Check yester year
--local d = datim.newDate(2036, 12, 25) -- Check future year
--local d = datim.newDate(1900, 12, 31) -- Check end of base year
--local d = datim.newDate(1999, 12, 31) -- Check end of base year
--local d = datim.newDate(2000, 01, 01) -- Check start of leap year
--local d = datim.newDate(2000, 12, 31) -- Check end   of leap year
--local d = datim.newDate(2001, 01, 01) -- Check start of base year
--local d = datim.newDate(2012, 12, 31) -- Check end   of leap year
--local d = datim.newDate(2013, 01, 01) -- Check start of base year
--local d = datim.newDate(0000, 01, 01) -- Check start of base year BCE = -1
--local d = datim.newDate(0000, 12, 31) -- Check start of base year BCE = -1
--local d = datim.newDate(-001, 01, 01) -- Check start of base year - 1 BCE
--local d = datim.newDate(-001, 12, 31) -- Check start of base year - 1 BCE
--local d = datim.newDate(0001, 01, 01) -- Check start of base year ACE
--local d = datim.newDate(2013, 03, 04)

local c = d.config
local YearDay   = c:getYearDay(d.y, d.m, d.d)
local EraDay    = c:getEraDay(d.y, d.m, d.d)
local EraMonth  = c:getEraMonth(d.y, d.m)

Info[#Info+1] = "────── TConfig ──────"
Info[#Info+1] = "isLeapYear   = "..tostring(c:isLeapYear(d.y))
Info[#Info+1] = "getLeapDays  = "..("%1d"):format(c:getLeapDays(d.y))
Info[#Info+1] = "getYearDay   = "..("%03d"):format(YearDay)
Info[#Info+1] = "divYearDay   = "..DateFmt:format(d.y, c:divYearDay(d.y, YearDay))
Info[#Info+1] = "getYearWeek  = "..(" %02d"):format(c:getYearWeek(d.y, d.m, d.d))
Info[#Info+1] = "getMonthWeek = "..("  %1d"):format(c:getMonthWeek(d.y, d.m, d.d))
Info[#Info+1] = "getWeekDay   = "..("  %1d"):format(c:getWeekDay(d.y, d.m, d.d))
Info[#Info+1] = "getEraDay    = "..("%d"):format(EraDay)
Info[#Info+1] = "divEraDay    = "..DateFmt:format(c:divEraDay(EraDay))
Info[#Info+1] = "getEraMonth  = "..("%d"):format(EraMonth)
Info[#Info+1] = "divEraMonth  = "..("%04d-%02d"):format(c:divEraMonth(EraMonth))
Info[#Info+1] = SepLine

local t = datim.newTime(dt.hour, dt.min, dt.sec)
--logShow(t, "TTime", "w")

far.Show(unpack(Info))
--------------------------------------------------------------------------------