Modul:Datum
Zur Navigation springen
Zur Suche springen
Dokumentation und Testfälle unter Modul:Datum/Doku.
local p = {}
--Erwartet einen Zahlenwert und gibt den Wochentag zurück
-- Wochentag w=1 bis 7
--Rückgabe
-- Wochentag
-- Leerstring bei illegalen Werten
local getWochentagLang=function(w)
if (w== 1) then return "Rohalstag" end
if (w== 2) then return "Feuertag" end
if (w== 3) then return "Wassertag" end
if (w== 4) then return "Windstag" end
if (w== 5) then return "Erdtag" end
if (w== 6) then return "Markttag" end
if (w== 7) then return "Praiostag" end
return ""
end
--Erwartet einen Zahlenwert und gibt den Planet des Wochentages zurück
-- Wochentag w=1 bis 7
--Rückgabe
-- Planet des Wochentages
-- Leerstring bei illegalen Werten
local getWochentagPlanet=function(w)
if (w== 1) then return "Nandus" end
if (w== 2) then return "Kor" end
if (w== 3) then return "Marbo" end
if (w== 4) then return "Aves" end
if (w== 5) then return "Simia" end
if (w== 6) then return "Horas" end
if (w== 7) then return "Ucuri" end
return ""
end
--Erwartet einen Zahlenwert und gibt den Planet des Monatsfünftels zurück
-- Tag t=1 bis 30
--Rückgabe
-- Planet des Monatsfünftels
-- Leerstring bei illegalen Werten
local getMonatsfuenftelPlanet=function(t)
if (t<1) or (t>30) then return "" end
f=1+math.floor((t-1)/6)
if (f== 1) then return "Simia" end
if (f== 2) then return "Aves" end
if (f== 3) then return "Kor" end
if (f== 4) then return "Ucuri" end
if (f== 5) then return "Marbo" end
return ""
end
--Erwartet einen Zahlenwert und gibt den Planet des Tages im Monatsfünftel zurück
-- Tag t=1 bis 30
--Rückgabe
-- Planet des Tags im Monatsfünftels
-- Leerstring bei illegalen Werten
local getMonatstagPlanet=function(t)
if (t<1) or (t>30) then return "" end
f=1+(t-1)%6
if (f== 1) then return "Horas" end
if (f== 2) then return "Simia" end
if (f== 3) then return "Levthan" end
if (f== 4) then return "Kor" end
if (f== 5) then return "Ucuri" end
if (f== 6) then return "Marbo" end
return ""
end
--Erwartet einen Zahlenwert und gibt das Sternbild des Monats zurück
-- Monat m=1 bis 13
--Rückgabe
-- Sternbild des Monats
-- Leerstring bei illegalen Werten
local getMonatsSternbild=function(m)
if (m== 1) then return "Greif" end
if (m== 2) then return "Schwert" end
if (m== 3) then return "Delfin" end
if (m== 4) then return "Gans" end
if (m== 5) then return "Rabe" end
if (m== 6) then return "Schlange" end
if (m== 7) then return "Eisbär" end
if (m== 8) then return "Eidechse" end
if (m== 9) then return "Fuchs" end
if (m==10) then return "Storch" end
if (m==11) then return "Hammer und Amboss" end
if (m==12) then return "Stute" end
if (m==13) then return "Sternenleere" end
return ""
end
--Erwartet einen Zahlenwert und gibt den vollständigen Monat zurück
-- Monat m=1 bis 13
--Rückgabe
-- Monat
-- Leerstring bei illegalen Werten
local getMonatLang=function(m)
if (m== 1) then return "Praios" end
if (m== 2) then return "Rondra" end
if (m== 3) then return "Efferd" end
if (m== 4) then return "Travia" end
if (m== 5) then return "Boron" end
if (m== 6) then return "Hesinde" end
if (m== 7) then return "Firun" end
if (m== 8) then return "Tsa" end
if (m== 9) then return "Phex" end
if (m==10) then return "Peraine" end
if (m==11) then return "Ingerimm" end
if (m==12) then return "Rahja" end
if (m==13) then return "Namenloser" end
return ""
end
--Erwartet einen Zahlenwert und gibt den dreibuchstabigen Monat zurück
-- Monat m=1 bis 13
--Rückgabe
-- dreibuchstabiger Monat
-- Leerstring bei illegalen Werten
local getMonatKurz=function(m)
if (m== 1) then return "Pra" end
if (m== 2) then return "Ron" end
if (m== 3) then return "Eff" end
if (m== 4) then return "Tra" end
if (m== 5) then return "Bor" end
if (m== 6) then return "Hes" end
if (m== 7) then return "Fir" end
if (m== 8) then return "Tsa" end
if (m== 9) then return "Phe" end
if (m==10) then return "Per" end
if (m==11) then return "Ing" end
if (m==12) then return "Rah" end
if (m==13) then return "Nam" end
return ""
end
--Erwartet vier Zahlenwerte und gibt den Wochentag je nach Genauigkeit als String zurück
-- Tag t=1 bis 30 (bzw. 5 bei m=13)
-- Monat m=1 bis 13
-- Jahr j=minInt bis maxInt
-- Genauigkeit g=-2 bis -1
--Rückgabe
-- Wochentag plus ", "
-- Leerstring bei illegalen Werten
local getWochentag=function(t,m,j,g)
if (m<1) or (m>13) or
(t<1) or (t>30) or
(g>=0) then return 0 end
--Tag des Jahres
d=(m-1)*30+t
w=(d+j+5)%7
return (w+1)
end
--Erwartet drei Zahlenwerte und gibt den Tag je nach Genauigkeit als String zurück
-- Tag t=1 bis 30 (bzw. 5 bei m=13)
-- Monat m=1 bis 13
-- Genauigkeit g=0 bis 1
--Rückgabe
-- entweder Zahl plus ". " bei g==0
-- oder Anfang/Mitte/Ende (bzw. leer bei m=13) bei g==1
-- Leerstring bei illegalen Werten
local getTagBeschreibung=function(t,m,g)
if (m<1) or (m>13) or
(t<1) or (t>30) or
(g>1) then return "" end
if (g<=0) then return t..". " end
if (m==13) then return "" end
if (t<=10) then return "Anfang " end
if (t>=21) then return "Ende " end
return "Mitte "
end
--Erwartet zwei Zahlenwerte und gibt den Monat je nach Genauigkeit als String zurück
-- Monat m=1 bis 13
-- Genauigkeit g=0 bis 3
--Rückgabe
-- entweder Monatskürzel bei g==0 bis g==2
-- oder Frühling/Sommer/Herbst/Winter bei g==3
-- Leerstring bei illegalen Werten
local getMonatBeschreibung=function(m,g)
if (m<1) or (m>13) or
(g>3) then return "" end
if (g<0) then return getMonatLang(m).." " end
if (g<3) then return getMonatKurz(m).." " end
if (m<3) then return "Sommer am Anfang " end
if((m>=3)and(m<=5)) then return "Herbst " end
if((m>=6)and(m<=8)) then return "Winter " end
if((m>=9)and(m<=11)) then return "Frühling " end
return "Sommer am Ende "
end
--Erwartet zwei Zahlenwerte und gibt das Jahr je nach Genauigkeit als String zurück
-- Jahr j=minInt bis maxInt
-- Genauigkeit g=0 bis 9
--Rückgabe
-- entweder Jahr plus " BF" bzw. " vBF" bei g==0 bis g==4
-- oder "er Jahre (v)BF" bei g==5
-- oder "Anfang/Mitte/Ende x. Jhd. (v)BF" bei g==6
-- oder "x. Jhd. (v)BF" bei g==7
-- oder "Anfang/Mitte/Ende x. Jtd. (v)BF" bei g==8
-- oder "x. Jtd. (v)BF" bei g==9
-- Leerstring bei illegalen Werten
local getJahrBeschreibung=function(j,g)
if (g>9) then return "" end
v=false;
k=" BF"
if (j<0) then
k=" vBF"
j=-j
v=true
end
js=j
if(g==5) then
jr=10*math.floor(j/10)
js=jr.."er Jahre"
end
if((g==6)or(g==7)) then
jr=math.floor(j/100)+1
jd=j-((jr-1)*100)
jds="Mitte "
if((v==false) and (jd<=33)) then jds="Anfang " end
if((v==true) and (jd<=33)) then jds="Ende " end
if((v==false) and (jd>=67)) then jds="Ende " end
if((v==true) and (jd>=67)) then jds="Anfang " end
if(g==7) then jds="" end
js=jds..jr..". Jhd."
end
if((g==8)or(g==9)) then
jr=math.floor(j/1000)+1
jd=j-((jr-1)*1000)
jds="Mitte "
if((v==false) and (jd<=333)) then jds="Anfang " end
if((v==true) and (jd<=333)) then jds="Ende " end
if((v==false) and (jd>=667)) then jds="Ende " end
if((v==true) and (jd>=667)) then jds="Anfang " end
if(g==9) then jds="" end
js=jds..jr..". Jts."
end
return js..k
end
--Erwartet t,m,j des aventurischen Datums plus Genauigkeit g von 0 bis 9 und gibt ein formatiertes Ergebnis zurück
local formatdatum=function(t,m,j,g)
w=getWochentag(t,m,j,g)
as=""
ws=""
as=getWochentagPlanet(w)..", "..getMonatstagPlanet(t)..", "..getMonatsfuenftelPlanet(t)..", "..getMonatsSternbild(m)
if (as==", , , ") then as="" end;
if (g==-3) then
return as
end
if (g==-2) and (as~="") then
as=" ("..as..")"
else
as=""
end
if (w>=1) and (w<=7) then
ws=getWochentagLang(w)..", ";
end
ts=getTagBeschreibung(t,m,g)
ms=getMonatBeschreibung(m,g)
js=getJahrBeschreibung(j,g)
res=ws..ts..ms..js..as
if (res=="") then res="unbekannt" end
return res
end
--Erwartet t,m,j des aventurischen Datums plus Genauigkeit g von 0 bis 9 und gibt ein formatiertes Ergebnis zurück
local indextag=function(t,m,j,g)
r=m*100+t
s=tostring(r)
if (m<10) then s='0'..s end
return s
end
--Erwartet t,m,j des aventurischen Datums plus Genauigkeit g von 0 bis 9 und gibt ein formatiertes Ergebnis zurück
local indexdatum=function(t,m,j,g)
return j*10000+m*100+t
end
--Gibt das aktuelle Datum als array['tag','monat','jahr','genauigkeit'=0] zurück
local aktuellesdatum=function()
actdate=os.date('*t')
datum={}
datum['error']=nil
year=tonumber(actdate.year)
datum['jahr']=year-977;
yday=tonumber(actdate.yday)
datum['monat']=math.floor((yday-1)/30)+1
datum['tag']=(yday-1)%30+1
datum['genauigkeit']=0
return datum
end
--Alter
local alter=function(t1,m1,j1,t2,m2,j2,g,num)
i1=j1*365+(m1-1)*30+t1
i2=j2*365+(m2-1)*30+t2
at=i2-i1
if (at<0) then return '' end
j=math.floor(at/365)
if(g<=4) then
if (num) then return j end
if (j==1) then return "1 Jahr" end
return j.." Jahre"
end
if num then return '' end
if(g<=6) then
jr=10*math.floor(j/10)
return "über "..jr.." Jahre"
end
if(g<=8) then
jr=100*math.floor(j/100)
return "über "..jr.." Jahre"
end
if(g<=9) then
jr=1000*math.floor(j/1000)
return "über "..jr.." Jahre"
end
return "unbekannt"
end
--Dekodiert ein Datum im Format [[T.]M.]J[/G]
local decodedatum=function(s)
datg=mw.text.split(s,'/',true)
if(#datg<2) then
table.insert(datg,2,0)
end
dat=mw.text.split(datg[1],'.',true)
while(#dat<3) do
table.insert(dat,0,0)
end
result={}
result['genauigkeit']=tonumber(datg[2])
result['error']=nil
result['jahr']=tonumber(dat[3])
result['monat']=tonumber(dat[2])
result['tag']=tonumber(dat[1])
if(result['genauigkeit']==nil) then result['error']="Genauigkeit muss eine Zahl sein." end
if(result['jahr']==nil) then result['error']="Jahr muss eine Zahl sein." end
if(result['monat']==nil) then result['error']="Monat muss eine Zahl sein." end
if(result['tag']==nil) then result['error']="Tag muss eine Zahl sein." end
return result
end
function p.formatzeitindex()
frame=mw.getCurrentFrame()
zeit=tonumber(frame.args['ZeitIndex'])
if (tonumber(zeit)==nil) then return "" end
gnau=tonumber(frame.args['Genauigkeit'])
j=math.floor(zeit/10000)
m=math.floor((zeit-j*10000)/100)
t=zeit-j*10000-m*100
return formatdatum(t,m,j,gnau)
end
function p.DatumTextTMJG()
frame=mw.getCurrentFrame()
dat=frame.args['Datum']
if(dat=='') then return '' end
if(dat==nil) then return '' end
datum=decodedatum(dat)
gen=frame.args['Genauigkeit']
if(gen=='') then gen=datum['genauigkeit'] end
if(gen==nil) then gen=datum['genauigkeit'] end
if(type(gen)~='number') then gen=tonumber(gen) end
if(datum['error']==nil) then
return formatdatum(datum['tag'],datum['monat'],datum['jahr'],gen)
else
return datum['error']
end
end
function p.DatumIndexTMJG()
frame=mw.getCurrentFrame()
dat=frame.args['Datum']
if(dat=='') then return '' end
if(dat==nil) then return '' end
datum=decodedatum(dat)
if(datum['error']==nil) then
return indexdatum(datum['tag'],datum['monat'],datum['jahr'],datum['genauigkeit'])
else
return datum['error']
end
end
function p.DatumTagTMJG()
frame=mw.getCurrentFrame()
dat=frame.args['Datum']
if(dat=='') then return '' end
if(dat==nil) then return '' end
datum=decodedatum(dat)
if(datum['error']==nil) then
return indextag(datum['tag'],datum['monat'],datum['jahr'],datum['genauigkeit'])
else
return datum['error']
end
end
function p.DatumAlterTMJG()
frame=mw.getCurrentFrame()
dat1=frame.args['Tsa']
dat2=frame.args['Boron']
num=frame.args['Nummer']
if((num=='')or(num==nil)) then
num=false
else
num=true
end
if((dat1=='')or(dat1==nil)) then return '' end
datum1=decodedatum(dat1)
if((dat2=='')or(dat2==nil)) then
datum2=aktuellesdatum()
else
datum2=decodedatum(dat2)
end
if((datum1['error']==nil)and(datum2['error']==nil)) then
g=math.max(datum1['genauigkeit'],datum2['genauigkeit']);
return alter(datum1['tag'],datum1['monat'],datum1['jahr'],
datum2['tag'],datum2['monat'],datum2['jahr'],g,num)
else
return datum1['error']..datum2['error']
end
end
function p.DatumAktuell()
frame=mw.getCurrentFrame()
g=frame.args['Genauigkeit']
if((g=='')or(g==nil)) then g='0' end
gen=tonumber(g)
datum=aktuellesdatum()
return formatdatum(datum['tag'],datum['monat'],datum['jahr'],gen)
end
function p.DatumAktuellTag()
frame=mw.getCurrentFrame()
datum=aktuellesdatum()
return indextag(datum['tag'],datum['monat'],datum['jahr'],datum['genauigkeit'])
end
function p.DatumSortierwert()
frame=mw.getCurrentFrame()
dat=frame.args['Datum']
if(dat=='') then return '' end
if(dat==nil) then return '' end
zeit=frame.args['Zeit']
zeitbruch=0
if(zeit~='')and(zeit~=nil) then
zeitbruch=zeit/2400
end
datum=decodedatum(dat)
if(datum['error']==nil) then
result=datum['jahr']*365+datum['monat']*30+datum['tag']+zeitbruch
resultstring=tostring(result)
split=mw.text.split(resultstring,'.',true)
if(#split~=2) then
return resultstring
end
return split[1]..","..split[2]
else
return datum['error']
end
end
return p