Module:Keppel date

Converts the current (or provided) date to a Keppel date. Used by Template:Keppel date.

Formula

\begin{aligned} y_\oplus &= \text{Earth year} \\ d_\oplus &= \text{Earth day of year (fractional)} \\ d_{\oplus_\text{max}}(y_\oplus) &= \begin{cases} 366 & (y_\oplus = 0 \pmod{4} \text{ and } y_\oplus \neq 0 \pmod{100}) \text{ or } y_\oplus = 0 \pmod{400} \\ 365 & \text{otherwise} \end{cases} \\ \text{offset}(y_\oplus) &= d_{\oplus_\text{max}}(y_\oplus) - 287 \\ d_{\text{K}_\text{max}}(y_\text{K}) &= \begin{cases} 391 & y_\text{K} = 65 \pmod{239} \text{ and } y_\text{K} = 2 \pmod{4} \\ 390 & y_\text{K} = 65 \pmod{239} \text{ or } y_\text{K} = 2 \pmod{4} \\ 389 & \text{otherwise} \end{cases} \\ y_\text{K}(y_\oplus) &= y_\oplus - 892 \\ y_\text{K} &= \begin{cases} y_\text{K}(y_\oplus) & d_\oplus - \text{offset}(y_\oplus) \geq \frac{d_{\oplus_\text{max}}(y_\oplus)}{d_{\text{K}_\text{max}}(y_\text{K}(y_\oplus))} \\ y_\text{K}(y_\oplus) - 1 & d_\oplus - \text{offset}(y_\oplus) < \frac{d_{\oplus_\text{max}}(y_\oplus)}{d_{\text{K}_\text{max}}(y_\text{K}(y_\oplus))} \end{cases} \\ d_\text{K} &= (\frac{d_\oplus - \text{offset}(y_\oplus)}{d_{\oplus_\text{max}}(y_\oplus)} \times d_{\text{K}_\text{max}}(y_\text{K}) - 1) \bmod{d_{\text{K}_\text{max}}(y_\text{K})} + 1 \\ L_\text{K} &= \lfloor \frac{d_\text{K} - 1}{32} \rfloor + 1 \\ d_{\text{K}_L} &= \lfloor (d_\text{K} - 1) \bmod{32} \rfloor + 1 \end{aligned}

---

local p = {}

-- libraries
local getArgs = require('Module:Arguments').getArgs
local yesno = require('Module:Yesno')

-- leap year checks
local function isEarthLeapYear(year)
	-- every 4 years
	-- except for every 100 years
	-- except for every 400 years
	return (year % 400 == 0) or (year % 100 ~= 0 and year % 4 == 0)
end

local function isKeppelLeapYear1(year)
	-- every 4 years beginning on year 2
	return year % 4 == 2 
end

local function isKeppelLeapYear2(year)
	-- every 239 years beginning on year 65
	return year % 239 == 65
end

-- lythryd number to name map
local lythryds = {
	'Liliyogh',
	'Avonslau',
	'Bovvilag',
	'Haelaidhe',
	'Gildorne',
	'Glausonn',
	'Ludervinn',
	'Auvhlaus',
	'Yahataidh',
	'Serelakkan',
	'Frosma',
	'Tegeirukk',
	'Intercal'
}

-- date converter (date = {year = number, yday = number})
function p.convertDate(date)
	-- maximum amount of days in a year (Earth)
	local ydayMaxEarth = isEarthLeapYear(date.year) and 366 or 365
	-- maximum amount of days in a year (Keppel)
	local ydayMax = 389
	if isKeppelLeapYear1(date.year) then ydayMax = ydayMax + 1 end
	if isKeppelLeapYear2(date.year) then ydayMax = ydayMax + 1 end
	-- rollover offset
	local rolloverOffset = isEarthLeapYear(date.year) and 79 or 78

	-- Keppel year and yday
	local year = date.year - 892
	local ydayPre = (ydayMax * (date.yday - rolloverOffset)) / ydayMaxEarth
	if ydayPre < 0 then
		if isKeppelLeapYear1(date.year) or isKeppelLeapYear2(date.year) then
			year = year - 2
		else
			year = year - 1
		end
	end
	local yday = ydayPre % ydayMax
	if yday >= 0 and yday < 1 then yday = ydayMax end

	-- lythryd
	local lythryd = math.ceil(yday / 32)
	local day = math.floor((yday - lythryd * 32) % 32)

	return {
		year = year,
		lythryd = lythryd,
		day = day
	}
end

function p.invoke(frame)
	local args = getArgs(frame)
	local time
	if args['year'] and args['month'] and args['day'] then
		time = os.time({
			year = args['year'],
			month = args['month'],
			day = args['day']
		})
	elseif args['time'] then
		time = args['time']
	elseif args[1] then
		time = args[1]
	else
		time = os.time()
	end

	local date = os.date('!*t', time)
	return p.convertDate(date)	
end

function p.main(frame)
	local args = getArgs(frame)
	local result = p.invoke(frame)
	local year
	if result.year <= 0 then
		year = (math.abs(result.year) + 1) .. ' AT'
	else
		year = result.year .. ' LE'
	end

	if yesno(args['year_only'] or false) then
		return year
	elseif yesno(args['month_day_only'] or false) then
		return lythryds[result.lythryd] .. ' ' .. result.day
	else
		return lythryds[result.lythryd] .. ' ' .. result.day .. ', ' .. year
	end
end

return p