Módulu:Dates

La documentación pa esti módulu pue crease en Módulu:Dates/usu

local z = {}

local meses = {
       'xineru','febreru','marzu','abril','mayu','xunu','xunetu','agostu','setiembre','ochobre','payares','avientu'}

function z.NombreDelMes(mes)
  -- Función que devuelve'l nome del mes, onde mes ye un númberu ente 1 y 12. 
  -- Si nun ye asina devuélvese'l valor de mes.
  -- Por exemplu, 2  --> febreru
  --              02 --> febreru
  --              abril --> abril
  --              MAYU --> MAYU
   return meses[tonumber(mes)] or mes
end

function z.Fecha(frame)
    -- Función que formatea una data
    -- L'únicu parámetru obligatoriu ye l'añu o 3.
    -- Obtener los argumentos colos que se llama a la función

    local argumentos = {}
    local parent = {}
    if frame == mw.getCurrentFrame() then
        if   frame.args[3]  or frame.args["añu"]  then
    	    argumentos = frame.args
        else 
    	    parent = frame:getParent()
            argumentos = parent.args
        end 
    else
        argumentos = frame
    end
    
    local enlace = argumentos["enlace"] ~= "no"

    -- Obtener el día, el nome del mes y l'añu incluyendo pa los años negativos a.d.
    local dia = argumentos["día"] or argumentos[1] or ''    
    if dia ~='' then 
    	dia=tonumber(dia) or dia -- Eliminar ceros a la esquierda del día.
    end
    local mes = argumentos["mes"] or argumentos[2] or ''
    if mes~='' then 
    	mes =meses[tonumber(mes)] or mes 
    end
    local anyo=tonumber(argumentos["añu"] or argumentos[3]) or 0
    if anyo < 0 then
    	anyo = -anyo .. ' e. C.'
    end
    
    local calendario = ''
    
    if argumentos["calendario"] == 'xulianu' then
    	calendario = '<sup>[[Calendariu xulianu|xul.]]</sup>'
    end

    -- Formatiar la data dependiendo de si'l día, el mes o l'añu tán informaos
    if dia ~='' then
    	if enlace then
    	  return '[[' .. dia .. ' de ' .. mes .. ']] de [[' .. anyo .. ']]' .. calendario
    	else
    	  return dia .. ' de ' .. mes .. ' de ' .. anyo .. calendario
    	end
    elseif mes~='' then
        if argumentos["mayúscula"] == 'sí' then
            mes = mw.language.new('ast'):ucfirst(mes)
        end
        if enlace then
	    return  '[[' .. mes .. ']] de [[' .. anyo .. ']]'
	else
	    return  mes .. ' de ' .. anyo
	end
    elseif anyo ~= 0 then
        if enlace then
    	    return '[[' .. anyo .. ']]'
    	else
    	    return anyo
    	end
     end
 end
 function getNumeroMes(nombreMes)
     local numeroMes = ''
     local nombreMeses = { 
    	 ['01'] = 'xineru', ['02'] = 'febreru', ['03'] = 'marzu', ['04'] = 'abril', ['05'] = 'mayu', ['06'] = 'xunu', ['07'] =  'xunetu', ['08'] =  'agostu',
    	 ['09'] =  'setiembre', ['10'] = 'ochobre',  ['11'] =  'payares', ['12'] =  'avientu'
    	 }
     for k, n in pairs(nombreMeses) do
         if nombreMeses[k] == mw.ustring.lower(nombreMes) then
             numeroMes = k
         end
     end
     if numeroMes == nil or numeroMes == '' then
         numeroMes = '00' 
     end
     return numeroMes
 end
 
 function setString(cadena)
     local dia, mes, anno
     local error = '<strong class="error">Cadena de data non válida</strong>'
     local valorDia = mw.ustring.gsub(cadena,'(%d+) de %a+ del? %d+.*','%1')
     if valorDia == nil or valorDia == '' or mw.ustring.len(valorDia) > 2 or type(tonumber(valorDia)) ~= 'number' then 
         return error 
     else
         dia = mw.ustring.format('%02d', tonumber(valorDia))
     end
     local valorMes = getNumeroMes(mw.ustring.gsub(cadena,'%d+ de (%a+) del? %d+.*','%1'))
     if valorMes == '00' then
        return error 
     else
         mes = mw.ustring.format('%02d',tonumber(valorMes))
     end
     local valorAnno = mw.ustring.gsub(cadena,'%d+ de %a+ del? (%d+).*','%1')
     if valorAnno == nil or valorAnno == '' or type(tonumber(valorAnno)) ~= 'number' then
         return error
     else
        anno = mw.ustring.format('%04d',tonumber(valorAnno))
     end
     local newCadena = anno..mes..dia
     return newCadena
 end
 
 function z.Numerica(frame)
     return setString(frame.args[1])
 end

 
return z