Exibir código-fonte para Módulo:Conversor de data

local p = {}

local month_names = {"janeiro", "fevereiro", "março", "abril", "maio", "junho", "julho", "agosto", "setembro", "outubro", "novembro", "dezembro"}

local function d_m_y(day, month, year)
	year = tonumber(year)
	day = tonumber(day)
	month = tonumber(month)
    
	-- Inverte dia pelo ano, caso o formato da data for xxxx/xx/xx
	if (day and day > 100) then
		day, year = year, day
	end

	-- Soma dois mil caso a data inserida for de dois dígitos
	if (year and year < 100) then
		year = year + 2000
	end

	-- Inverte dia pelo mes, caso o formato da data mês/dia/ano
	if (month and (month > 12 and month < 32)) then
		day, month = month, day
	end

	-- Algumas poucas páginas tinham erro de índice inexistente para o mês
	if (month and (month > 12 or month < 1)) then
		month = nil
	end

	if (day and month and year) ~= nil then
		return day .. " de " .. month_names[month] .. " de " .. year
	end

	return nil
end

local function m_y(month, year)
	year = tonumber(year)
	month = tonumber(month)
    
	-- Retorna nil se nenhum dos números for ano maior que 1000
	if not year or not month or (year < 1000 and month < 1000) then
		return nil
	end
	
	-- Inverte mês pelo ano, caso o formato da data ano/mês
	if month > 1000 then
		month, year = year, month
	end
	
	-- Algumas poucas páginas tinham erro de índice inexistente para o mês
	if month > 12 or month < 1 then
		return nil
	end

	if (month and year) ~= nil then
		return month_names[month] .. " de " .. year
	end

	return nil
end

function p.main(frame)
	local date = frame.args[1]
	local converted
	local day, month, year = string.match(date, "^(%d+)[/%.%-](%d+)[/%.%-](%d+)$")
	if day then
		converted = d_m_y(day, month, year)
	else
		month, year = string.match(date, "^(%d+)[/%.%-](%d+)$")
		converted = m_y(month, year)
	end
	return converted or date
end

return p