Module:Dating

local p = {} function p.Dates (frame) local input = mw.text.trim(frame.args[1]) or 0 if input ~= 0 then input = " " .. input .. " "		end local xformat = frame.args.format or 0 local xsuffix = frame.args.suffix or 0 local sSuffix = 0 local valid if input ~= 0 then valid = 1 else valid = 0 end local mnths = {} local yrs = {} local dts = {} local i = 1 local j = 1 local k = 1 local valid = 1 local ly = 0 local txt = "" local nums = {} local m = 1 local Months = { "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" }		for data in string.gmatch (input, "%w+") do data = " " .. data .. " "			if data:find ("%s%d%a%a%s") then if tonumber(string.sub(data, 2, 2)) &#x3c; 32 then dts[i] = tonumber(string.sub(data, 2, 2)) i = i + 1 end end if data:find ("%s%d%d%a%a%s") then if tonumber(string.sub(data, 2, 3)) &#x3c; 32 then dts[i] = tonumber(string.sub(data, 2, 3)) i = i + 1 end end end if input:find ("%s%d%d%d%d%s") then yrs[k] = tonumber(string.sub(input, input:find ("%s%d%d%d%d%s")+1, input:find ("%s%d%d%d%d%s")+4)) k = k + 1 end for l = 1, 12 do			if input:find(string.sub(Months[l], 1, 3)) or input:find(string.lower(string.sub(Months[l], 1, 3))) then mnths[j] = l				j = j + 1 end end for data in string.gmatch (input, "%d+") do			data = tonumber(data) if data &#x3e; 31 then yrs[k] = data k = k + 1 else if data &#x3e; 12 then if #dts == 0 then dts[i] = data i = i + 1 else nums[m] = data m = m + 1 end else nums[m] = data m = m + 1 end end end for l = 1, 3 do			if nums[l] then if #dts == 0 then dts [i] = nums[l] i = i + 1 else if #mnths == 0 then mnths [j] = nums[l] j = j + 1 else if #yrs == 0 then yrs[k] = nums[l] k = k + 1 end end end end end local date = dts[1] or 0 local month = mnths[1] or 0 local year = yrs[1] or 0 if xformat == 0 then if input:find ("/") or input:find ("-") then xformat = "iso" else if input:find (", ") then xformat = "mdy" else xformat = "dmy" end end end if date ~= 0 and year ~= 0 and month == 0 then xformat = "year" end if date == 0 and year ~= 0 and month == 0 then xformat = "year" end if input:find ("uncertain") or input:find("around") or input:find("sometime") then if input:find ("uncertain who") then sSuffix = 2 else sSuffix = 1 end end if xsuffix == 0 then if input:find ("year") and input:find ("lord") then	xsuffix = "AD" 	end if input:find ("AD") then xsuffix = "AD" end if input:find ("BC") then xsuffix = "BC" end if input:find ("CE") then xsuffix = "CE" end if input:find ("BCE") then xsuffix = "BCE" end end if xsuffix ~= 0 then if year == 0 then if date ~= 0 and month ~= 0 then else if date ~= 0 then year = date xformat = "year" date = 0 end if month ~= 0 then year = month xforamt = "year" month = 0 end end end end if date ~= 0 and year == 0 and month == 0 then valid = 0 end if month == 4 or month == 6 or month == 9 or month == 11 then if date &#x3e; 30 then valid = 0 end end if year % 100 ~= 0 and year % 4 == 0 then ly = 1 else if year % 400 == 0 then ly = 1 end end if month == 2 then if ly == 1 then if date &#x3e; 29 then valid = 0 end else if date &#x3e; 28 then valid = 0 end end end if date == 0 and month == 0 and year == 0 then valid = 0 end if year == 0 then for l = 1, 12 do				if input:find(string.sub(Months[l], 1, 3)) or input:find(string.lower(string.sub(Months[l], 1, 3))) then valid = 1 break else valid = 0 end end end if valid == 0 then txt = "Invalid entry. " else if xformat == "iso" then if year ~= 0 then txt = txt .. year end if month ~= 0 then if month &#x3e; 10 then txt = txt .. "-" .. month else month = "0" .. month txt = txt .. "-" .. month end end if date ~= 0 then if date &#x3e; 10 then txt = txt .. "-" .. date else date = "0" .. date txt = txt .. "-" .. date end end end if xformat == "dmy" then if date ~= 0 then txt = txt .. date end if month ~= 0 then txt = txt .. " " .. Months[month] end if year ~= 0 then txt = txt .. " " .. year end end if xformat == "mdy" then if month ~= 0 then txt = txt .. Months[month] end if date ~= 0 then txt = txt .. " " .. date end if year ~= 0 then txt = txt .. ", " .. year end end if xformat == "year" then if year ~= 0 then txt = txt .. year end end if xsuffix ~= 0 then txt = txt .. " " .. xsuffix end if sSuffix ~= 0 then if sSuffix == 1 then txt = "c. " .. txt end if sSuffix == 2 then txt = txt .. " (uncertain who was present)" end end end return txt .. " "	end return p