Module:Dating/sandbox

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 = true else valid = false end local mnths = {} local yrs = {} local dts = {} local i = 1 local j = 1 local k = 1 local valid = true local leapYear = false 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)) < 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)) < 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 > 31 then yrs[k] = data k = k + 1 else if data > 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 elseif #mnths == 0 then mnths [j] = nums[l] j = j + 1 elseif #yrs == 0 then yrs[k] = nums[l] k = k + 1 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 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 elseif year == 0 -- xsuffix ~= 0 and (date == 0 or month == 0) then xformat = "year" if date ~= 0 then year = date date = 0 else -- month ~= 0 year = month month = 0 end end if date ~= 0 and year == 0 and month == 0 then valid = false end if month == 4 or month == 6 or month == 9 or month == 11 and date > 30 then valid = false end if year % 400 == 0 or (year % 100 ~= 0 and year % 4 == 0) then leapYear = true end if month == 2 then if leapYear == true then if date > 29 then valid = false end elseif date > 28 then valid = false end end if date == 0 and month == 0 and year == 0 then valid = false 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 = true break else valid = false end end end if valid == false then txt = "Invalid entry. " else if xformat == "iso" then if year ~= 0 then txt = txt .. year end if month ~= 0 then if month > 10 then txt = txt .. "-" .. month else month = "0" .. month txt = txt .. "-" .. month end end if date ~= 0 then if date > 10 then txt = txt .. "-" .. date else date = "0" .. date txt = txt .. "-" .. date end end elseif 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 elseif 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 elseif xformat == "year" then if year ~= 0 then txt = txt .. year end end if xsuffix ~= 0 then txt = txt .. " " .. xsuffix end if sSuffix == 1 then txt = "c. " .. txt elseif sSuffix == 2 then txt = txt .. " (uncertain who was present)" end end return txt .. " "	end return p