Módulo:Calendário

Documentação do módulo[ver] [editar] [histórico] [purgar]

Descrição

Converte datas entre os calendários Gregoriano e Juliano. Usado pelo Módulo:Data complexa.

Uso

Gregorian2Julian

Conversão de uma data no calendário gregoriano para uma data no calendário juliano.

• {{#invoke:Calendário|Gregorian2Julian|+2018-12-30}} → 17-12-2018

Julian2Gregorian

Conversão de uma data no calendário juliano para uma data no calendário gregoriano.

• {{#invoke:Calendário|Julian2Gregorian|+2018-12-17}} → 30-12-2018

DayOfWeek

Retorna o nome do dia da semana correspondente a data inserida seguindo o calendário gregoriano.

• {{#invoke:Calendário|DayOfWeek|+2018-12-30}} → domingo

date2jdn

Calcula a data juliana da data inserida. Além da data, a função também exige um segundo parâmetro: 0 para indicar que a data está seguindo o calendário gregoriano e 1 para indicar que a data está seguindo o calendário juliano.

• {{#invoke:Calendário|date2jdn|+2018-12-30|1}} → 2458483
• {{#invoke:Calendário|date2jsn|+2018-12-17|0}} → 2458483

Testes unitários

Todos os testes passaram.

test_date2jdn

	Texto	Esperado	Atual
Sim	{{#invoke:Calendário|date2jdn|+2018-12-30|1}}	2458483	2458483
Sim	{{#invoke:Calendário|date2jdn|+2018-12-17|0}}	2458483	2458483

test_dayofweek

	Texto	Esperado	Atual
Sim	{{#invoke:Calendário|DayOfWeek|+2018-12-30}}	domingo	domingo
Sim	{{#invoke:Calendário|DayOfWeek|+2000-01-01}}	sábado	sábado
Sim	{{#invoke:Calendário|DayOfWeek|+1901-01-01}}	terça-feira	terça-feira
Sim	{{#invoke:Calendário|DayOfWeek|+1900-01-01}}	segunda-feira	segunda-feira
Sim	{{#invoke:Calendário|DayOfWeek|+30-12-2018}}	Erro ao passar data: +30-12-2018	Erro ao passar data: +30-12-2018

test_gregorian2julian

	Texto	Esperado	Atual
Sim	{{#invoke:Calendário|Gregorian2Julian|+2018-12-30}}	17-12-2018	17-12-2018
Sim	{{#invoke:Calendário|Gregorian2Julian|+2000-01-01}}	19-12-1999	19-12-1999
Sim	{{#invoke:Calendário|Gregorian2Julian|+1901-01-01}}	19-12-1900	19-12-1900
Sim	{{#invoke:Calendário|Gregorian2Julian|+1900-01-01}}	20-12-1899	20-12-1899
Sim	{{#invoke:Calendário|Gregorian2Julian|+30-12-2018}}	Erro ao passar data: +30-12-2018	Erro ao passar data: +30-12-2018

test_julian2gregorian

	Texto	Esperado	Atual
Sim	{{#invoke:Calendário|Julian2Gregorian|+2018-12-17}}	30-12-2018	30-12-2018
Sim	{{#invoke:Calendário|Julian2Gregorian|+1999-12-19}}	01-01-2000	01-01-2000
Sim	{{#invoke:Calendário|Julian2Gregorian|+1900-12-19}}	01-01-1901	01-01-1901
Sim	{{#invoke:Calendário|Julian2Gregorian|+1899-12-20}}	01-01-1900	01-01-1900
Sim	{{#invoke:Calendário|Julian2Gregorian|+30-12-2018}}	Erro ao passar data: +30-12-2018	Erro ao passar data: +30-12-2018

--[[
Módulo copiado do Módulo:Calendar do Wikimedia Commons
Lá, quem o mantém é o usuário: Jarekt
]]

local p = {}

-- Convert "Julian day number" (jdn) to a calendar date
-- "gregorian" is a 1 for gregorian calendar and 0 for Julian
-- based on https://en.wikipedia.org/wiki/Julian_day#Converting_Julian_or_Gregorian_calendar_date_to_Julian_day_number
function p._jdn2date(jdn, gregorian)
  local gregorian = tonumber(gregorian)
  local f, e, g, h, year, month, day

	f = jdn + 1401
	if gregorian>0 then
		 f = f + math.floor((math.floor((4*jdn + 274277) / 146097) * 3) / 4) - 38
	end
	e = 4*f + 3
	g = math.floor(math.fmod(e, 1461) / 4)
	h = 5*g + 2
	day   = math.floor(math.fmod (h,153) / 5) + 1
	month = math.fmod (math.floor(h/153) + 2, 12) + 1
	year  = math.floor(e/1461) - 4716 + math.floor((14 - month) / 12)
	
	-- If year is less than 1, subtract one to convert from a zero based date system to the
	-- common era system in which the year -1 (1 B.C.E) is followed by year 1 (1 C.E.).
	if year < 1 then
			year = year - 1
	end
	
	return string.format('%02i-%02i-%04i', day, month, year)
end

-- Convert calendar date to  "Julian day number" (jdn) 
-- "gregorian" is a 1 for gregorian calendar and 0 for Julian
-- based on  https://en.wikipedia.org/wiki/Julian_day#Converting_Julian_or_Gregorian_calendar_date_to_Julian_day_number
-- explanation based on http://www.cs.utsa.edu/~cs1063/projects/Spring2011/Project1/project1.html
function p._date2jdn(ISOdate, gregorian)
	local gregorian = tonumber(gregorian)
	local year, month, day = ISOdate:match( "(-?%d%d%d%d)-(%d%d)-(%d%d)" )
	if not year then
		return nil
	elseif tonumber(year) < 0 then
		-- If year is less than 0, add one to convert from  the common era system in which
	    -- the year -1 (1 B.C.E) is followed by year 1 (1 C.E.) to a zero based date system
		year = year + 1
	end
	local a, b, c, d, y, m
	a = math.floor((14-month) / 12) -- will be 1 for January and February, and 0 for other months.
	y = year + 4800 - a             -- years since year –4800
	m = month + 12*a - 3            -- month number where 10 for January, 11 for February, 0 for March, 1 for April
	c = math.floor((153*m + 2)/5)   -- number of days since March 1
	if gregorian>0 then	
		b = math.floor(y/4) - math.floor(y/100) + math.floor(y/400) -- number of leap years since y==0 (year –4800)
		d = 32045                     -- offset so the result will be 0 for January 1, 4713 BCE
	else
		b = math.floor(y/4)           -- number of leap years since y==0 (year –4800)
		d = 32083                     -- offset so the result will be 0 for January 1, 4713 BCE
	end
	return day + c + 365*y + b - d
end

-- Convert a date from Gregorian to Julian calendar
function p.Gregorian2Julian(frame)
	local JDN = p._date2jdn(frame.args[1], 1)
	if JDN then
		return p._jdn2date(JDN, 0)
	else
		return "Erro ao passar data: " .. frame.args[1]
	end
end

-- Convert a date from Julian to Gregorian calendar
function p.Julian2Gregorian(frame)
	local JDN = p._date2jdn(frame.args[1], 0)
	if JDN then
		return p._jdn2date(JDN, 1)
	else
		return "Erro ao passar data: " .. frame.args[1]
	end
end

-- Return day of week based on gregorian date. Mon->1, Tue->2, ..., Sun->7
function p.DayOfWeek(frame)
	local JDN = p._date2jdn(frame.args[1], 1)
	if JDN then
		local day = math.fmod(JDN, 7) + 1
		if day then
			local LUT = { "segunda-feira", "terça-feira", "quarta-feira", "quinta-feira", "sexta-feira", "sábado", "domingo" }
			return LUT[day]
		else
			return "Erro ao passar data: " .. frame.args[1]
		end
	else
		return "Erro ao passar data: " .. frame.args[1]
	end
end

-- Convert calendar date to  "Julian day number" (jdn)
function p.date2jdn(frame)
	return p._date2jdn(frame.args[1] or os.date('%F'), frame.args[2] or 1)
end

return p