Modul:FormatDate
Modul:FormatDate implementerer skabelonen Skabelon:FormatDate. Modulet er en kopi af de:Modul:Vorlage:FormatDate på tysk Wikipedia med månedsnavne og fejlmeddelelser oversat til dansk. Parametrene er ikke oversat, da skabelonen er beregnet til at gøre det nemmere at oversætte indhold fra tysk Wikipedia.
Brug
[rediger kildetekst]{{#invoke:FormatDate|Execute}}
local p = {}
-- Trennen der Parameter
local function Split(str)
local Datum = {}
local Teil=""
local pos = 0
Datum.y = 0
Datum.m = 0
Datum.d = 0
pos = mw.ustring.find(str,'-',1,true);
if pos == 1 then -- Minuszeichen am Anfang - nochmal suchen
pos = mw.ustring.find(str,'-',2,true);
end
if not pos then -- Bereits am Stringende
Datum.y = tonumber(str);
if Datum.y then
if math.floor(Datum.y) ~= Datum.y then
return false, Datum -- Eine Dezimalzahl ist Unsinn
end
return true, Datum -- Nur eine Jahreszahl
else
return false, Datum -- Kein Wert erkennbar
end
end
Teil = mw.ustring.sub(str,1,pos-1);
Datum.y = tonumber(Teil) or 0;
str = mw.ustring.sub(str,pos+1, -1);
pos = mw.ustring.find(str,'-',1,true);
if not pos or pos == 0 then
Datum.m = tonumber(str) or 0
Datum.d = 0;
if math.floor(Datum.m) ~= Datum.m then
return false, Datum -- Eine Dezimalzahl ist Unsinn
end
return true, Datum;
end
Teil = mw.ustring.sub(str,1,pos-1)
Datum.m = tonumber(Teil) or 0
Teil = mw.ustring.sub(str,pos+1, -1)
Datum.d = tonumber(Teil) or 0;
if math.floor(Datum.m) ~= Datum.m then
return false, Datum -- Eine Dezimalzahl ist Unsinn
end
if math.floor(Datum.d) ~= Datum.d then
return false, Datum -- Eine Dezimalzahl ist Unsinn
end
return true, Datum;
end
--
local function CheckDate(Date)
-- Monatspruefung
if Date.m == 0 then -- keine Pruefung
return true;
end
if Date.m > 12 or Date.m < 1 then
return false;
end
if Date.d == 0 then -- nur Monat angegeben, keine Tagespruefung
return true;
end
if ( Date.m == 4 or Date.m == 6 or Date.m == 9 or Date.m == 11) and Date.d > 30 then
return false;
end
if Date.m == 2 then -- Die greg. Sonderregeln werden ignoriert.
if Date.y % 4 ~= 0 and Date.d > 28 then return false; end
if Date.y % 4 == 0 and Date.d > 29 then return false; end
end
-- Hier nur noch 31-Tage-Monate übrig.
if Date.d > 31 then return false; end
return true;
end
--
local function TageInMonate(Datum)
Datum.m = 1;
if Datum.d > 31 then -- nach Januar
Datum.m = 2;
Datum.d = Datum.d - 31;
else
return true, Datum;
end
if Datum.y % 4 == 0 then -- Die greg. Sonderregeln werden ignoriert.
if Datum.d > 29 then -- nach Februar (Schaltjahr)
Datum.m = 3;
Datum.d = Datum.d - 29;
else
return true, Datum;
end
else
if Datum.d > 28 then -- nach Februar (Normaljahr)
Datum.m = 3;
Datum.d = Datum.d - 28;
else
return true, Datum;
end
end
if Datum.d > 31 then -- nach Maerz
Datum.m = 4;
Datum.d = Datum.d - 31;
else
return true, Datum;
end
if Datum.d > 30 then -- nach April
Datum.m = 5;
Datum.d = Datum.d - 30;
else
return true, Datum;
end
if Datum.d > 31 then -- nach Mai
Datum.m = 6;
Datum.d = Datum.d - 31;
else
return true, Datum;
end
if Datum.d > 30 then -- nach Juni
Datum.m = 7;
Datum.d = Datum.d - 30;
else
return true, Datum;
end
if Datum.d > 31 then -- nach Juli
Datum.m = 8;
Datum.d = Datum.d - 31;
else
return true, Datum;
end
if Datum.d > 31 then -- nach August
Datum.m = 9;
Datum.d = Datum.d - 31;
else
return true, Datum;
end
if Datum.d > 30 then -- nach September
Datum.m = 10;
Datum.d = Datum.d - 30;
else
return true, Datum;
end
if Datum.d > 31 then -- nach Oktober
Datum.m = 11;
Datum.d = Datum.d - 31;
else
return true, Datum;
end
if Datum.d > 30 then -- nach November
Datum.m = 12;
Datum.d = Datum.d - 30;
else
return true, Datum;
end
if Datum.d > 31 then -- nach Dezember = Fehler
Datum.m = 0;
Datum.d = 0;
return false, Datum;
else
return true, Datum;
end
end
--
local function Run(Args)
local T_L = {"januar","februar", "marts", "april", "maj","juni", "juli", "august","september","oktober","november","december","Jänner"}
local T_M = {"jan.","feb.", "mar.", "apr.", "maj","juni", "juli", "aug.","sep.","okt.","nov.","dec.","jan."}
local T_S = {"jan.","feb.", "mar.", "apr.", "maj","jun.", "jul.", "aug.","sep.","okt.","nov.","dec.","jan."}
local Text = "";
local TextYear = "";
local TextMonth = "";
local TextDay = "";
local idxm = 0 ; -- Wegen der AT-Regel ein Extraindex fuer den Monat.
local AT = false;
local NBSP = false;
local LINK = false;
local VCHR = "";
local STIL = 'L';
local IsOk = true;
local Tbl = {}
local SortIt = false;
local Zero = false;
local Numstr = "";
local SortTag= "";
local Arg2 = mw.ustring.lower(mw.text.trim(Args[2] or ""));
local Arg3 = mw.ustring.lower(mw.text.trim(Args[3] or ""));
local Arg4 = mw.ustring.lower(mw.text.trim(Args[4] or ""));
local davor = mw.text.trim(Args['davor'] or "");
local display = mw.text.trim(Args['display'] or ""); -- Nur zusammen mit sort sinnvoll
if Arg2 == "nbsp" or Arg3 == "nbsp" or Arg4 == "nbsp" then NBSP = true; end
if Arg2 == "link" or Arg3 == "link" or Arg4 == "link" then LINK = true; end
if Arg2 == "l" or Arg3 == "l" or Arg4 == "l" then STIL = 'L'; end
if Arg2 == "m" or Arg3 == "m" or Arg4 == "m" then STIL = 'M'; end
if Arg2 == "s" or Arg3 == "s" or Arg4 == "s" then STIL = 'S'; end
if mw.ustring.lower(mw.text.trim(Args['AT'] or "")) == "ja" then AT = true; end
if mw.ustring.lower(mw.text.trim(Args['Zero'] or "")) ~= "" then Zero = true; end
if mw.ustring.lower(mw.text.trim(Args['Sort'] or "")) ~= "" then SortIt = true; Zero = true; end
if davor ~="" then davor = davor .. " "; end
IsOk, Tbl = Split(Args[1])
if not IsOk then
Text = '<span class="error">[[Skabelon:FormatDate]]: Ingen korrekt ISO-dato!</span>'
return Text
end
--Tage ohne Monat: Tage in Monat und Tag umrechnen
if Tbl.m == 0 and Tbl.d ~= 0 then
IsOk, Tbl = TageInMonate(Tbl)
end
if not IsOk then
Text = '<span class="error">[[Skabelon:FormatDate]]: Ingen korrekt ISO-dato!</span>'
return Text
end
Tbl.y = tonumber(Tbl.y) or 0;
if Tbl.y == 0 and Tbl.m == 0 and Tbl.d == 0 then
Text = '<span class="error">[[Skabelon:FormatDate]]: Ukorrekt værdi ("0-0-0") for datoen! </span>'
return Text
end
if Tbl.y < 0 then -- Jahr Null reserviert fuer "Nur Tag und Monat"
Tbl.y = 0 - Tbl.y
VCHR = ' v. Chr.';
end
IsOk = CheckDate(Tbl);
if not IsOk then
Text = '<span class="error">[[Skabelon:FormatDate]]: Ukorrekt dato!'.. table.concat(Tbl,'.')..'</span>'
return Text
end
if Tbl.d > 0 then -- Tag angegeben, String erstellen
TextDay = tostring(Tbl.d) .. '. '
if Tbl.d < 10 and Zero then
TextDay = '<span style="visibility:hidden;">0</span>' .. TextDay;
end
else
TextDay = '';
end
if Tbl.m > 0 then -- Monat angegeben, String erstellen
if AT and Tbl.m == 1 then
idxm = 13
else
idxm = Tbl.m;
end
if STIL == 'S' then
TextMonth = T_S[idxm] ;
elseif STIL == 'M' then
TextMonth = T_M[idxm] ;
else
TextMonth = T_L[idxm] ;
end
Text = TextDay .. TextMonth
if LINK then
if Tbl.d == 0 then
Linkziel =T_L[Tbl.m]
else
Linkziel = tostring(Tbl.d) .. ". " .. T_L[Tbl.m]
end
Text = '[[' .. Linkziel .. '|' .. Text .. ']]';
end
end
-- hier Tag und Monat zusammen, evtl. verlinkt
if Tbl.y ~= 0 then
if LINK then
TextYear = '[[' .. tostring(Tbl.y) .. VCHR .. ']]';
else
TextYear = tostring(Tbl.y) .. VCHR;
end
if Tbl.m > 0 then
if NBSP then
TextYear = ' ' .. TextYear;
else
TextYear = ' ' .. TextYear;
end
end
end
Text = Text .. TextYear;
if SortIt then
if VCHR ~= "" then
Tbl.y = 0 - Tbl.y
end
-- Begrenzung auf 3000 v Chr. bis 6999 n. Chr. Vierstellige Sortierung reicht aus
if Tbl.y > 6999 then
Tbl.y = 6999;
end
-- Nur bei Sortierung sinnvoll: Überschreiben der Textausgabe mit angegebenen String
if display ~= "" then
Text = display;
end
Numstr = string.format('%d%2.2d%2.2d',3000+Tbl.y,Tbl.m,Tbl.d);
SortTag='<span style="display:none" class="sortkey">' .. Numstr .. '♠</span>';
Text = SortTag .. davor .. Text;
end
return Text
end
--
local function GetYear(Args)
local Tbl = {}
local IsOk = true;
IsOk, Tbl = Split(Args[1])
if not IsOk or Tbl.y == 0 then
return false, 0;
end
return true, Tbl.y;
end
local function GetMonth(Args)
local Tbl = {}
local IsOk = true;
IsOk, Tbl = Split(Args[1])
if not IsOk or Tbl.m == 0 then
return flase, 0;
end
return true, Tbl.m;
end
local function GetDay(Args)
local Tbl = {}
local IsOk = true;
IsOk, Tbl = Split(Args[1])
if not IsOk or Tbl.d == 0 then
return false, 0;
end
return true, Tbl.d;
end
local function CountDays(Args)
local Tbl = {}
local IsOk = true;
local Days = 0;
IsOk, Tbl = Split(Args[1])
if not IsOk or Tbl.y == 0 then
Days = 0;
return Days;
end
if Tbl.m == 0 or Tbl.m == 1 then
Days = Tbl.d;
return Days;
end
if Tbl.m == 2 then
Days = 31 + Tbl.d;
return Days;
end
if Tbl.y % 4 == 0 then
Days = 60
else
Days = 59;
end
if Tbl.m == 3 then Days = Days + Tbl.d; end
if Tbl.m == 4 then Days = Days + 31 + Tbl.d; end
if Tbl.m == 5 then Days = Days + 61 + Tbl.d; end
if Tbl.m == 6 then Days = Days + 92 + Tbl.d; end
if Tbl.m == 7 then Days = Days + 122 + Tbl.d; end
if Tbl.m == 8 then Days = Days + 153 + Tbl.d; end
if Tbl.m == 9 then Days = Days + 184 + Tbl.d; end
if Tbl.m == 10 then Days = Days + 214 + Tbl.d; end
if Tbl.m == 11 then Days = Days + 245 + Tbl.d; end
if Tbl.m == 12 then Days = Days + 275 + Tbl.d; end
return Days;
end
function p.Execute(frame)
local FR = frame:getParent()
if frame:callParserFunction('int', 'lang' ) == 'de-at' then
FR.args['AT']='ja';
end
return Run(FR.args)
end
function p.Sort(frame)
local FR = frame:getParent()
FR.args.Sort='1'
return Run(FR.args)
end
function p.DayInYear(frame)
local FR = frame:getParent()
local Number = CountDays(FR.args);
return tostring(Number);
end
function p.YearFromISO(frame)
local FR = frame:getParent()
local isOk, Number = GetYear(FR.args);
if isOk then
return tostring(Number);
else
return "0";
end
end
function p.MonthFromISO(frame)
local FR = frame:getParent()
local isOk, Number = GetMonth(FR.args);
if isOk then
return tostring(Number);
else
return "0";
end
end
function p.DayFromISO(frame)
local FR = frame:getParent()
local isOk, Number = GetDay(FR.args);
if isOk then
return tostring(Number);
else
return "0";
end
end
return p