Модуль:Dates

Материал из Викитеки — свободной библиотеки
Перейти к навигации Перейти к поиску

Для документации этого модуля может быть создана страница Модуль:Dates/Документация

--[[
 В это модуле собраны функции, связанные с работой с датами.
]]

local p = {}

-- Названия месяцев в именительном и родительном падежах
local nominativeMonthes = {
  [1] = 'январь', [2] = 'февраль', [3] = 'март', [4] = 'апрель', [5] = 'май', [6] = 'июнь',
  [7] = 'июль', [8] = 'август', [9] = 'сентябрь', [10] = 'октябрь', [11] = 'ноябрь', [12] = 'декабрь'
}

local genitivusMonthes = {
  [1] = 'января', [2] = 'февраля', [3] = 'марта', [4] = 'апреля', [5] = 'мая', [6] = 'июня',
  [7] = 'июля', [8] = 'августа', [9] = 'сентября', [10] = 'октября', [11] = 'ноября', [12] = 'декабря'
}

function p.getMonthGen(n_month)
    assert(n_month >= 1 and n_month <= 12, "getMonthGen: invalid month (".. tostring(n_month) ..")")
    return genitivusMonthes[n_month]
end

function p.getMonthNom(n_month)
    assert(n_month >= 1 and n_month <= 12, "getMonthNom: invalid month (".. tostring(n_month) ..")")
    return nominativeMonthes[n_month]
end

local monthd = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}

local function DecodeDate(d)-- Ч, М, Г, СЧ, СМ, СГ, хвост
    --дата: "%-?%d+"=год, "%d+%.%d+"=число месяца, "%d+%.%d+%.%-?%d+"=ЧМГ,
    -- потом в скобках м.б. переопределено для старого стиля начиная с числа
    local nd=d:match("^[%d.-]*");
    local od=d:match("^[%d.-]*%s*%(%s*([%d.-]*)%s*%)");
    local tail = d:match("^[%d.-]+%s*%(%s*[%d.-]+%s*%)%s*(%S.*)") or d:match("^[%d.-]+%s*([^%s%d].*)");
    if nd:match('^%-?%d+$' ) then
        return nil, nil, tonumber(nd), nil, nil, od and tonumber(od:match("%-?%d+$")),tail
    else
        local j,m,y=nd:match("^(%d+)%.(%d+)%.?(%-?%d*)");
        if j then
            if od then
                local oj, om, oy = od:match("^(%d+)%.?(%d*)%.?(%-?%d*)");
                return j and tonumber(j),
                       m and tonumber(m),
                       y>'' and tonumber(y) or nil,
                      oj and tonumber(oj),
                      om>'' and tonumber(om) or nil,
                      oy>'' and tonumber(oy) or nil,
                      tail
            end
            return j and tonumber(j), m and tonumber(m), y>'' and tonumber(y) or nil, nil, nil, nil, tail
        else return nil
        end
    end
end

local function Diffy(d1,m1,y1,d0,m0,y0)--аналог Персона/Дата/Прошло лет
    return y1-y0 - ( y1*y0<=0 and 1 or 0 ) - ( (m1<m0 or m1==m0 and d1<d0) and 1 or 0 )
end

local function Year0(y,t)-- аналог Год0
    if y>0 then return table.concat{
        '[[w:', tostring(y), ' год|', t and tostring(y)..'&nbsp;'..t or tostring(y), ']]'
    } else return table.concat{
        '[[w:', tostring(-y), ' год до н. э.|', 
        t and tostring(-y)..'&nbsp;'..t or tostring(-y),
        '&nbsp;до&nbsp;н.&nbsp;э.]]'
    }
    end
end

