Adgellida: 1 revisión importada

2021-08-25T20:59:40Z

1 revisión importada

← Revisión anterior		Revisión del 22:59 25 ago 2021
(Sin diferencias)

Plantilla>Juan Mayordomo: Cambio menor

2014-08-31T18:55:20Z

Cambio menor

Página nueva

local z = {}

function z.Romano(frame)
local numero,argumentos,parent
local NumerosRomanosMenores4000 = {
{3000, "MMM"},{2000, "MM"},{1000, "M"},
{900, "CM"}, {800, "DCCC"}, {700, "DCC"}, {600, "DC"}, {500, "D"}, {400, "CD"},
{300, "CCC"}, {200, "CC"}, {100, "C"},
{90, "XC"},{80, "LXXX"},{70, "LXX"},{60, "LX"}, {50, "L"}, {40, "XL"},
{30, "XXX"},{20, "XX"},{10, "X"},
{9, "IX"}, {8, "VIII"},{7, "VII"},{6, "VI"}, {5, "V"}, {4, "IV"},
{3, "III"},{2, "II"}, {1, "I"}
}
if type(frame) == 'number' then -- Para poder llamarlo desde otro módulo fácilmente
numero = frame
else
argumentos = frame.args;
parent = frame:getParent();
numero = tonumber(argumentos[1] or parent.args[1]) --Número decimal que se quiere convertir a numeración romana
end

if numero == nil or numero == "" or numero >= 4000 then return "" end

local resultado = ''

for _, v in ipairs( NumerosRomanosMenores4000 ) do
local valor, letras = unpack( v )

if numero >= valor then
numero = numero - valor
resultado = resultado .. letras
end
end

return resultado
end

return z

Módulo:Números - Historial de revisiones

Adgellida: 1 revisión importada

Plantilla>Juan Mayordomo: Cambio menor