Модуль:Calendar

Функции

Находится в бета-версии (9518 байт). Об ошибках просьба сообщать на страницу обсуждения шаблона или самого модуля, или Carn. Если вы хотите поэкспериментировать, лучше делать это в альфа-версии (30 288 байт).

NthDay

{{ДатыСтрокой}}, {{Даты}}

• Получает 4 числовых аргумента, считает дату и выдаёт её в формате пятого, необязательного аргумента. Примеры использования (значения аргументов в скобках):
  • первое (1) воскресенье (0) октября (10) (2020) года ={{#invoke:Calendar|NthDay|1|0|10|2020}}= 04.10.20
  • вторая (2) среда (3) мая (5) (2019) года ={{#invoke:Calendar|NthDay|2|3|5|2019}}= 08.05.19
  • последний (-1) понедельник (1) января (1) (2010) года ={{#invoke:Calendar|NthDay|-1|1|1|2010}}= 25.01.10
  • предпоследняя (-2) суббота (6) декабря (12) (2001) года ={{#invoke:Calendar|NthDay|-2|6|12|2001}}= 22.12.01
  • третье (3) воскресенье (0) марта (3) (2024) года в формате ISO 8601={{#invoke:Calendar|NthDay|3|0|3|2024|%Y-%m-%d}}= 2024-03-17

unitime

{{НП/Формат времени}}

• Оформляет ссылку на UTC, если есть любой второй параметр — ставит летнее время
  • {{#invoke:Calendar|unitime|-0}} =
  • {{#invoke:Calendar|unitime|+0}} =
  • {{#invoke:Calendar|unitime|+2:00}} =
  • {{#invoke:Calendar|unitime|−3:30|}} =
  • {{#invoke:Calendar|unitime|+12:45|1}} =
  • {{#invoke:Calendar|unitime|-3:30|да}} =
  • {{#invoke:Calendar|unitime|CET}} =
  • {{#invoke:Calendar|unitime|EST|no}} =

OldDate

устарело

• Два обязательных аргумента, первый из которых — дата в формате ДД.ММ.ГГГГ или Д. М.ГГГГ, второй — григорианский/юлианский календарь, «г» или «ю»
• Необязательные аргументы bc (до нашей эры), а также параметры викификации wd, wm и wy, связанные, соответственно с вифификацией дня, месяца и года
• Можно использовать параметр sq_brts для использования квадратных скобок и параметр yearmark для нестандартного обозначения года
  • {{#invoke:Calendar|OldDate|1.1.1|ю|wd=1}} = ошибка!
  • {{#invoke:Calendar|OldDate|31.12.1|г|bc=1}} =
  • {{#invoke:Calendar|OldDate|{{#time: d.m.Y }}|г}} =
  • {{#invoke:Calendar|OldDate|11.2.1602|j|wd=1|wm=0|wy=1}} =
  • {{#invoke:Calendar|OldDate|11.2.1602|j|wd=1|wm=1|wy=1}} =
  • {{#invoke:Calendar|OldDate|11.2.1602|g|bc=1|yearmark=г.}} =
  • {{#invoke:Calendar|OldDate|11.2.1602|g|sq_brts=1|yearmark=0}} =

NewDate

{{DateStyle}}

• Аналогично функции выше, но может обрабатывать отрицательные даты и принимает жёстко только 2 формата d.m.y и y-m-d
  • {{#invoke:Calendar|NewDate|1.1.1|ю|wd=1}} =
  • {{#invoke:Calendar|NewDate|31.12.1|г|bc=1}} =
  • {{#invoke:Calendar|NewDate|{{#time: d.m.Y }}}} = (по умолчанию григорианский)
  • {{#invoke:Calendar|NewDate|11.2.1602|j|wd=1|wm=0|wy=1}} =
  • {{#invoke:Calendar|NewDate|11.2.1602|j|wd=1|wm=1|wy=1}} =
  • {{#invoke:Calendar|NewDate|11.2.1602|g|bc=1|yearmark=г.}} =
  • {{#invoke:Calendar|NewDate|11.2.1602|g|sq_brts=1|yearmark=0}} =

ToIso

• Получает полную дату дату в форматах с четырёхзначным годом и выдаёт дату в формате ГГГГ-ММ-ДД
  • 1.2.1602 ={{#invoke:Calendar|ToIso|1.2.1602}}= 1602-02-01
  • -2020-12-12 ={{#invoke:Calendar|ToIso|-2020-12-12}}=
  • 5 января 1002 ={{#invoke:Calendar|ToIso|5 января 1002}}=

BoxDate

• Получает дату с четырёхзначным годом, месяцем и опционально днём месяца, выдаёт читаемую
  • 06.1280 ={{#invoke:Calendar|BoxDate|06.1280}}=
  • 1820-07 ={{#invoke:Calendar|BoxDate|1820-07}}=
  • 2020-12, xg Y = {{#invoke:Calendar|BoxDate|2020-12|xg Y}}=
  • 08.08.1828 ={{#invoke:Calendar|BoxDate|08.08.1828}}=
  • July 12, 2020 ={{#invoke:Calendar|BoxDate|Jule 12, 2020}}=
  • 12 July 2020 ={{#invoke:Calendar|BoxDate|12 Jule 2020}}=
  • July 2020 ={{#invoke:Calendar|BoxDate|Jule 2020}}=
  • 13 août 1281, l W недели Y года ={{#invoke:Calendar|BoxDate|13 août 1281|l W недели Y года}}=
  • 13 января ={{#invoke:Calendar|BoxDate|13 января}}=

bxDate

Реализует указанные выше функции для вызова из других модулей (см. пример использования в Message box), todo:

• поддержка отрицательных лет (запоминание знака, обработка в положительном виде, приделывание "до н.э." в конце; 0000-01-01 невалидно)
• преобразование даты в ISO формат, получение строки форматирования и преобразование по ней (необходимы доп.проверки для неточных дат)
• отдавать параметры errorText и errorCat

ToDate

• Получает дату в формате Википедия:Функции парсера##time и возвращает в формате <число> <месяц в родительном падеже> <год>
• Если в строке нету символов препинания, то возвращает её неизменённой
  • 1.2.1602 ={{#invoke:Calendar|ToDate|1.2.1602}}=
  • 1/2/1602 ={{#invoke:Calendar|ToDate|1/2/1602}}=
  • 1602-02-01 ={{#invoke:Calendar|ToDate|1602-02-01}}=
  • 1 февраля 1602 ={{#invoke:Calendar|ToDate|1 февраля 1602}}= 1 февраля 1602
  • Завтра (+ 1 day) ={{#invoke:Calendar|ToDate|+ 1 day}}= + 1 day

---

local getArgs = require('Module:Arguments').getArgs
local p = {}

function p.NthDay( frame )
    -- копирование аргументов в локальную переменную
    local args = getArgs(frame, { frameOnly = true })
    -- таблица для перевода логической переменной в число
    local bool_to_number={ [true]=1, [false]=0 } 
    -- записывание переменных для использования в программе
    -- день недели в месяце по порядку, к примеру - ''первая/вторая/третья'' суббота месяца
    local num = math.floor(tonumber(args[1])) 
    -- день недели, который нужно получить в формате 0 это воскресенье, 6 это суббота
    local wday = math.floor(tonumber(args[2])) 
    -- месяц, для которого делается расчёт
    local mont = math.floor(tonumber(args[3])) 
    -- год, для которого делается расчёт
    local yea = math.floor(tonumber(args[4])) 
    -- проверка переменных на допустимость использования
    local format = args[5]
    if not format then format = "%d.%m.%y" end
    local err = "---"
    if num < -5 or num > 5 then 
        error("The number must be between -5 and 5")
    elseif num == 0 then
        error("The number must not be zero")
    end
    if wday < 0 or wday > 6 then 
        error("The day of the week must be between 0 and 6") end
    if mont < 0 or mont > 12 then 
        error("The month must be between 1 and 12") end
    if yea < 0 or yea > 9999 then 
        error("Wrong year number") end
    -- ветка расчётов с начала
    if num > 0 and num < 6 then
        -- получение значения в секундах для первого числа месяца, от которого идёт отсчёт
        local m_start = os.time{year=yea, month=mont, day=1, hour=0}
        -- получение дня недели 
        local m_wds = tonumber(os.date("%w", m_start))
        -- расчёт сдвига в днях и перевод в секунды   
        local start_shift = (
            (num - bool_to_number[wday >= m_wds]) * 7 
            - (m_wds - wday)
            ) * 24 * 60 * 60
        local tim = m_start + start_shift
        -- вывод результата в необходимом формате даты
        if tonumber(os.date("%m", tim)) == mont then
            return (os.date(format, tim))
        else
            return (err)
        end
    -- ветка расчётов с конца
    elseif num < 0 and num > -6 then
        -- получение значения в секундах для последнего числа месяца, от которого идёт отсчёт
        local m_end = os.time{year = yea, 
            month = mont + 1, day = 1, hour = 0} 
            - 24 * 60 * 60
        -- получение дня недели конца месяца
        local m_wde = tonumber(os.date("%w", m_end))
        -- расчёт сдвига в днях и перевод в секунды
        local end_shift = ((math.abs(num + 1) + bool_to_number[wday > m_wde]) * 7 
            + (m_wde - wday)) * 24 * 60 * 60
        local tim = m_end - end_shift
        if tonumber(os.date("%m", tim)) == mont then
            return (os.date(format, tim))
        else
            return (err)
        end
    end
end

function p.gri2jul( frame )
    local args = getArgs(frame, { frameOnly = true })
    local datein = args[1]
    -- парсинг входящей даты по шаблону
    local pattern = "(%d+)%.(%d+)%.(%d+)"
    local dayin, monthin, yearin = datein:match(pattern)
    local year = tonumber(yearin)
    local month = tonumber(monthin)
    local day = tonumber(dayin)
    -- проверка параметров
    if not (type(year) == 'number') then 
        return error("Wrong year")
    end
    if not (1 <= month and month <= 12) then 
        return error("Wrong month")
    end
    if not (1 <= day and day <= 31) then 
        return error("Wrong day")
    end
    -- расчёт юлианской даты
    local a = math.floor((14 - month)/12) 
    local y = year + 4800 - a
    local m = month + 12*a - 3
    local offset = math.floor(y/4) - math.floor(y/100) + math.floor(y/400) - 32045 
    local jd = day + math.floor((153*m + 2)/5) + 365*y + offset
    -- проверка попадания юлианской даты в границы между -9999 и 9999 годами Ю.К.
    local low, high = -1931076.5, 5373557.49999
    if not (low <= jd and jd <= high) then
        return error("Wrong date")
    end
    -- расчёт даты по юлианскому календарю
    local c = jd + 32082
    local d = math.floor((4*c + 3)/1461)
    local e = c - math.floor(1461*d/4)
    local m = math.floor((5*e + 2)/153)
    local year_out = d - 4800 + math.floor(m/10)
    local month_out = m + 3 - 12*math.floor(m/10)
    local day_out = e - math.floor((153*m + 2)/5) + 1
    -- вывод даты в формате ГГГГ-ММ-ДД
    local date = os.date("%Y-%m-%d", os.time{year=year_out, month=month_out, day=day_out})
    return date
end

function p.jul2gri( frame )
    local args = getArgs(frame, { frameOnly = true })
    local datein = args[1]
    -- парсинг входящей даты по шаблону
    local pattern = "(%d+)%.(%d+)%.(%d+)"
    local dayin, monthin, yearin = datein:match(pattern)
    local year = tonumber(yearin)
    local month = tonumber(monthin)
    local day = tonumber(dayin)
    -- проверка параметров
    if not (type(year) == 'number') then 
        return error("Wrong year")
    end
    if not (1 <= month and month <= 12) then 
        return error("Wrong month")
    end
    if not (1 <= day and day <= 31) then 
        return error("Wrong day")
    end
    -- расчёт юлианской даты
    local a = math.floor((14 - month)/12) 
    local y = year + 4800 - a
    local m = month + 12*a - 3
    local offset = math.floor(y/4) - 32083
    local jd = day + math.floor((153*m + 2)/5) + 365*y + offset
    -- проверка попадания юлианской даты в границы -9999 до 9999 года Г.К.
    local low, high = -1930999.5, 5373484.49999
    if not (low <= jd and jd <= high) then
        return error("Wrong date")
    end
    -- расчёт даты по григорианскому календарю
    local a = jd + 32044
    local b = math.floor((4*a + 3) / 146097)
    local c = a - math.floor(146097*b/4)
    local d = math.floor((4*c+3)/1461)
    local e = c - math.floor(1461*d/4)
    local m = math.floor((5*e+2)/153)
    local day_out =  e - math.floor((153*m+2)/5)+1
    local month_out = m + 3 - 12*math.floor(m/10)
    local year_out = 100*b + d - 4800 + math.floor(m/10)
    local date = os.date("%Y-%m-%d", os.time{year=year_out, month=month_out, day=day_out})
    return date
end

function p.ToIso( frame )
    local args = getArgs(frame, { frameOnly = true })
    local datein = args[1]
    -- парсинг входящей даты по шаблону
    local pattern = "(%d+)%.(%d+)%.(%d+)"
    local dayin, monthin, yearin = datein:match(pattern)
    local year = tonumber(yearin)
    local month = tonumber(monthin)
    local day = tonumber(dayin)
    -- проверка параметров
    if not (type(year) == 'number') then 
        return error("Wrong year")
    end
    if not (1 <= month and month <= 12) then 
        return error("Wrong month")
    end
    if not (1 <= day and day <= 31) then 
        return error("Wrong day")
    end
    local timedate = os.time{year=year, month=month, day=day}
    local date = os.date("%Y-%m-%d", timedate)
    return date
end

function p.ToDate( frame )
    local args = getArgs(frame, { frameOnly = true })
    local datein = args[1]
    if not not string.match(datein, "%-") then
    -- парсинг входящей даты по шаблону ГГГГ-ММ-ДД
        local pattern = "(%d+)%-(%d+)%-(%d+)"
        local yearin, monthin, dayin = datein:match(pattern)
    elseif not not string.match(datein, "%.") then
    -- парсинг входящей даты по шаблону ДД.ММ.ГГГГ
        local pattern = "(%d+)%.(%d+)%.(%d+)"
        local dayin, monthin, yearin  = datein:match(pattern)
    elseif not not string.match(datein, "%/") then
    -- парсинг входящей даты по шаблону ДД/ММ/ГГГГ
        local pattern = "(%d+)%/(%d+)%/(%d+)"
        local dayin, monthin, yearin  = datein:match(pattern)
    else return datein -- пока предполагаем так
    end
    local year = tonumber(yearin)
    local month = tonumber(monthin)
    local day = tonumber(dayin)
    -- проверка параметров
    if not (type(year) == 'number') then 
        return error("Wrong year", year)
    end
    if not (1 <= month and month <= 12) then 
        return error("Wrong month", month)
    end
    if not (1 <= day and day <= 31) then 
        return error("Wrong day", day)
    end
    local timedate = os.time{year=year, month=month, day=day}
--  local date = os.date("%Y-%m-%d", timedate)
    local date = lang:formatDate( 'j xg Y', timedate, true )
    return date
end

return p