local function FormDate(j,m,y,oj,om,oy,mo)-- ~ Персона/Дата/Logic 4
    if j then
        if not m then return "''формат неверен''" end
        if y then return
         string.format(
            '<span style="white-space:nowrap;">%s<span style="display:none">(<span class="%s">%04i-%02i-%02i</span>)</span></span>',
            table.concat(
                oj and (
                    om and (
                        oy and {-- ДД ММММ ГГГГ ([[w:ДД ММММ]] [[w:ГГГГ]])
                            oj,'&nbsp;',genitivusMonthes[om],'&nbsp;',oy,
                            '</span> <span style="white-space:nowrap;">([[w:',
                            j, ' ', genitivusMonthes[m], '|', j, ' ', genitivusMonthes[m], ']] ',Year0(y),')'
                        } or {-- ДД ММММ ([[w:ДД ММММ]]) [[w:ГГГГ]]
                            oj,'&nbsp;',genitivusMonthes[om],' ([[w:',j,'&nbsp;',genitivusMonthes[m],'|',j,'&nbsp;',genitivusMonthes[m],']]) ',Year0(y)
                        }
                    ) or {-- [[w:ДД ММММ|ДД (ДД) ММММ]] [[w:ГГГГ]]
                        '[[w:',j,' ',genitivusMonthes[m],'|',oj,'&nbsp;(',j,')&nbsp;',genitivusMonthes[m],']] ',Year0(y)
                    }
                ) or {'[[w:',j,'&nbsp;',genitivusMonthes[m],'|',j,'&nbsp;',genitivusMonthes[m],']]&nbsp;',Year0(y)}
            ),--/table.concat
            ({['Рождения']='bday',['Смерти']='dday'})[mo] or '',
            y,m,j
         )--/string.format
        else return
            '<span style="white-space:nowrap;">' .. table.concat(
                oj and (
                    om and {-- ДД ММММ ([[w:ДД ММММ]])
                            oj,'&nbsp;',genitivusMonthes[om],' ([[w:',j,'&nbsp;',genitivusMonthes[m],'|',j,'&nbsp;',genitivusMonthes[m],']])</span>'
                    } or {-- [[w:ДД ММММ|ДД (ДД) ММММ]]
                        '[[w:',j,' ',genitivusMonthes[m],'|',oj,'&nbsp;(',j,')&nbsp;',genitivusMonthes[m],']]</span>'
                    }
                ) or {'[[w:',j,'&nbsp;',genitivusMonthes[m],'|',j,'&nbsp;',genitivusMonthes[m],']]</span>'}
            )
        end
    else
        return y and string.format(
            '<span style="white-space:nowrap;">%s<span style="display:none;">(<span class="bday">%04i</span>)</span></span>',
            Year0(y,'год'),y) or "''формат неверен''"
    end
end

local function GetDate(D)--dd.mm.-?yyyy или -?yyyy-mm-dd в три переменных d,m,y
    local d,m,y = d:match('^%s*(%d%d?)[/.]([01]?%d)[/.](%-?%d+)')
    if not d then y,m,d = D:match('^%s*(%-?%d+)[-\\]0*(1?%d)[-\\]0*(%d+)') end
    return tonumber(d),tonumber(m),tonumber(y)
end

local function Cmp(a,b)--Сравнивает две даты, результат соответственно -1, 0 или 1 
    local d1,m1,y1 = GetDate(a)
    local d2,m2,y2 = GetDate(b)
    return d1 and d2 and (--nil, если формат не опознан
        y1==y2 and (
            m1==m2 and (
                d1==d2 and 0 or d1<d2 and -1 or 1
            ) or m1<m2 and -1 or 1
        ) or y1<y2 and -1 or 1
    )
end

local function Yyyymmdd(r)--Переводит русскую дату в YYYY,MM,DD
    local d,m,y,M=mw.ustring.match(r, "^%s*(%d%d?)%s+([а-яА-Я]+)%s+(%d+)")
    if not m then return nil end
    m=mw.ustring.lower(m)
    for i=1,12 do if m==genitivusMonthes[i] then M=i;break end end--тупо перебор
    if not M then return nil end
    return tonumber(y),M,tonumber(d)
end

function p.ifdate(f)-- Для шаблона "Если дата", имитирует старое поведение
 -- Аргументы передаются шаблону 
 return f:getParent().args[ mw.ustring.match(frame.args[1],"^[ %d.%-−%()]*$") and 2 or 3 ]
end;
--DecodeDate=DecodeDate;Diffy=Diffy;Year0=Year0;GetDate=GetDate;Cmp=Cmp;Yyymmdd=Yyymmdd;

function p.diffy (f)-- принимает параметры #invoke в виде двух строк-дат
    local d1,m1,y1=DecodeDate(f.args[1]);
    local d0,m0,y0=DecodeDate(f.args[2])
    return Diffy(d1,m1,y1,d0,m0,y0)
