モジュール:Calendar
このモジュールについての説明文ページを モジュール:Calendar/doc に作成できます
--[[
__ __ _ _ ____ _ _
| \/ | ___ __| |_ _| | ___ _ / ___|__ _| | ___ _ __ __| | __ _ _ __
| |\/| |/ _ \ / _` | | | | |/ _ (_) | / _` | |/ _ \ '_ \ / _` |/ _` | '__|
| | | | (_) | (_| | |_| | | __/_| |__| (_| | | __/ | | | (_| | (_| | |
|_| |_|\___/ \__,_|\__,_|_|\___(_)\____\__,_|_|\___|_| |_|\__,_|\__,_|_|
Maintainers:
* Jarekt
]]
local p = {}
-- Convert "Julian day number" (jdn) to a calendar date
-- "gregorian" is a 1 for gregorian calendar and 0 for Julian
-- based on https://en.wikipedia.org/wiki/Julian_day#Converting_Julian_or_Gregorian_calendar_date_to_Julian_day_number
function p._jdn2date(jdn, gregorian)
local f, e, g, h, year, month, day
f = jdn + 1401
if gregorian>0 then
f = f + math.floor((math.floor((4*jdn + 274277) / 146097) * 3) / 4) - 38
end
e = 4*f + 3
g = math.floor(math.fmod(e, 1461) / 4)
h = 5*g + 2
day = math.floor(math.fmod (h,153) / 5) + 1
month = math.fmod (math.floor(h/153) + 2, 12) + 1
year = math.floor(e/1461) - 4716 + math.floor((14 - month) / 12)
-- If year is less than 1, subtract one to convert from a zero based date system to the
-- common era system in which the year -1 (1 B.C.E) is followed by year 1 (1 C.E.).
if year < 1 then
year = year - 1
end
return string.format('%04i-%02i-%02i', year, month, day)
end
-- Convert calendar date to "Julian day number" (jdn)
-- "gregorian" is a 1 for gregorian calendar and 0 for Julian
-- based on https://en.wikipedia.org/wiki/Julian_day#Converting_Julian_or_Gregorian_calendar_date_to_Julian_day_number
-- explanation based on http://www.cs.utsa.edu/~cs1063/projects/Spring2011/Project1/project1.html
function p._date2jdn(ISOdate, gregorian)
local year, month, day = ISOdate:match( "(-?%d%d%d%d)-(%d%d)-(%d%d)" )
if not year then
return nil
elseif tonumber(year) < 0 then
-- If year is less than 0, add one to convert from the common era system in which
-- the year -1 (1 B.C.E) is followed by year 1 (1 C.E.) to a zero based date system
year = year + 1
end
local a, b, c, d, y, m
a = math.floor((14-month) / 12) -- will be 1 for January and February, and 0 for other months.
y = year + 4800 - a -- years since year –4800
m = month + 12*a - 3 -- month number where 10 for January, 11 for February, 0 for March, 1 for April
c = math.floor((153*m + 2)/5) -- number of days since March 1
if gregorian>0 then
b = math.floor(y/4) - math.floor(y/100) + math.floor(y/400) -- number of leap years since y==0 (year –4800)
d = 32045 -- offset so the result will be 0 for January 1, 4713 BCE
else
b = math.floor(y/4) -- number of leap years since y==0 (year –4800)
d = 32083 -- offset so the result will be 0 for January 1, 4713 BCE
end
return day + c + 365*y + b - d
end
-- Convert a date from Gregorian to Julian calendar
function p.Gregorian2Julian(frame)
local JDN = p._date2jdn(frame.args[1], 1)
if JDN then
return p._jdn2date(JDN, 0)
else
return "Error parsing input date: " .. frame.args[1]
end
end
-- Convert a date from Julian to Gregorian calendar
function p.Julian2Gregorian(frame)
local JDN = p._date2jdn(frame.args[1], 0)
if JDN then
return p._jdn2date(JDN, 1)
else
return "Error parsing input date: " .. frame.args[1]
end
end
-- Return day of week based on gregorian date. Mon->1, Tue->2, ..., Sun->7
function p.DayOfWeek(frame)
local JDN = p._date2jdn(frame.args[1], 1)
local day = math.fmod(JDN, 7) + 1
if day then
local LUT = { "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday" }
return LUT[day]
else
return "Error parsing input date: " .. frame.args[1]
end
end
-- Convert calendar date to "Julian day number" (jdn)
function p.date2jdn(frame)
return p._date2jdn(frame.args[1] or os.date('%F'), frame.args[2] or 1)
end
return p