gestor/comparar_tempo.lua

247 lines
6.8 KiB
Lua

--[[
Mod Gestor para Minetest
Copyright (C) 2018 BrunoMine (https://github.com/BrunoMine)
Recebeste uma cópia da GNU Lesser General
Public License junto com esse software,
se não, veja em <http://www.gnu.org/licenses/>.
Contador de tempo
]]
-- Quantos dias tem cada mes
local dias_meses = {
31, -- Janeiro
28, -- Fevereiro (29 em ano bissexto)
31, -- Março
30, -- Abril
31, -- Maio
30, -- Junho
31, -- Julho
31, -- Agosto
30, -- Setembro
31, -- Outubro
30, -- Novembro
31 -- Dezembro
}
-- Pegar dias do mes naquele ano
local pegar_dias_mes = function(mes, ano)
-- converter para valor numerico
mes = tonumber(mes)
ano = tonumber(ano)
-- ajustando para numero entre 1 e 12
if mes > 12 then mes = mes - (math.floor(mes/12)*12) end
-- caso o mes de zero
if mes == 0 then mes = 12 end
if mes == 2 and math.fmod(ano, 4) == 0 then
return dias_meses[mes] + 1
else
return dias_meses[mes]
end
end
-- Pegar numero maior
local pegar_maior = function(n1, n2)
if tonumber(n1) > tonumber(n2) then
return n1
else
return n2
end
end
-- Pegar numero menor
local pegar_menor = function(n1, n2)
if n1 < n2 then
return n1
else
return n2
end
end
-- Comparar data
--[[
Esse metodo recebe uma data como argumento e retorna
as quantidades de dias, horas e minutos em relação à
data atual
Retorno:
<diferença de dias>
<diferença de horas>
<diferença de minutos>
Argumentos:
<ano da data>
<mes da data>
<dia do mes da data>
<hora do dia da data>
<minutos da hora do dia da data>
]]
gestor.comparar_data = function(ano, mes, dia, hora, minuto)
if not ano or not tonumber(ano) then
minetest.log("error", "[Gestor] Ano invalido em especificado (em gestor.comparar_data)")
return false
end
if not mes or not tonumber(mes) then
minetest.log("error", "[Gestor] Mes invalido em especificado (em gestor.comparar_data)")
return false
end
if not dia or not tonumber(dia) then
minetest.log("error", "[Gestor] Dia invalido em especificado (em gestor.comparar_data)")
return false
end
if not hora or not tonumber(hora) then
minetest.log("error", "[Gestor] Hora invalido em especificado (em gestor.comparar_data)")
return false
end
if not minuto or not tonumber(minuto) then
minetest.log("error", "[Gestor] Minuto invalido em especificado (em gestor.comparar_data)")
return false
end
-- Conversoes
ano = tonumber(ano)
mes = tonumber(mes)
dia = tonumber(dia)
hora = tonumber(hora)
minuto = tonumber(minuto)
-- Pegando data atual
local ano_atual = tonumber(os.date("%Y"))
local mes_atual = tonumber(os.date("%m"))
local dia_atual = tonumber(os.date("%d"))
local hora_atual = tonumber(os.date("%H"))
local minuto_atual = tonumber(os.date("%M"))
-- Pegar diferença de ano
local dif_ano = ano - ano_atual
-- Pegar diferença de meses
local dif_meses = mes - (mes_atual - (dif_ano*12)) -- (considerando os meses de um ano para outro)
-- Pegar a diferença de dias
local dif_dias = 0
-- Pegar dias dos meses que passaram
if dif_meses > 0 then -- do mes atual ate o mes futuro (apenas os meses inteiros, logo o ultimo nao conta, por isso o menos 1)
local a = ano_atual -- ano do mes contado
local n = mes_atual -- qual mes do ano contado
for m=mes_atual, mes_atual+dif_meses-1 do
if n > 12 then
n = n - 12
a = a + 1
end
dif_dias = dif_dias + pegar_dias_mes(m, a)
n = n + 1
end
elseif dif_meses < 0 then -- do mes passado do passado ate o mes atual
local a = ano -- ano do mes contado
local n = mes -- qual mes do ano contado
for m=mes, mes+math.abs(dif_meses)-1 do
if n > 12 then
n = n - 12
a = a + 1
end
dif_dias = dif_dias + pegar_dias_mes(m, a)
n = n + 1
end
dif_dias = dif_dias * (-1) -- mantem valor negativo por estar no passado
end
-- Adiciona a diferença de dias conforme os dias do mes de cada data
dif_dias = dif_dias + (dia - dia_atual)
-- Pegar diferença de horas
local dif_horas = 0
if dif_dias > 0 then
if hora >= hora_atual then
dif_horas = hora - hora_atual
else
dif_dias = dif_dias - 1
dif_horas = (hora + 24) - hora_atual
end
elseif dif_dias < 0 then
dif_dias = dif_dias + 1 -- (1 dia é tirado para ser fracionado em horas pois 1 desses dias não foi inteiro)
dif_horas = (24-hora) + hora_atual -- (desconta as horas de 24 horas de um dia que foi descontado)
if dif_horas >= 24 then
dif_dias = dif_dias - 1
dif_horas = dif_horas - 24
end
dif_horas = dif_horas * (-1) -- mantem valor negativo por estar no passado
else -- A data é do mesmo dia
dif_horas = hora - hora_atual
end
-- Pegar diferença de minutos
local dif_minutos = 0
if dif_horas > 0 then
if minuto >= minuto_atual then
dif_minutos = minuto - minuto_atual
else
dif_horas = dif_horas - 1
dif_minutos = (minuto + 60) - minuto_atual
end
elseif dif_horas < 0 then
dif_horas = dif_horas + 1 -- (1 dia é tirado para ser fracionado em horas pois 1 desses dias não foi inteiro)
dif_minutos = (60-minuto) + minuto_atual -- (desconta as horas de 24 horas de um dia que foi descontado)
if dif_minutos >= 60 then
dif_horas = dif_horas - 1
dif_minutos = dif_minutos - 60
end
dif_minutos = dif_minutos * (-1) -- mantem valor negativo por estar no passado
else -- A data é da mesma hora
dif_minutos = minuto - minuto_atual
end
-- Reajuste de valores (caso o saldo de horas esteja incompativel com saldo de dias)
if dif_horas > 1 and dif_dias < 1 then
dif_dias = dif_dias + 1
dif_horas = dif_horas - 24
end
if dif_horas < 1 and dif_dias > 1 then
dif_dias = dif_dias - 1
dif_horas = dif_horas + 24
end
return dif_dias, dif_horas, dif_minutos
end
-- Calcular data_fim
-- Tabela de argumentos
-- data_add = {
-- anos = 1, -- Anos para para o fim
-- meses = 1, -- Idem
-- dias = 1, -- Idem
-- horas = 1, -- idem
-- minutos = 1, -- idem
-- }
gestor.calcular_data_fim = function(data_add)
local data_atual = os.date("%Y %m %d %H %M")
data_atual = string.split(data_atual, " ")
local data_fim = {
tonumber(data_atual[1]+data_add.anos),
tonumber(data_atual[2]+data_add.meses),
(tonumber(data_atual[3])+data_add.dias),
(tonumber(data_atual[4])+data_add.horas),
(tonumber(data_atual[5])+data_add.minutos)
}
if data_fim[5] >= 60 then
data_fim[4] = data_fim[4] + 1
data_fim[5] = data_fim[5] - 60
end
if data_fim[4] >= 24 then
data_fim[3] = data_fim[3] + 1
data_fim[4] = data_fim[4] - 24
end
if data_fim[3] > 30 then
data_fim[2] = data_fim[2] + 1
data_fim[3] = data_fim[3] - 30
end
if data_fim[2] > 12 then
data_fim[1] = data_fim[1] + 1
data_fim[2] = data_fim[2] - 12
end
return data_fim
end