Module:Sandbox/Kid116/Dates
.mw-parser-output .documentation,.mw-parser-output .documentation-metadata{border:1px solid var(--border-color-base,#a2a9b1);background-color:#ecfcf4;color:inhe
local p = {}
function p.Dates (frame)
input = mw.text.trim(frame.args[1])
input = " " .. input .. " "
xformat = frame.args.format or 0
xsuffix = frame.args.suffix or 0
hasDate = 0
hasMonth = 0
hasYear = 0
year = 0
month = 0
xdate = 0
specialSuffix = 0
ly = 0
valid = 1
txt = ""
a = 0
b = 0
p.yr ()
if hasYear~=0 then
if input:find ("%d%d%p%d%d%p%d%d%d%d") or input:find ("%d%d%d%d%p%d%d%p%d%d") then
p.isoType ()
else
p.Monthss ()
p.Date ()
end
else
p.Monthss ()
if hasMonth~=0 then
p.Date ()
else
if input:find ("%s%d%d%s") then
if input:find ("AD") or input:find ("BC") or input:find ("CE") or input:find ("BCE") then
year = tonumber(string.sub(input, input:find ("%s%d%d%s")+1, input:find ("%s%d%d%s")+2))
a = 1
end
else
valid = 0
end
end
end
if hasYear then
p.leapYear ()
end
p.validation()
if a == 1 then valid = 1 end
if valid ~= 0 then
if xsuffix == 0 then
if input:find ("AD") or input:find ("BC") or input:find ("CE") or input:find ("BCE") then
if year ~= 0 then
if input:find ("AD") then xsuffix = "AD" end
if input:find ("BC") then xsuffix = "BE" end
if input:find ("CE") then xsuffix = "CE" end
if input:find ("BCE") then xsuffix = "BCE" end
end
end
end
if xsuffix ~= 0 then
p.suffixes ()
else
if xformat == 0 then
xformat = "dmy"
if input:find (",") then xformat = "mdy" end
if input:find ("-") or input:find ("/") then xformat = "iso" end
end
if xdate == 0 and month == 0 and year ~= 0 then xformat = "year" end
if xdate ~= 0 and month == 0 and year ~= 0 then xformat = "year" end
p.formats ()
end
if specialSuffix then
p.sSuffixes ()
end
else
txt = "Invalid entry. "
end
return txt .. " "
end
function p.yr ()
if input:find ("%s%d%d%d%s") then
hasYear = 1
year = string.sub(input, input:find ("%s%d%d%d%s") + 1, input:find ("%s%d%d%d%s") + 3)
end
if input:find ("%s%d%d%d%d%s") then
hasYear = 1
year = string.sub(input, input:find ("%s%d%d%d%d%s") + 1, input:find ("%s%d%d%d%d%s") + 4)
end
if input:find ("%p%d%d%d%d%s") then
hasYear = 1
year = string.sub(input, input:find ("%p%d%d%d%d%s") + 1, input:find ("%p%d%d%d%d%s") + 4)
end
if input:find ("%s%d%d%d%d%p") then
hasYear = 1
year = string.sub(input, input:find ("%s%d%d%d%d%p") + 1, input:find ("%s%d%d%d%d%p") + 4)
end
year = tonumber(year)
end
function p.sSuffix()
if input:find ("uncertain") or input:find ("sometime") or input:find ("around") then
if input:find ("uncertain who") then
specialSuffix = 2
else
specialSuffix = 1
end
end
if input:find ("lord") and input:find ("year") then
specialSuffix = 3
end
end
function p.isoType()
if input:find ("%d%d%p%d%d%p%d%d%d%d") then
temp1 = tonumber(string.sub(input, input:find ("%d%d%p%d%d%p%d%d%d%d"), input:find ("%d%d%p%d%d%p%d%d%d%d") + 1))
temp2 = tonumber(string.sub(input, input:find ("%d%d%p%d%d%p%d%d%d%d") + 3, input:find ("%d%d%p%d%d%p%d%d%d%d") + 4))
end
if input:find ("%d%d%d%d%p%d%d%p%d%d") then
temp1 = tonumber(string.sub(input, input:find ("%d%d%d%d%p%d%d%p%d%d") + 5, input:find ("%d%d%d%d%p%d%d%p%d%d") + 6))
temp2 = tonumber(string.sub(input, input:find ("%d%d%d%d%p%d%d%p%d%d") + 8, input:find ("%d%d%d%d%p%d%d%p%d%d") + 9))
end
if temp1 < 13 and temp2 > 12 then
month = temp1
xdate = temp2
end
if temp1 > 12 and temp2 < 13 then
month = temp2
xdate = temp1
end
if temp1 > 31 and temp2 > 31 then
valid = 0
end
if temp1 < 13 and temp2 < 13 then
month = temp2
xdate = temp1
end
end
function p.Monthss ()
Months = {
"January",
"February",
"March",
"April",
"May",
"June",
"July",
"August",
"September",
"October",
"November",
"December"
}
for i = 1, 12 do
if input:find (Months[i]) then
month = i
hasMonth = 1
end
end
end
function p.Date ()
if input:find ("%s%d%a%a%s") or input:find ("%s%d%d%a%a%s") then
if input:find ("%s%d%a%a%s") then
xdate = tonumber(string.sub(input, input:find ("%s%d%a%a%s") + 1, input:find ("%s%d%a%a%s") + 1))
end
if input:find ("%s%d%d%a%a%s") then
xdate = tonumber(string.sub(input, input:find ("%s%d%d%a%a%s") + 1, input:find ("%s%d%d%a%a%s") + 2))
end
else
if input:find ("%s%d%d%s") or input:find ("%s%d%d%p") then
if input:find ("%s%d%d%s") and input:find ("%s%d%d%p") then
if input:find ("%s%d%d%s") < input:find ("%s%d%d%p") then
xdate = tonumber(string.sub(input, input:find ("%s%d%d%s") + 1, input:find ("%s%d%d%s") + 2))
else
xdate = tonumber(string.sub(input, input:find ("%s%d%d%p") + 1, input:find ("%s%d%d%p") + 2))
end
else
if input:find ("%s%d%d%s") then
xdate = tonumber(string.sub(input, input:find ("%s%d%d%s") + 1, input:find ("%s%d%d%s") + 2))
else
xdate = tonumber(string.sub(input, input:find ("%s%d%d%p") + 1, input:find ("%s%d%d%p") + 2))
end
end
if xdate > 31 then valid = 0 end
if xdate then hasDate = 1 end
end
end
end
function p.leapYear ()
if year % 100 ~= 0 and year % 4 == 0 then
ly = 1
else
if year % 400 == 0 then
ly = 1
end
end
end
function p.validation ()
if hasYear == 0 and hasMonth == 0 then valid = 0 end
if month > 12 then valid = 0 end
if month == 4 then
if xdate > 30 then
valid = 0
end
end
if month == 6 then
if xdate > 30 then
valid = 0
end
end
if month == 9 then
if xdate > 30 then
valid = 0
end
end
if month == 11 then
if xdate > 30 then
valid = 0
end
end
if month == 2 then
if ly == 1 then
if xdate > 29 then
valid = 0
end
else
if xdate > 28 then
valid = 0
end
end
end
if xdate then hasDate = 1 else hasDate = 0 end
end
function p.formats ()
Months = {
"January",
"February",
"March",
"April",
"May",
"June",
"July",
"August",
"September",
"October",
"November",
"December"
}
if xformat == "dmy" then
if hasDate ~= 0 then
txt = txt .. xdate .. " "
end
if hasMonth ~= 0 then
txt = txt .. Months[month] .. " "
end
if hasYear ~= 0 then
txt = txt .. year
end
end
if xformat == "mdy" then
if month ~= 0 then
txt = txt .. Months[month] .. " "
end
if xdate ~= 0 then
txt = txt .. xdate
end
if year ~= 0 then
txt = txt .. ", " .. year
end
end
if xformat == "iso" then
txt = txt .. year
if month < 10 then
month = "0" .. month
txt = txt .. "-" .. month
else
txt = txt .. "-" .. month
end
if xdate < 10 then
xdate = "0" .. xdate
txt = txt .. "-" .. xdate
else
txt = txt .. "-" .. xdate
end
end
if xformat == "year" then
if hasYear then
txt = txt .. year .. " "
else
txt = "More information required. "
end
end
end
function p.suffixes ()
if xsuffix == "AD" then
txt = year .. " AD "
end
if xsuffix == "BC" then
txt = "BC " .. year .. " "
end
if xsuffix == "CE" then
txt = year .. " CE "
end
if xsuffix == "BCE" then
txt = year .. " BCE "
end
if specialSuffix == 1 then
txt = "c. " .. txt
end
end
function p.sSuffixes ()
if specialSuffix == 2 then
txt = txt .. " (uncertain who was present)"
end
if specialSuffix == 3 then
txt = "" .. year .. " AD"
end
end
return p
Content Disclaimer
Informasi ini disarikan dari Wikipedia dan disajikan kembali untuk tujuan edukasi. Konten tersedia di bawah lisensi CC BY-SA 3.0. Kami tidak bertanggung jawab atas ketidakakuratan data yang bersumber dari kontribusi publik tersebut.
- The information displayed on this website is sourced in part or in whole from Wikipedia and has been adapted for the purpose of restating it. We strive to provide accurate and relevant information, however:
- There is no guarantee of absolute accuracy. Wikipedia is an open, collaborative project that can be edited by anyone, so information is subject to change.
- It is not intended to constitute professional advice. The content displayed is for informational and educational purposes only. For important decisions (e.g., medical, legal, or financial), please consult a professional.
- Content copyright. Wikipedia is licensed under the Creative Commons Attribution-ShareAlike License (CC BY-SA). This means that content may be reused with appropriate attribution and shared under a similar license.
- Responsible use. Any risk arising from the use of information from this website is entirely the responsibility of the user.