Module:Sandbox/Cyborg Coder/Dates

Module documentation[create] [purge]

You might want to create a documentation page for this Scribunto module.
Editors can experiment in this module's sandbox (create | mirror) and testcases (create) pages.
Add categories to the /doc subpage. Subpages of this module.

--Cyborg Coder Google Code-in, Lua Task 7 - Date formatting
local p = {}

--local function 

--function p.date( frame )
--	local dtext = frame.args.text
--	if (dtext=="" or dtext==nil) then return "No date given" end
--	local dformat = frame.args.format or default
--    return dtext
--end

local function leapd(y)
	if y % 1000 == 0 then return 29 end
	if y % 100 == 0 then return 28 end
	if y% 4 == 0 then return 29 end
	return 28
end

local months = { "jan", "feb", "mar", "apr", "may", "jun",
	"jul", "aug", "sep", "oct", "nov", "dec" }
local days_in_month = { 31, 0, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
days_in_month[0] = 0
local month_idx = {}
for i, v in ipairs(months) do
	month_idx[v] = i
end

local function day_try(d, m, y)
	days_in_month[2] = leapd(y)
	if d < 1 or d > days_in_month[m] then
		return "Invalid"
	end
	return "Valid"
end

function p.date(frame)
	local date = frame.args.text or mw.text.trim(frame.args[1] or "")
	local dformat = frame.args.format or default
	if date == "" then date = "No date" end
	--local d, y = date:match("(%d+)%D+(%d+)")
	local d = date:match("([1-3]%d)%D")
	local y = date:match("(%d%d%d+)")
	local mnth = date:match("%a+") or ""
	mnth = string.upper(string.sub(mnth, 1, 1)) .. string.sub(mnth, 2)
	--if mnth 
	d, y = tonumber(d) or 1, tonumber(y) or 0
	local m = month_idx[mnth:sub(1,3):lower()] or tonumber(date:match("%D0(%d)")) or 0
	local v = day_try(d, m, y)
	local out = date .. " = " .. d .. " " .. m .. " " .. y .. " " .. mnth
	out = out .. " = " .. v
	if v == "Invalid" then return out .. " -> Invalid Entry" end
	out = out .. " -> ".. d .. " " .. mnth .. " " .. y
	return out .. "<br>"
end

return p