end;

function p.monthg(f)
    return genitivusMonthes[ f.args[1] or f:getParent().args[1] ]
end;--realmonth

function p.persdate(f)-- Для шаблона Персона/Дата;{{#invoke:dates|persdate|nocat={{NAMESPACE}}}}
 local frame=f:getParent();
 local catpref,mo,d,d2={['Рождения']='Родившиеся',['Смерти']='Умершие'}, frame.args[1],frame.args[2],frame.args[3]
 local cat, j,m,y,oj,om,oy,tail, j2,m2,y2, age = ''
 if d then
     j,m,y,oj,om,oy,tail=DecodeDate(d:gsub('−','-'));
     if not (j or y) then
         return (frame.args.nocat and d or d..'[[К:Википедия:Статьи с ручной викификацией дат в карточке]]')
     end
 end;
 if d2 then
     j2,m2,y2 = DecodeDate(d2:gsub('−','-'));
 end;
 return table.concat{
     FormDate(j,m,y,oj,om,oy,mo),
     ( (frame.args['nopersoncat'] or '')~='' or (f.args['nocat'] or '')~='' ) and '' or table.concat{
         '[[К:Персоналии по алфавиту]]',
         j and string.format('[[К:%s %i %s]]',catpref[mo],j,genitivusMonthes[m]) or '',
         y and string.format('[[К:%s в %s]]',catpref[mo],y,Year0(y,'году')) or ''
     },--/table.concat внутр.
     (function(F)--возраст
         if not F then return '' end;
         local n=F();
         return n and string.format(" (%i %s)%s",
             n,
             mw.getLanguage('ru'):plural(n,'год','года','лет'),
             n>150 and '[[К:Википедия:Статьи о персоналиях с большим текущим возрастом]]' or ''
         ) or ''
     end)( ({
         ['Рождения']=function()
             local now=os.date('*t');
             if (not d2 or d2=='') and j and m and y then
                 return Diffy(now.day,now.month,now.year,j,m,y)
             end
         end,
         ['Смерти']=function()
             return j and m and y and j2 and m2 and y2 and Diffy(j,m,y,j2,m2,y2);
         end,
     })[mo] ),--конец вызова функции возраста
     tail or '',
     cat
 }--/table.concat внеш.
end;

function p.formdate(f) -- Формирует дату по 3--6 параметрам #invoke или шаблона
    --не использовать с пустыми аргументами
    if (f.args[1] or '')~='' and (f.args[2] or '')~='' or (f.args[3] or '')~='' then
        return FormDate(f.args[1],f.args[2],f.args[3],f.args[4],f.args[5],f.args[6],f.args['m'])
    else
        local tf=f:getParent();
        return FormDate(tf.args[1],tf.args[2],tf.args[3],tf.args[4],tf.args[5],tf.args[6],tf.args['m'])
    end
end;

function p.cmp(f)--Сравнивает две даты, результат соответственно -1, 0 или 1
    return Cmp(f.args[1],f.args[2])
end;

function p.G2J(f)--перевод григорианских дат в юлианские, возврат DD.MM.YYYY
--Не знает про 15 октября 1582 года, не работает до нашей эры и после ???99 года
--Если есть второй аргумент, преобразует только ДО этой даты включительно
--Если есть третий аргумент, результат форматирует под Персона/Дата
    local d,m,y=GetDate(f.args[1])
    if f.args[2] and Cmp(f.args[1],f.args[2])==1 then
        return string.format("%i.%i.%i",d,m,y)
    end
    local shift=math.floor(y/100)-math.floor(y/400)-2
    if d-shift>0 then
        return f.args[3] and string.format("%i.%i.%i (%i)",d,m,y,d-shift)
        or string.format("%i.%i.%i",d-shift,m,y)
    else
        if m==1 then
            return f.args[3]
            and string.format("%i.1.%i (%i.12.%i)",d,y,31+d-shift,y-1)
            or string.format("%i.12.%i",31+d-shift,y-1)
        elseif m==3 then
            return f.args[3] and string.format("%i.3.%i (%i.2)", d,y,
                (y%4==0 and 29 or 28)+d-shift-(y%100==0 and y%400~=0 and 1 or 0)
            )
            or string.format("%i.2.%i",
                (y%4==0 and 29 or 28)+d-shift-(y%100==0 and y%400~=0 and 1 or 0)
            ,y)
        else
            return f.args[3] and string.format(
                "%i.%i.%i (%i.%i)", d,m,y, monthd[m-1]+d-shift,m-1
            )
            or string.format("%i.%i.%i",monthd[m-1]+d-shift,m-1,y)
        end
    end
end;

function p.yyyymmdd(f)--Переводит русскую дату в YYYY-MM-DD
    local y,m,d=Yyyymmdd(f.args[1])
    return string.format('%4i-%02i-%02i',y,m,d)
end

function table.val_to_str ( v )
  if "string" == type( v ) then
    v = string.gsub( v, "\n", "\\n" )
    if string.match( string.gsub(v,"[^'\"]",""), '^"+$' ) then
      return "'" .. v .. "'"
    end
    return '"' .. string.gsub(v,'"', '\\"' ) .. '"'
  else
    return "table" == type( v ) and table.tostring( v ) or
      tostring( v )
  end
end

function table.key_to_str ( k )
  if "string" == type( k ) and string.match( k, "^[_%a][_%a%d]*$" ) then
    return k
  else
    return "[" .. table.val_to_str( k ) .. "]"
  end
end

function table.tostring( tbl )
  local result, done = {}, {}
  for k, v in ipairs( tbl ) do
    table.insert( result, table.val_to_str( v ) )
    done[ k ] = true
  end
  for k, v in pairs( tbl ) do
    if not done[ k ] then
      table.insert( result,
        table.key_to_str( k ) .. "=" .. table.val_to_str( v ) )
    end
  end
  return "{" .. table.concat( result, "," ) .. "}"
end

function p.parseISO8601DateTime(str)
    local s_pattern = "^([-+]%d+)%-(%d+)%-(%d+)T(%d+):(%d+):(%d+)%Z$"
    local s_year, s_month, s_day, s_hour, s_min, s_sec = mw.ustring.match(str, s_pattern)
    return {year = tonumber(s_year), month = tonumber(s_month), day = tonumber(s_day), hour = tonumber(s_hour), min = tonumber(s_min), sec = tonumber(s_sec)}
end

-- {{#invoke:Dates|test_parseISO8601DateTime|-00000000384-01-01T00:00:00Z}}
function p.test_parseISO8601DateTime(frame)
    local s_iso_datetime = tostring(frame.args[1])
    local value = p.parseISO8601DateTime(s_iso_datetime)
    return "{ year = " .. tostring(value.year) .. ", month = " .. tostring(value.month) .. ", day = " .. tostring(value.day) .. ", hour = " .. tostring(value.hour) .. ", min = " .. tostring(value.min) .. ", sec = " .. tostring(value.sec) .. "}"
end

--[[
function parseISO8601Date(str)
	local pattern = "(%d+)%-(%d+)%-(%d+)T"
	local Y, M, D = mw.ustring.match( str, pattern )
	return tonumber(Y), tonumber(M), tonumber(D)
end

function parseISO8601Time(str)
	local pattern = "T(%d+):(%d+):(%d+)%Z"
	local H, M, S = mw.ustring.match( str, pattern)
	return tonumber(H), tonumber(M), tonumber(S)
end

function parseISO8601Offset(str)
	if str:sub(-1)=="Z" then return 0,0 end -- ends with Z, Zulu time

	-- matches ±hh:mm, ±hhmm or ±hh; else returns nils 
	local pattern = "([-+])(%d%d):?(%d?%d?)$"
	local sign, oh, om = mw.ustring.match( str, pattern) 
	sign, oh, om = sign or "+", oh or "00", om or "00"

	return tonumber(sign .. oh), tonumber(sign .. om)
end

function p.parseISO8601(str)
	if 'table'==type(str) then
		if str.args and str.args[1] then
			str = '' .. str.args[1]
		else
			return 'unknown argument type: ' .. type( str ) .. ': ' .. table.tostring( str )
		end
	end
	local Y,M,D = parseISO8601Date(str)
	local h,m,s = parseISO8601Time(str)
	local oh,om = parseISO8601Offset(str)
	return tonumber(os.time({year=Y, month=M, day=D, hour=(h+oh), min=(m+om), sec=s}))
end
]]

local seconds_in_day = 86400 -- = 24*60*60

local julBoundary1 = os.time({year = 1700, month = 3, day = 1, hour=0, min=0, sec=0})
local julBoundary2 = os.time({year = 1800, month = 3, day = 1, hour=0, min=0, sec=0})
local julBoundary3 = os.time({year = 1900, month = 3, day = 1, hour=0, min=0, sec=0})
local julBoundary4 = os.time({year = 2100, month = 3, day = 1, hour=0, min=0, sec=0})
local julBoundary5 = os.time({year = 2200, month = 3, day = 1, hour=0, min=0, sec=0})
local julBoundary6 = os.time({year = 2300, month = 3, day = 1, hour=0, min=0, sec=0})

--[[
Специальные даты:
+00000001700-02-29T00:00:00Z → 11.03.1700 (-8514374400)
+00000001800-02-29T00:00:00Z → 12.03.1800 (-5358614400)
+00000001900-02-29T00:00:00Z → 13.03.1900 (-2202854400)

Примеры:
+00000001709-06-27T00:00:00Z → 08.07.1709 (-8220096000)
+00000001825-12-14T00:00:00Z → 26.12.1825 (-4544726400)
+00000001917-10-25T00:00:00Z → 07.11.1917 (-1645747200)
]]
function p.JulianDateToUNIXTime(value)
    local time = nil
    if value.year > 1582 then
        -- Обрабатываем специальные даты, которых нет в григорианском календаре:
        -- 29.02.1700 => 11.03.1700
        -- 29.02.1800 => 12.03.1800
        -- 29.02.1900 => 13.03.1900 etc
        if value.day == 29 and value.month == 2 and value.year == 1700 then
            time = os.time({year = value.year, month = 3, day = 11, hour = value.hour, min = value.min, sec = value.sec})
        elseif value.day == 29 and value.month == 2 and value.year == 1800 then
            time = os.time({year = value.year, month = 3, day = 12, hour = value.hour, min = value.min, sec = value.sec})
        elseif value.day == 29 and value.month == 2 and value.year == 1900 then
            time = os.time({year = value.year, month = 3, day = 13, hour = value.hour, min = value.min, sec = value.sec})
        elseif value.day == 29 and value.month == 2 and value.year == 2100 then
            time = os.time({year = value.year, month = 3, day = 14, hour = value.hour, min = value.min, sec = value.sec})
        elseif value.day == 29 and value.month == 2 and value.year == 2200 then
            time = os.time({year = value.year, month = 3, day = 15, hour = value.hour, min = value.min, sec = value.sec})
        elseif value.day == 29 and value.month == 2 and value.year == 2300 then
            time = os.time({year = value.year, month = 3, day = 16, hour = value.hour, min = value.min, sec = value.sec})
        else
            local offset_day = 0
            time = os.time(value)
            if time >= julBoundary6 then
                offset_day = 16
            elseif time >= julBoundary5 then
                offset_day = 15
            elseif time >= julBoundary4 then
                offset_day = 14
            elseif time >= julBoundary3 then
                offset_day = 13
            elseif time >= julBoundary2 then
                offset_day = 12
            elseif time >= julBoundary1 then
                offset_day = 11
            else 
                offset_day = 10
            end
            time = time + offset_day*seconds_in_day
        end
    end
    return time
end

--[[
Функция для тестирования:
* {{#invoke:Dates|test_JulianDateToUNIXTime|+00000001709-06-27T00:00:00Z}}<br/>27 июня (8 июля) 1709 (+11) — Полтавская битва
* {{#invoke:Dates|test_JulianDateToUNIXTime|+00000001825-12-14T00:00:00Z}}<br/>14 (26) декабря 1825 (+12) — Восстание декабристов
* {{#invoke:Dates|test_JulianDateToUNIXTime|+00000001917-10-25T00:00:00Z}}<br/>25 октября (7 ноября) 1917 (+13) — Октябрьская революция
]]
function p.test_JulianDateToUNIXTime(frame)
    local s_iso_date = tostring(frame.args[1])
    local result = p.JulianDateToUNIXTime(p.parseISO8601DateTime(s_iso_date))
    if result == nil then
        return s_iso_date .. " → nil"
    else
        return s_iso_date .. " → " .. os.date("%d.%m.%Y", result) .. " (" .. tostring(result) ..")"
    end
end

local g2uBoundary1 = os.time({year = 1582, month = 10, day = 15, hour=0, min=0, sec=0}) -- p.parseISO8601('1582-10-15T00:00:00Z')
local g2uBoundary2 = os.time({year = 1700, month = 3, day = 12, hour=0, min=0, sec=0}) -- p.parseISO8601('1700-03-12T00:00:00Z')
local g2uBoundary3 = os.time({year = 1800, month = 3, day = 13, hour=0, min=0, sec=0}) -- p.parseISO8601('1800-03-13T00:00:00Z')
local g2uBoundary4 = os.time({year = 1900, month = 3, day = 14, hour=0, min=0, sec=0}) -- p.parseISO8601('1900-03-14T00:00:00Z')
local g2uBoundary5 = os.time({year = 1918, month = 1, day = 26, hour=0, min=0, sec=0}) -- p.parseISO8601('1918-01-26T00:00:00Z') -- декрет Ленина

-- Передаваемое время обязано быть по Григорианскому календарю (новому стилю)
function p.formatWiki( time, infocardClass, categoryNamePrefix )
	if 'table'==type( time ) then
		if time.args and time.args[1] then
			time = tonumber( time.args[1] )
		else
			return 'unknown argument type: ' .. type( time ) .. ': ' .. table.tostring( time )
		end
	end
	local t = os.date("*t", time)
	if time < g2uBoundary1 then
		-- выводим просто юлианский календарь. Задавать тут григорианский некорректно
		return p.formatWikiImpl( t, t, infocardClass, categoryNamePrefix )
	end
	
	-- Специальные даты
	if t.year == 1700 and t.month == 3 and t.day == 11 then
		return p.formatWikiImpl( {year=1700, month=2, day=29}, t, infocardClass, categoryNamePrefix)
	end
	if t.year == 1800 and t.month == 3 and t.day == 12 then
		return p.formatWikiImpl( {year=1800, month=2, day=29}, t, infocardClass, categoryNamePrefix )
	end
	if t.year == 1900 and t.month == 3 and t.day == 13 then
		return p.formatWikiImpl( {year=1900, month=2, day=29}, t, infocardClass, categoryNamePrefix )
	end

	if g2uBoundary1 <= time and time < g2uBoundary2 then
		return p.formatWikiImpl( os.date("*t", time - 10 * 24 * 60 * 60), t, infocardClass, categoryNamePrefix )
	end
	if g2uBoundary2 <= time and time < g2uBoundary3 then
		return p.formatWikiImpl( os.date("*t", time - 11 * 24 * 60 * 60), t, infocardClass, categoryNamePrefix )
	end
	if g2uBoundary3 <= time and time < g2uBoundary4 then
		return p.formatWikiImpl( os.date("*t", time - 12 * 24 * 60 * 60), t, infocardClass, categoryNamePrefix )
	end
	if g2uBoundary4 <= time and time < g2uBoundary5 then
		return p.formatWikiImpl( os.date("*t", time - 13 * 24 * 60 * 60), t, infocardClass, categoryNamePrefix )
	end

	--только Григорианский календарь
	return p.formatWikiImpl( t, t, infocardClass, categoryNamePrefix )
end

function ternary ( cond , T , F )
    if cond then return T else return F end
end

function nominativeYear( year )
    if ( year >= 0 ) then
        return '[[w:' .. year .. ' год|' .. year .. ']]'
    else
        return '[[w:' .. ( 0 - year ) .. ' год до н. э.|' .. ( 0 - year ) .. ' до н. э.]]'
    end
end

function inYear( year )
    if ( year >= 0 ) then
        return '' .. year .. ' году'
    else
        return '' .. ( 0 - year) .. ' году до н. э.'
    end
end

function p.formatWikiImpl( t1, t2, infocardClass, categoryNamePrefix )
    local nd = t2.day;
    local nm = t2.month;
    local ny = t2.year;
    local od = ternary ( t1.day ~= t2.day , t1.day, nil );
    local om = ternary ( t1.month ~= t2.month , t1.month, nil );
    local oy = ternary ( t1.year ~= t2.year , t1.year, nil );

    local template =
        (nd ~= nil and "1" or "") .. (nm ~= nil and "2" or "") .. (ny ~= nil and "3" or "") ..
        (od ~= nil and "4" or "") .. (om ~= nil and "5" or "") .. (oy ~= nil and "6" or "")
 
    local datePart = '<span style="white-space:nowrap;">'
    if (template == "12") then
        datePart = datePart .. string.format( "[[w:%d %s|%d %s]]",
        								nd, genitivusMonthes[nm], nd, genitivusMonthes[nm] )
    elseif (template == "23") then
        datePart = datePart .. string.format( "[[w:%s|%s]] %s",
        								nominativeMonthes[nm], nominativeMonthes[nm], nominativeYear( ny ) )
    elseif (template == "3") then
        datePart = datePart .. nominativeYear( ny )
    elseif (template == "123") then
        datePart = datePart .. string.format( "[[w:%d %s|%d %s]] %s",
                                        nd, genitivusMonthes[nm], nd, genitivusMonthes[nm], nominativeYear( ny ) )
    elseif (template == "124") then
        datePart = datePart .. string.format( "[[w:%d %s|%d (%d) %s]]",
                                        nd, genitivusMonthes[nm], od, nd, genitivusMonthes[nm] )
    elseif (template == "1234") then
        datePart = datePart .. string.format( "[[w:%d %s|%d (%d) %s]] %s",
                                        nd, genitivusMonthes[nm], od, nd, genitivusMonthes[nm], nominativeYear( ny ) )
    elseif (template == "1245") then
        datePart = datePart .. string.format( "%d %s ([[w:%d %s|%d %s]])",
                                        od, genitivusMonthes[om], nd, genitivusMonthes[nm], nd, genitivusMonthes[nm] )
    elseif (template == "12345") then
        datePart = datePart .. string.format( "%d %s ([[w:%d %s|%d %s]]) %s",
                                        od, genitivusMonthes[om], nd, genitivusMonthes[nm], nd, genitivusMonthes[nm], nominativeYear( ny ) )
    elseif (template == "123456") then
        datePart = datePart .. string.format( '%d %s %d</span> <span style="white-space:nowrap;">([[w:%d %s|%d %s]] %s)',
                                        od, genitivusMonthes[om], oy, nd, genitivusMonthes[nm], nd, genitivusMonthes[nm], nominativeYear( ny ) )
    else
        datePart = datePart .. 'формат неверен'
    end
    datePart = datePart .. '</span>'
 
    local infocardTemplate =
        (nd ~= nil and "1" or "") .. (nm ~= nil and "2" or "") .. (ny ~= nil and "3" or "")
 
	if infocardClass then
	    if (infocardTemplate == "123") then
	        datePart = datePart .. '<span style="display:none">(<span class="' .. infocardClass .. '">{{padleft:' .. ny .. '|4|0}}-{{padleft:' .. nm .. '|2|0}}-{{padleft:' .. nd .. '|2|0}}</span>)</span>'
	    elseif (infocardTemplate == "23") then
	        datePart = datePart .. '<span style="display:none">(<span class="' .. infocardClass .. '">{{padleft:' .. ny .. '|4|0}}-{{padleft:' .. nm .. '|2|0}}</span>)</span>'
	    elseif (infocardTemplate == "3") then
	        datePart = datePart .. '<span style="display:none;">(<span class="' .. infocardClass .. '">{{padleft:' .. ny .. '|4|0}}</span>)</span>'
	    end
	end
 
    if categoryNamePrefix then
        if ( nd ~= nil and nm ~= nil) then
            datePart = datePart .. '[[Категория:' .. categoryNamePrefix .. ' ' .. nd .. ' ' .. genitivusMonthes[nm] .. ']]'
        end
        if ( ny ~= nil) then
            datePart = datePart .. '[[Категория:' .. categoryNamePrefix .. ' в ' .. inYear( ny ) .. ']]'
        end
    end
 
    return datePart
end

return p