Модуль:Wikidata/date: различия между версиями

Материал из Буинский уезд (Буинск, Байбулатово, Кайрево, Бурундуки) - генеалогические исследовании
Перейти к навигации Перейти к поиску
м (1 версия импортирована)
 
м (1 версия импортирована)
 
(не показана 1 промежуточная версия 1 участника)
Строка 3: Строка 3:
 
local categoryUnknownDeathDate = '[[Категория:Персоналии, чья дата смерти не установлена]]';
 
local categoryUnknownDeathDate = '[[Категория:Персоналии, чья дата смерти не установлена]]';
 
local categoryBigCurrentAge = '[[Категория:Википедия:Статьи о персоналиях с большим текущим возрастом]]'
 
local categoryBigCurrentAge = '[[Категория:Википедия:Статьи о персоналиях с большим текущим возрастом]]'
local categoryBigDeathAge = '[[Категория:Википедия:Статьи о персоналиях с большим возрастом во время смерти]]'
+
-- local categoryBigDeathAge = '[[Категория:Википедия:Статьи о персоналиях с большим возрастом во время смерти]]' //deleted -d.bratchuk 05-07-2016
 +
local categoryBiographiesOfLivingPersons = '[[Категория:Википедия:Биографии современников]]'
 +
local categoryRecentlyDeceased = '[[Категория:Википедия:Персоналии, умершие менее года назад]]'
 +
local nowLabel = 'наст. время'
  
 
local moduleDates = require( "Module:Dates" )
 
local moduleDates = require( "Module:Dates" )
Строка 66: Строка 69:
 
local dStructure = dValue.structure
 
local dStructure = dValue.structure
 
local dPrecision = dValue.precision
 
local dPrecision = dValue.precision
 +
if ( bValue.calendar == 'julian' and dValue.calendar == 'gregorian' ) then
 +
-- to calculate age, need to adjust bStructure to gregorian calendar
 +
local shift = math.floor(bStructure.year/100-2) - math.floor(bStructure.year/400)
 +
-- TODO: re-implement this properly
 +
bStructure.day = bStructure.day + shift
 +
end
  
 
local calculatedAge = ageImpl ( bStructure, bPrecision, dStructure, dPrecision )
 
local calculatedAge = ageImpl ( bStructure, bPrecision, dStructure, dPrecision )
Строка 84: Строка 93:
 
if ( not bStructure or not dStructure or bPrecision < 10 or dPrecision < 10 ) then
 
if ( not bStructure or not dStructure or bPrecision < 10 or dPrecision < 10 ) then
 
return nil
 
return nil
 +
end
 +
 +
local shift = 0;
 +
if ( bStructure.year < 0 and dStructure.year > 0 ) then
 +
shift = -1;
 
end
 
end
  
 
  if ( bPrecision == 10 or dPrecision == 10 ) then
 
  if ( bPrecision == 10 or dPrecision == 10 ) then
 
  if ( bStructure.month < dStructure.month ) then
 
  if ( bStructure.month < dStructure.month ) then
  return dStructure.year - bStructure.year
+
  return dStructure.year - bStructure.year + shift
 
  end
 
  end
 
  if ( bStructure.month == dStructure.month ) then
 
  if ( bStructure.month == dStructure.month ) then
Строка 94: Строка 108:
 
  end
 
  end
 
  if ( bStructure.month > dStructure.month ) then
 
  if ( bStructure.month > dStructure.month ) then
  return dStructure.year - bStructure.year - 1
+
  return dStructure.year - bStructure.year - 1 + shift
 
  end
 
  end
 
  end
 
  end
 
   
 
   
 
   if ( bStructure.month < dStructure.month ) then
 
   if ( bStructure.month < dStructure.month ) then
  return dStructure.year - bStructure.year
+
  return dStructure.year - bStructure.year + shift
 
  end
 
  end
 
  if ( bStructure.month == dStructure.month ) then
 
  if ( bStructure.month == dStructure.month ) then
 
  if ( bStructure.day <= dStructure.day ) then
 
  if ( bStructure.day <= dStructure.day ) then
return dStructure.year - bStructure.year
+
return dStructure.year - bStructure.year + shift
 
else  
 
else  
return dStructure.year - bStructure.year - 1
+
return dStructure.year - bStructure.year - 1 + shift
 
  end
 
  end
 
  end
 
  end
 
  if ( bStructure.month > dStructure.month ) then
 
  if ( bStructure.month > dStructure.month ) then
  return dStructure.year - bStructure.year - 1
+
  return dStructure.year - bStructure.year - 1 + shift
 
  end
 
  end
  
Строка 141: Строка 155:
 
local structure = os.date("*t", unixtime)
 
local structure = os.date("*t", unixtime)
 
local precision = tonumber( claim.mainsnak.datavalue.value.precision )
 
local precision = tonumber( claim.mainsnak.datavalue.value.precision )
local item = { structure=structure, precision=precision }
+
local calendarmodel = 'gregorian';
 +
if (mw.ustring.find(claim.mainsnak.datavalue.value.calendarmodel, 'Q1985786', 1, true)) then
 +
calendarmodel = 'julian';
 +
end
 +
local item = { structure=structure, precision=precision, calendar = calendarmodel }
 
return item;
 
return item;
 
elseif ( claim.mainsnak.snaktype == "novalue" ) then
 
elseif ( claim.mainsnak.snaktype == "novalue" ) then
Строка 202: Строка 220:
  
 
local p = {}
 
local p = {}
 +
 +
local brcs = 0
 +
 +
function p.formatDateOfBirthClaimX( context, options, statement )
 +
brcs = 1
 +
return p.formatDateOfBirthClaim( context, options, statement )
 +
end
  
 
function p.formatDateOfBirthClaim( context, options, statement )
 
function p.formatDateOfBirthClaim( context, options, statement )
Строка 209: Строка 234:
 
if ( not statement ) then error( 'statement not specified'); end;
 
if ( not statement ) then error( 'statement not specified'); end;
  
if ( statement.mainsnak.snaktype == 'somevalue' ) then
+
local qNotSoonerThan = getQualifierDataValue( statement, 'P1319' );
local qNotSoonerThan = getQualifierDataValue( statement, 'P1319' );
+
local qNotLaterThan = getQualifierDataValue( statement, 'P1326' );
local qNotLaterThan = getQualifierDataValue( statement, 'P1326' );
+
if ( qNotSoonerThan or qNotLaterThan ) then
if ( qNotSoonerThan or qNotLaterThan ) then
+
local results = {};
local results = {};
+
if ( qNotSoonerThan ) then
if ( qNotSoonerThan ) then
+
table.insert( results, 'не&nbsp;ранее&nbsp;' .. formatDateImpl( qNotSoonerThan.value, {}, nil, nil ) );
table.insert( results, 'не&nbsp;ранее&nbsp;' .. formatDateImpl( qNotSoonerThan.value, {}, nil, nil ) );
+
end
end
+
if ( qNotLaterThan ) then
if ( qNotLaterThan ) then
+
table.insert( results, 'не&nbsp;позднее&nbsp;' .. formatDateImpl( qNotLaterThan.value, {}, nil, nil ) );
table.insert( results, 'не&nbsp;позднее&nbsp;' .. formatDateImpl( qNotLaterThan.value, {}, nil, nil ) );
+
end
end
+
    return mw.text.listToText( results, ' и ' , ' и ' ) .. categoryUnknownBirthDate;
    return mw.text.listToText( results, ' и ' , ' и ' ) .. categoryUnknownBirthDate;
 
    end
 
 
end
 
end
  
Строка 228: Строка 251:
 
     options['value-function'] = 'formatBirthDate';
 
     options['value-function'] = 'formatBirthDate';
 
     options.i18n.somevalue = '\'\'неизвестно\'\'' .. categoryUnknownBirthDate;
 
     options.i18n.somevalue = '\'\'неизвестно\'\'' .. categoryUnknownBirthDate;
    options.i18n.approximate = '<span style="border-bottom: 1px dotted; cursor: help;" title="около">ок. </span>';
 
 
local result = context.formatStatementDefault( context, options, statement );
 
local result = context.formatStatementDefault( context, options, statement );
  
Строка 237: Строка 259:
 
local age = ageCurrent( bTable )
 
local age = ageCurrent( bTable )
 
if ( age ) then
 
if ( age ) then
result = result .. ' <span style="white-space:nowrap;">(' .. age .. ' ' .. mw.language.new( 'ru' ):plural( age, 'год', 'года', 'лет') .. ')</span>'
+
if ( brcs ~= 1 ) then
    if ( age > 150 and not options.nocat ) then
+
result = result .. ' <span style="white-space:nowrap;">(' .. age .. ' ' .. mw.language.new( 'ru' ):plural( age, 'год', 'года', 'лет') .. ')</span>'
        result = result .. categoryBigCurrentAge;
+
end
    end
+
if ( not options.nocat ) then
 +
if ( age > 115 ) then
 +
result = result .. categoryBigCurrentAge;
 +
else
 +
result = result .. categoryBiographiesOfLivingPersons;
 +
end
 +
end
 
end
 
end
 
end
 
end
  
 
return result;
 
return result;
 +
end
 +
 +
function p.formatDateOfDeathClaimX( context, options, statement )
 +
brcs = 1
 +
return p.formatDateOfDeathClaim( context, options, statement )
 
end
 
end
  
Строка 253: Строка 286:
 
if ( not statement ) then error( 'statement not specified'); end;
 
if ( not statement ) then error( 'statement not specified'); end;
  
if ( statement.mainsnak.snaktype == 'somevalue' ) then
+
local qNotSoonerThan = getQualifierDataValue( statement, 'P1319' );
local qNotSoonerThan = getQualifierDataValue( statement, 'P1319' );
+
local qNotLaterThan = getQualifierDataValue( statement, 'P1326' );
local qNotLaterThan = getQualifierDataValue( statement, 'P1326' );
+
if ( qNotSoonerThan or qNotLaterThan ) then
if ( qNotSoonerThan or qNotLaterThan ) then
+
local results = {};
local results = {};
+
if ( qNotSoonerThan ) then
if ( qNotSoonerThan ) then
+
table.insert( results, 'не&nbsp;ранее&nbsp;' .. formatDateImpl( qNotSoonerThan.value, {}, nil, nil ) );
table.insert( results, 'не&nbsp;ранее&nbsp;' .. formatDateImpl( qNotSoonerThan.value, {}, nil, nil ) );
+
end
end
+
if ( qNotLaterThan ) then
if ( qNotLaterThan ) then
+
table.insert( results, 'не&nbsp;позднее&nbsp;' .. formatDateImpl( qNotLaterThan.value, {}, nil, nil ) );
table.insert( results, 'не&nbsp;позднее&nbsp;' .. formatDateImpl( qNotLaterThan.value, {}, nil, nil ) );
+
end
end
+
    return mw.text.listToText( results, ' и ' , ' и ' ) .. categoryUnknownDeathDate;
    return mw.text.listToText( results, ' и ' , ' и ' ) .. categoryUnknownDeathDate;
 
    end
 
 
end
 
end
  
Строка 272: Строка 303:
 
     options['value-function'] = 'formatDeathDate';
 
     options['value-function'] = 'formatDeathDate';
 
     options.i18n.somevalue = '\'\'неизвестно\'\'' .. categoryUnknownDeathDate;
 
     options.i18n.somevalue = '\'\'неизвестно\'\'' .. categoryUnknownDeathDate;
    options.i18n.approximate = '<span style="border-bottom: 1px dotted; cursor: help;" title="около">ок. </span>';
 
 
local result = context.formatStatementDefault( context, options, statement );
 
local result = context.formatStatementDefault( context, options, statement );
  
Строка 281: Строка 311:
 
local age = age( bTable, dTable )
 
local age = age( bTable, dTable )
 
if ( age ) then
 
if ( age ) then
result = result .. ' <span style="white-space:nowrap;">(' .. age .. ' ' .. mw.language.new( 'ru' ):plural( age, 'год', 'года', 'лет') .. ')</span>'
+
if ( brcs ~= 1 ) then
    if ( age > 150 and (not context.options or not context.options.nocat) ) then
+
result = result .. ' <span style="white-space:nowrap;">(' .. age .. ' ' .. mw.language.new( 'ru' ):plural( age, 'год', 'года', 'лет') .. ')</span>'
        result = result .. categoryBigDeathAge;
+
end
    end
+
end
 +
 +
-- returns category to recently deceased persons
 +
local unixAvailable, unixDateOfDeath = pcall(function()
 +
local r = os.time(dTable[1].structure)
 +
if ( r ~= os.time() ) then
 +
return r
 +
end
 +
error()
 +
end)
 +
if ( unixAvailable and os.time() - unixDateOfDeath < 31536000 and not options.nocat ) then
 +
result = result .. categoryRecentlyDeceased
 
end
 
end
 
end
 
end
Строка 300: Строка 341:
 
return formatDateImpl( value, options, 'bday', nil )
 
return formatDateImpl( value, options, 'bday', nil )
 
else
 
else
return formatDateImpl( value, options, 'bday', 'Родившиеся ' )
+
return formatDateImpl( value, options, 'bday', 'Родившиеся' )
 
end
 
end
 
end
 
end
Строка 310: Строка 351:
 
if ( not value ) then error( 'value not specified'); end;
 
if ( not value ) then error( 'value not specified'); end;
  
if ( options.nocat ) then
+
if ( options.nocat and options.nocat ~= '' ) then
 
return formatDateImpl( value, options, 'dday', nil )
 
return formatDateImpl( value, options, 'dday', nil )
 
else
 
else
return formatDateImpl( value, options, 'dday', 'Умершие ' )
+
return formatDateImpl( value, options, 'dday', 'Умершие' )
 
end
 
end
 
end
 
end
Строка 323: Строка 364:
 
if ( not value ) then error( 'value not specified'); end;
 
if ( not value ) then error( 'value not specified'); end;
  
local microformatClass = options.microfortmat or nil;
+
local microformatClass = options.microformat or nil;
if ( options.nocat ) then
+
if ( options.nocat and options.nocat ~= '' ) then
 
return formatDateImpl( value, options, microformatClass, nil )
 
return formatDateImpl( value, options, microformatClass, nil )
 
else
 
else
Строка 330: Строка 371:
 
return formatDateImpl( value, options, microformatClass, categoryPrefix )
 
return formatDateImpl( value, options, microformatClass, categoryPrefix )
 
end
 
end
 +
end
 +
 +
function p.formatDateIntervalProperty( context, options )
 +
if ( not context ) then error( 'context not specified' ); end;
 +
if ( not options ) then error( 'options not specified' ); end;
 +
if ( not options.entity ) then error( 'options.entity missing' ); end;
 +
 +
-- Получение нужных утверждений
 +
local WDS = require( 'Module:WikidataSelectors' );
 +
local fromProperty = options.property
 +
if options.from and options.from ~= '' then
 +
fromProperty = options.from
 +
end
 +
local fromClaims = WDS.filter( options.entity.claims, fromProperty );
 +
local toClaims = WDS.filter( options.entity.claims, options.to );
 +
local withinClaims = WDS.filter( options.entity.claims, options.within );
 +
 +
    if fromClaims == nil and toClaims == nil then
 +
        return ''
 +
    end
 +
 +
    local formattedFromClaims = {}
 +
    if fromClaims then
 +
    for i, claim in ipairs( fromClaims ) do
 +
        local formattedStatement = context.formatStatement( options, claim )
 +
        if formattedStatement then
 +
            formattedStatement = '<span class="wikidata-claim" data-wikidata-property-id="' .. string.upper( options.property ) .. '" data-wikidata-claim-id="' .. claim.id .. '">' .. formattedStatement .. '</span>'
 +
            table.insert( formattedFromClaims, formattedStatement )
 +
        end
 +
    end
 +
    end
 +
 +
    local formattedToClaims = {}
 +
    local toOptions = deepcopy( options )
 +
    toOptions.property = options.to
 +
    toOptions.novalue = nowLabel
 +
    if toClaims then
 +
    for i, claim in ipairs( toClaims ) do
 +
        local formattedStatement = context.formatStatement( toOptions, claim )
 +
        if formattedStatement then
 +
            formattedStatement = '<span class="wikidata-claim" data-wikidata-property-id="' .. string.upper( toOptions.property ) .. '" data-wikidata-claim-id="' .. claim.id .. '">' .. formattedStatement .. '</span>'
 +
            table.insert( formattedToClaims, formattedStatement )
 +
        end
 +
    end
 +
    end
 +
 +
local out = ''
 +
    local fromOut = mw.text.listToText( formattedFromClaims, options.separator, options.conjunction )
 +
    local toOut = mw.text.listToText( formattedToClaims, options.separator, options.conjunction )
 +
   
 +
if fromOut ~= '' or toOut ~= '' then
 +
    if fromOut ~= '' then
 +
    out = fromOut
 +
else
 +
out = '?'
 +
end
 +
 +
if toOut ~= '' then
 +
out = out .. ' — ' .. toOut
 +
else
 +
if withinClaims ~= nil then
 +
out = 'с ' .. out
 +
else
 +
out = out .. ' — ' .. nowLabel
 +
end
 +
end
 +
end
 +
 +
    if out ~= '' then
 +
    if options.before then
 +
    out = options.before .. out
 +
end
 +
    if options.after then
 +
    out = out .. options.after
 +
end
 +
end
 +
 +
    return out
 
end
 
end
  
Строка 339: Строка 458:
 
local timeISO8601 = string.gsub( string.gsub( tostring( value.time ), '-00%-', '-01-' ), '-00T', '-01T' )
 
local timeISO8601 = string.gsub( string.gsub( tostring( value.time ), '-00%-', '-01-' ), '-00T', '-01T' )
 
local unixtime = parseISO8601( timeISO8601 )
 
local unixtime = parseISO8601( timeISO8601 )
 +
 +
if not unixtime then
 +
return ''
 +
end
  
 
local structure = os.date("*t", unixtime)
 
local structure = os.date("*t", unixtime)
 
local precision = tonumber( value.precision )
 
local precision = tonumber( value.precision )
 
 
 +
if precision <= 6 then
 +
return formatMillenium(structure, categoryPrefix)
 +
end
 
if precision == 7 then
 
if precision == 7 then
 
return formatCentury(structure, categoryPrefix)
 
return formatCentury(structure, categoryPrefix)
Строка 378: Строка 504:
  
 
function formatDecade( time, categoryNamePrefix )
 
function formatDecade( time, categoryNamePrefix )
local year = math.floor( time.year / 10 ) * 10;
+
if ( time.year < 0 ) then
if ( categoryNamePrefix ) then
+
local year = math.floor( math.abs(time.year) / 10 ) * 10;
return year .. '-е[[К:' .. categoryNamePrefix .. ' в ' .. year .. '-е годы]]';
+
if ( categoryNamePrefix ) then
 +
return year .. '-е до н. э.[[Category:' .. categoryNamePrefix .. ' в ' .. year .. '-е годы до н. э.]]';
 +
else
 +
return '' .. year .. ' до н. э.';
 +
end
 
else
 
else
return '' .. year;
+
local year = math.floor( time.year / 10 ) * 10;
 +
if ( categoryNamePrefix ) then
 +
return year .. '-е[[Category:' .. categoryNamePrefix .. ' в ' .. year .. '-е годы]]';
 +
else
 +
return '' .. year;
 +
end
 
end
 
end
 
end
 
end
Строка 390: Строка 525:
 
if ( time.year < 0 ) then
 
if ( time.year < 0 ) then
 
local century = math.floor( (math.abs( time.year) - 1) / 100 ) + 1;
 
local century = math.floor( (math.abs( time.year) - 1) / 100 ) + 1;
 +
        local infix = ' в ';
 +
        if century == 2 then infix = ' во '; end;
 
if ( moduleRoman ) then
 
if ( moduleRoman ) then
 
century = moduleRoman.toRomanNumber( century );
 
century = moduleRoman.toRomanNumber( century );
 
end
 
end
 
if ( categoryNamePrefix ) then
 
if ( categoryNamePrefix ) then
return '[[' .. century .. ' век до н. э.]][[К:' .. categoryNamePrefix .. ' в ' .. century .. ' веке до н. э.]]'
+
return '[[' .. century .. ' век до н. э.]][[Category:' .. categoryNamePrefix .. infix .. century .. ' веке до н. э.]]'
 
else
 
else
 
return '[[' .. century .. ' век до н. э.]]'
 
return '[[' .. century .. ' век до н. э.]]'
Строка 400: Строка 537:
 
else
 
else
 
local century = math.floor( (time.year - 1) / 100 ) + 1;
 
local century = math.floor( (time.year - 1) / 100 ) + 1;
 +
        local infix = ' в ';
 +
        if (century == 2) then infix = ' во ' end;
 
if ( moduleRoman ) then
 
if ( moduleRoman ) then
 
century = moduleRoman.toRomanNumber( century );
 
century = moduleRoman.toRomanNumber( century );
 
end
 
end
 
if ( categoryNamePrefix ) then
 
if ( categoryNamePrefix ) then
return '[[' .. century .. ' век]][[К:' .. categoryNamePrefix .. ' в ' .. century .. ' веке]]'
+
return '[[' .. century .. ' век]][[Category:' .. categoryNamePrefix .. infix .. century .. ' веке]]'
 
else
 
else
 
return '[[' .. century .. ' век]]'
 
return '[[' .. century .. ' век]]'
 +
end
 +
end
 +
end
 +
 +
function formatMillenium( time, categoryNamePrefix )
 +
if ( time.year < 0 ) then
 +
local millenium = math.floor( (math.abs( time.year) - 1) / 1000 ) + 1;
 +
if ( categoryNamePrefix ) then
 +
if ( millenium == 2 ) then
 +
return '[[' .. millenium .. '-е тысячелетие до н. э.]][[Category:' .. categoryNamePrefix .. ' во ' .. millenium .. '-м тысячелетии до н. э.]]'
 +
else
 +
return '[[' .. millenium .. '-е тысячелетие до н. э.]][[Category:' .. categoryNamePrefix .. ' в ' .. millenium .. '-м тысячелетии до н. э.]]'
 +
end
 +
else
 +
return '[[' .. millenium .. '-е тысячелетие до н. э.]]'
 +
end
 +
else
 +
local millenium = math.floor( (time.year - 1) / 1000 ) + 1;
 +
if ( categoryNamePrefix ) then
 +
if ( millenium == 2 ) then
 +
return '[[' .. millenium .. '-е тысячелетие]][[Category:' .. categoryNamePrefix .. ' во ' .. millenium .. '-м тысячелетии]]'
 +
else
 +
return '[[' .. millenium .. '-е тысячелетие]][[Category:' .. categoryNamePrefix .. ' в ' .. millenium .. '-м тысячелетии]]'
 +
end
 +
else
 +
return '[[' .. millenium .. '-е тысячелетие]]'
 
end
 
end
 
end
 
end
Строка 435: Строка 600:
 
   
 
   
 
function parseISO8601(str)
 
function parseISO8601(str)
if 'table'==type(str) then
+
if 'table' == type(str) then
 
if str.args and str.args[1] then
 
if str.args and str.args[1] then
 
str = '' .. str.args[1]
 
str = '' .. str.args[1]
Строка 442: Строка 607:
 
end
 
end
 
end
 
end
 +
 
local Y,M,D = parseISO8601Date(str)
 
local Y,M,D = parseISO8601Date(str)
 
local h,m,s = parseISO8601Time(str)
 
local h,m,s = parseISO8601Time(str)
 
local oh,om = parseISO8601Offset(str)
 
local oh,om = parseISO8601Offset(str)
 +
 +
if not Y or not M or not D or not h or not m or not s or not oh or not om then
 +
return nil
 +
end
 +
 
return tonumber(os.time({year=Y, month=M, day=D, hour=(h+oh), min=(m+om), sec=s}))
 
return tonumber(os.time({year=Y, month=M, day=D, hour=(h+oh), min=(m+om), sec=s}))
 
end
 
end
  
 
local lowestBoundary = parseISO8601('-900-02-20T00:00:00Z')
 
local lowestBoundary = parseISO8601('-900-02-20T00:00:00Z')
local mainBoundary = parseISO8601('1582-10-15T00:00:00Z')
+
local mainBoundary = parseISO8601('1582-10-05T00:00:00Z')
local lastBoundary = parseISO8601('1918-01-26T00:00:00Z');
+
local lastBoundary = parseISO8601('1918-01-31T00:00:00Z');
  
 
boundaries = {
 
boundaries = {
 
-- from (G) till next will be diff(G = J + diff), at current
 
-- from (G) till next will be diff(G = J + diff), at current
{ lowestBoundary,                         -9 },
+
{ lowestBoundary,                       -9 },
{ parseISO8601('-700-02-21T00:00:00Z'), -8 },
+
{ parseISO8601('-700-02-29T00:00:00Z'), -8 },
{ parseISO8601('-600-02-22T00:00:00Z'), -7 },
+
{ parseISO8601('-600-02-29T00:00:00Z'), -7 },
{ parseISO8601('-500-02-23T00:00:00Z'), -6 },
+
{ parseISO8601('-500-02-29T00:00:00Z'), -6 },
{ parseISO8601('-300-02-24T00:00:00Z'), -5 },
+
{ parseISO8601('-300-02-29T00:00:00Z'), -5 },
{ parseISO8601('-200-02-25T00:00:00Z'), -4 },
+
{ parseISO8601('-200-02-29T00:00:00Z'), -4 },
{ parseISO8601('-100-02-26T00:00:00Z'), -3 },
+
{ parseISO8601('-100-02-29T00:00:00Z'), -3 },
 
{ parseISO8601('0000-00-00T00:00:00Z'), -2 },
 
{ parseISO8601('0000-00-00T00:00:00Z'), -2 },
{ parseISO8601('0100-02-27T00:00:00Z'), -1 },
+
{ parseISO8601('0100-02-29T00:00:00Z'), -1 },
{ parseISO8601('0200-02-28T00:00:00Z'),  0 },
+
{ parseISO8601('0200-02-29T00:00:00Z'),  0 },
{ parseISO8601('0300-03-01T00:00:00Z'),  1 },
+
{ parseISO8601('0300-02-29T00:00:00Z'),  1 },
{ parseISO8601('0500-03-02T00:00:00Z'),  2 },
+
{ parseISO8601('0500-02-29T00:00:00Z'),  2 },
{ parseISO8601('0600-03-03T00:00:00Z'),  3 },
+
{ parseISO8601('0600-02-29T00:00:00Z'),  3 },
{ parseISO8601('0700-03-04T00:00:00Z'),  4 },
+
{ parseISO8601('0700-02-29T00:00:00Z'),  4 },
{ parseISO8601('0900-03-05T00:00:00Z'),  5 },
+
{ parseISO8601('0900-02-29T00:00:00Z'),  5 },
{ parseISO8601('1000-03-06T00:00:00Z'),  6 },
+
{ parseISO8601('1000-02-29T00:00:00Z'),  6 },
{ parseISO8601('1100-03-07T00:00:00Z'),  7 },
+
{ parseISO8601('1100-02-29T00:00:00Z'),  7 },
{ parseISO8601('1300-03-08T00:00:00Z'),  8 },
+
{ parseISO8601('1300-02-29T00:00:00Z'),  8 },
{ parseISO8601('1400-03-09T00:00:00Z'),  9 },
+
{ parseISO8601('1400-02-29T00:00:00Z'),  9 },
{ parseISO8601('1500-03-10T00:00:00Z'), 10 },
+
{ parseISO8601('1500-02-29T00:00:00Z'), 10 },
{ parseISO8601('1700-03-11T00:00:00Z'), 11 },
+
{ parseISO8601('1700-02-29T00:00:00Z'), 11 },
{ parseISO8601('1800-03-12T00:00:00Z'), 12 },
+
{ parseISO8601('1800-02-29T00:00:00Z'), 12 },
{ parseISO8601('1900-03-13T00:00:00Z'), 13 },
+
{ parseISO8601('1900-02-29T00:00:00Z'), 13 },
 
{ lastBoundary, '' },
 
{ lastBoundary, '' },
 
};
 
};
  
-- Передаваемое время обязано быть по Григорианскому календарю (новому стилю)
+
-- Передаваемое время обязано быть по Юлианскому календарю (старому стилю)
function p.formatAsJulian( time, infocardClass, categoryNamePrefix )
+
function p.formatAsJulian( julTime, infocardClass, categoryNamePrefix )
if 'table'==type( time ) then
+
if 'table' == type( julTime ) then
if time.args and time.args[1] then
+
if julTime.args and julTime.args[1] then
time = tonumber( time.args[1] )
+
julTime = tonumber( julTime.args[1] )
 
else
 
else
return 'unknown argument type: ' .. type( time ) .. ': ' .. table.tostring( time )
+
return 'unknown argument type: ' .. type( julTime ) .. ': ' .. table.tostring( julTime )
 
end
 
end
 
end
 
end
  
local t = os.date("*t", time)
+
local t = os.date( "*t", julTime )
if ( time <= lowestBoundary ) then
+
if ( julTime <= lowestBoundary ) then
 
return "''некорректная дата (недостижимая точность)''";
 
return "''некорректная дата (недостижимая точность)''";
 
end
 
end
if ( time >= lastBoundary ) then
+
if ( julTime >= lastBoundary ) then
 
return "''некорректная дата (юлианский не используется после 1918-01-26)''";
 
return "''некорректная дата (юлианский не используется после 1918-01-26)''";
 
end
 
end
Строка 501: Строка 672:
 
local b1 = boundaries[i][1];
 
local b1 = boundaries[i][1];
 
local b2 = boundaries[i + 1][1];
 
local b2 = boundaries[i + 1][1];
if ( b1 <= time and time < b2 ) then
+
if ( b1 <= julTime and julTime < b2 ) then
local b1s = os.date("*t", b1)
+
local b1s = os.date( "*t", b1 )
 
if ( b1s.year == t.year and b1s.month == t.month and b1s.day == t.day) then
 
if ( b1s.year == t.year and b1s.month == t.month and b1s.day == t.day) then
if ( time < mainBoundary ) then
+
if ( julTime < mainBoundary ) then
 
-- only julian
 
-- only julian
 
return moduleDates.formatWikiImpl( {year=t.year, month=2, day=29}, {year=t.year, month=2, day=29}, infocardClass, categoryNamePrefix );
 
return moduleDates.formatWikiImpl( {year=t.year, month=2, day=29}, {year=t.year, month=2, day=29}, infocardClass, categoryNamePrefix );
 
else
 
else
 
--julian and grigorian
 
--julian and grigorian
return moduleDates.formatWikiImpl( {year=t.year, month=2, day=29}, t, infocardClass, categoryNamePrefix )
+
return moduleDates.formatWikiImpl( {year=t.year, month=2, day=29}, t, infocardClass, categoryNamePrefix, brcs )
 
end
 
end
 
else
 
else
local julian = os.date("*t", time - boundaries[i][2] * 24 * 60 * 60);
+
local gregTime = os.date( "*t", julTime + boundaries[i][2] * 24 * 60 * 60 );
if ( time < mainBoundary ) then
+
if ( julTime < mainBoundary ) then
 
-- only julian
 
-- only julian
return moduleDates.formatWikiImpl( julian, julian, infocardClass, categoryNamePrefix );
+
return moduleDates.formatWikiImpl( t, t, infocardClass, categoryNamePrefix );
 
else
 
else
 
--julian and grigorian
 
--julian and grigorian
return moduleDates.formatWikiImpl( julian, t, infocardClass, categoryNamePrefix )
+
return moduleDates.formatWikiImpl( t, gregTime, infocardClass, categoryNamePrefix, brcs )
 
end
 
end
 
end
 
end
Строка 524: Строка 695:
 
end
 
end
  
     if ( time >= lastBoundary ) then
+
     if ( julTime >= lastBoundary ) then
 
return "''ошибка в модуле Модуль:Wikidata/date (не найден сдвиг конвертации календаря)''";
 
return "''ошибка в модуле Модуль:Wikidata/date (не найден сдвиг конвертации календаря)''";
 
end
 
end

Текущая версия на 16:53, 22 февраля 2020

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

--settings
local categoryUnknownBirthDate = '[[Категория:Персоналии, чья дата рождения не установлена]]';
local categoryUnknownDeathDate = '[[Категория:Персоналии, чья дата смерти не установлена]]';
local categoryBigCurrentAge = '[[Категория:Википедия:Статьи о персоналиях с большим текущим возрастом]]'
-- local categoryBigDeathAge = '[[Категория:Википедия:Статьи о персоналиях с большим возрастом во время смерти]]' //deleted -d.bratchuk 05-07-2016
local categoryBiographiesOfLivingPersons = '[[Категория:Википедия:Биографии современников]]'
local categoryRecentlyDeceased = '[[Категория:Википедия:Персоналии, умершие менее года назад]]'
local nowLabel = 'наст.&nbsp;время'

local moduleDates = require( "Module:Dates" )
local moduleWikidata = require( "Module:Wikidata" )

function deepcopy(orig)
    local orig_type = type(orig)
    local copy
    if orig_type == 'table' then
        copy = {}
        for orig_key, orig_value in next, orig, nil do
            copy[deepcopy(orig_key)] = deepcopy(orig_value)
        end
        setmetatable(copy, deepcopy(getmetatable(orig)))
    else -- number, string, boolean, etc
        copy = orig
    end
    return copy
end

-- accepts table of time+precision values
function ageCurrent ( bTable )
	local possibleAge = "NYA" -- it meansm "Not Yet Assigned", not what you imagined!

	for bKey, bValue in pairs(bTable) do
		if ( bValue.unknown ) then
			return nil
		end
		local bStructure = bValue.structure
		local bPrecision = bValue.precision

		local dStructure = os.date( "*t" )

		local calculatedAge = ageImpl ( bStructure, bPrecision, dStructure, 11 )
		if ( possibleAge == "NYA" ) then
			possibleAge = calculatedAge
		else
			if ( possibleAge ~= calculatedAge ) then
				possibleAge = nil
			end
		end
	end

	return possibleAge
end

-- accepts tables of time+precision values
function age ( bTable, dTable )
	local possibleAge = "NYA" -- it meansm "Not Yet Assigned", not what you imagined!

	for bKey, bValue in pairs( bTable ) do
		if ( bValue.unknown ) then
			return nil
		end
		local bStructure = bValue.structure
		local bPrecision = bValue.precision

		for dKey, dValue in pairs( dTable ) do
			if ( dValue.unknown ) then
				return nil
			end
			local dStructure = dValue.structure
			local dPrecision = dValue.precision
			if ( bValue.calendar == 'julian' and dValue.calendar == 'gregorian' ) then
				-- to calculate age, need to adjust bStructure to gregorian calendar
				local shift = math.floor(bStructure.year/100-2) - math.floor(bStructure.year/400)
				-- TODO: re-implement this properly
				bStructure.day = bStructure.day + shift
			end

			local calculatedAge = ageImpl ( bStructure, bPrecision, dStructure, dPrecision )
			if ( possibleAge == "NYA" ) then
				possibleAge = calculatedAge
			else
				if ( possibleAge ~= calculatedAge ) then
					possibleAge = nil
				end
			end
		end
	end

	return possibleAge
end

function ageImpl ( bStructure, bPrecision, dStructure, dPrecision )
	if ( not bStructure or not dStructure or bPrecision < 10 or dPrecision < 10 ) then
		return nil
	end

	local shift = 0;
	if ( bStructure.year < 0 and dStructure.year > 0 ) then
		shift = -1;
	end

 	if ( bPrecision == 10 or dPrecision == 10 ) then
 		if ( bStructure.month < dStructure.month ) then
 			return dStructure.year - bStructure.year + shift
 		end
 		if ( bStructure.month == dStructure.month ) then
 			return nil
 		end
 		if ( bStructure.month > dStructure.month ) then
 			return dStructure.year - bStructure.year - 1 + shift
 		end
 	end
 
  	if ( bStructure.month < dStructure.month ) then
 		return dStructure.year - bStructure.year + shift
 	end
 	if ( bStructure.month == dStructure.month ) then
	  	if ( bStructure.day <= dStructure.day ) then
	 		return dStructure.year - bStructure.year + shift
	 	else 
	 		return dStructure.year - bStructure.year - 1 + shift
 		end
 	end
 	if ( bStructure.month > dStructure.month ) then
 		return dStructure.year - bStructure.year - 1 + shift
 	end

	return nil
end

-- returns table of time+precision values for specified property
function parseProperty ( context, options, propertyId )
	if ( not context ) then error( 'context not specified'); end;
	if ( not options ) then error( 'options not specified'); end;
	if ( not options.entity ) then error( 'options.entity is missing'); end;
	if ( not propertyId ) then error( 'propertyId not specified'); end;

	local claims = context.selectClaims( options, propertyId );
	if not claims then
		return nil
	end

	local result = {}
	for key, claim in pairs( claims ) do
		table.insert ( result, parseClaim( claim ) );
	end
	return result
end

function parseClaim ( claim )
	if ( claim.mainsnak.snaktype == "value" ) then
		-- The calendar model used for saving the data is always the proleptic Gregorian calendar according to ISO 8601.
		local timeISO8601 = string.gsub( string.gsub( tostring( claim.mainsnak.datavalue.value.time ), '-00%-', '-01-' ), '-00T', '-01T' )
		local unixtime = parseISO8601( timeISO8601 )
		local structure = os.date("*t", unixtime)
		local precision = tonumber( claim.mainsnak.datavalue.value.precision )
		local calendarmodel = 'gregorian';
		if (mw.ustring.find(claim.mainsnak.datavalue.value.calendarmodel, 'Q1985786', 1, true)) then
			calendarmodel = 'julian';
		end
		local item = { structure=structure, precision=precision, calendar = calendarmodel }
		return item;
	elseif ( claim.mainsnak.snaktype == "novalue" ) then
		-- novalue
		return { unknown="novalue" };
	else
		--unknown 
		return { unknown="unknown" };
	end
end

-- проверка на совпадающие даты с разной моделью календаря
function checkDupDates( t )
	if #t > 1 then
		local removed = false;
		local j = 1;
		-- проверка на совпадающие даты с разной моделью календаря
		while (j <= #t)  do
			local i = 1;
			while (i <= #t)  do
				if i ~= j then
					if (os.time(t[j].structure) == os.time(t[i].structure)) then
						if ((t[j].calendarmodel == 'gregorian') and 
							(t[i].calendarmodel == 'julian')) then
							removed = true;
							break;
						else
							table.remove(t, i)
						end
					else
					  i = i + 1;
					end
				else
					i = i + 1;
				end
			end
			if removed then
				removed = false;
				table.remove(t, j);
			else
				j = j+1;
			end
		end
	end
end

-- returns first qualifier of specified propertyId
function getQualifierDataValue( statement, qualifierPropertyId )
	if ( statement.qualifiers
			and statement.qualifiers[qualifierPropertyId] ) then
		local qualifiers = statement.qualifiers[qualifierPropertyId];
		for _, qualifier in ipairs( qualifiers ) do
			if (qualifier.datavalue) then
				return qualifier.datavalue;
			end
		end
	end
	return nil;
end

local p = {}

local brcs = 0

function p.formatDateOfBirthClaimX( context, options, statement )
	brcs = 1
	return p.formatDateOfBirthClaim( context, options, statement )
end

function p.formatDateOfBirthClaim( context, options, statement )
	if ( not context ) then error( 'context not specified'); end;
	if ( not options ) then error( 'options not specified'); end;
	if ( not options.entity ) then error( 'options.entity is missing'); end;
	if ( not statement ) then error( 'statement not specified'); end;

	local qNotSoonerThan = getQualifierDataValue( statement, 'P1319' );
	local qNotLaterThan = getQualifierDataValue( statement, 'P1326' );
	if ( qNotSoonerThan or qNotLaterThan ) then
		local results = {};
		if ( qNotSoonerThan ) then
			table.insert( results, 'не&nbsp;ранее&nbsp;' .. formatDateImpl( qNotSoonerThan.value, {}, nil, nil ) );
		end
		if ( qNotLaterThan ) then
			table.insert( results, 'не&nbsp;позднее&nbsp;' .. formatDateImpl( qNotLaterThan.value, {}, nil, nil ) );
		end
	    return mw.text.listToText( results, ' и ' , ' и ' ) .. categoryUnknownBirthDate;
	end

    options['conjunction'] = '&#32;или&#32;';
    options['value-module'] = 'Wikidata/date';
    options['value-function'] = 'formatBirthDate';
    options.i18n.somevalue = '\'\'неизвестно\'\'' .. categoryUnknownBirthDate;
	local result = context.formatStatementDefault( context, options, statement );

	local bTable = { parseClaim( statement ) };
	local dTable = parseProperty ( context, options, 'P570' )

	if ( bTable and not dTable ) then
		local age = ageCurrent( bTable )
		if ( age ) then
			if ( brcs ~= 1 ) then
				result = result .. ' <span style="white-space:nowrap;">(' .. age .. ' ' .. mw.language.new( 'ru' ):plural( age, 'год', 'года', 'лет') .. ')</span>'
			end
			if ( not options.nocat ) then
				if ( age > 115 ) then
					result = result .. categoryBigCurrentAge;
				else
					result = result .. categoryBiographiesOfLivingPersons;
				end
			end
		end
	end

	return result;
end

function p.formatDateOfDeathClaimX( context, options, statement )
	brcs = 1
	return p.formatDateOfDeathClaim( context, options, statement )
end

function p.formatDateOfDeathClaim( context, options, statement )
	if ( not context ) then error( 'context not specified'); end;
	if ( not options ) then error( 'options not specified'); end;
	if ( not options.entity ) then error( 'options.entity is missing'); end;
	if ( not statement ) then error( 'statement not specified'); end;

	local qNotSoonerThan = getQualifierDataValue( statement, 'P1319' );
	local qNotLaterThan = getQualifierDataValue( statement, 'P1326' );
	if ( qNotSoonerThan or qNotLaterThan ) then
		local results = {};
		if ( qNotSoonerThan ) then
			table.insert( results, 'не&nbsp;ранее&nbsp;' .. formatDateImpl( qNotSoonerThan.value, {}, nil, nil ) );
		end
		if ( qNotLaterThan ) then
			table.insert( results, 'не&nbsp;позднее&nbsp;' .. formatDateImpl( qNotLaterThan.value, {}, nil, nil ) );
		end
	    return mw.text.listToText( results, ' и ' , ' и ' ) .. categoryUnknownDeathDate;
	end

    options['conjunction'] = '&#32;или&#32;';
    options['value-module'] = 'Wikidata/date';
    options['value-function'] = 'formatDeathDate';
    options.i18n.somevalue = '\'\'неизвестно\'\'' .. categoryUnknownDeathDate;
	local result = context.formatStatementDefault( context, options, statement );

	local bTable = parseProperty ( context, options, 'P569' )
	local dTable = { parseClaim( statement ) };

	if ( bTable and dTable ) then
		local age = age( bTable, dTable )
		if ( age ) then
			if ( brcs ~= 1 ) then
				result = result .. ' <span style="white-space:nowrap;">(' .. age .. ' ' .. mw.language.new( 'ru' ):plural( age, 'год', 'года', 'лет') .. ')</span>'
			end
		end
		
		-- returns category to recently deceased persons
		local unixAvailable, unixDateOfDeath = pcall(function()
			local r = os.time(dTable[1].structure)
			if ( r ~= os.time() ) then
				return r
			end
			error()
		end)
		if ( unixAvailable and os.time() - unixDateOfDeath < 31536000 and not options.nocat ) then
			result = result .. categoryRecentlyDeceased
		end
	end

	return result;
end

-- Reentry point for Wikidata Snak formatting
function p.formatBirthDate( context, options, value )
	if ( not context ) then error( 'context not specified'); end;
	if ( not options ) then error( 'options not specified'); end;
	if ( not value ) then error( 'value not specified'); end;
	
	if ( options.nocat ) then
		return formatDateImpl( value, options, 'bday', nil )
	else
		return formatDateImpl( value, options, 'bday', 'Родившиеся' )
	end
end

-- Reentry point for Wikidata Snak formatting
function p.formatDeathDate( context, options, value )
	if ( not context ) then error( 'context not specified'); end;
	if ( not options ) then error( 'options not specified'); end;
	if ( not value ) then error( 'value not specified'); end;

	if ( options.nocat and options.nocat ~= '' ) then
		return formatDateImpl( value, options, 'dday', nil )
	else
		return formatDateImpl( value, options, 'dday', 'Умершие' )
	end
end

-- Reentry point for Wikidata Snak formatting -- default one
function p.formatDate( context, options, value )
	if ( not context ) then error( 'context not specified'); end;
	if ( not options ) then error( 'options not specified'); end;
	if ( not value ) then error( 'value not specified'); end;

	local microformatClass = options.microformat or nil;
	if ( options.nocat and options.nocat ~= '' ) then
		return formatDateImpl( value, options, microformatClass, nil )
	else
		local categoryPrefix = options.categoryPrefix or nil;
		return formatDateImpl( value, options, microformatClass, categoryPrefix )
	end
end

function p.formatDateIntervalProperty( context, options )
	if ( not context ) then error( 'context not specified' ); end;
	if ( not options ) then error( 'options not specified' ); end;
	if ( not options.entity ) then error( 'options.entity missing' ); end;

	-- Получение нужных утверждений
	local WDS = require( 'Module:WikidataSelectors' );
	local fromProperty = options.property
	if options.from and options.from ~= '' then
		fromProperty = options.from
	end
	local fromClaims = WDS.filter( options.entity.claims, fromProperty );
	local toClaims = WDS.filter( options.entity.claims, options.to );
	local withinClaims = WDS.filter( options.entity.claims, options.within );

    if fromClaims == nil and toClaims == nil then
        return ''
    end

    local formattedFromClaims = {}
    if fromClaims then
	    for i, claim in ipairs( fromClaims ) do
	        local formattedStatement = context.formatStatement( options, claim )
	        if formattedStatement then
	            formattedStatement = '<span class="wikidata-claim" data-wikidata-property-id="' .. string.upper( options.property ) .. '" data-wikidata-claim-id="' .. claim.id .. '">' .. formattedStatement .. '</span>'
	            table.insert( formattedFromClaims, formattedStatement )
	        end
	    end
    end

    local formattedToClaims = {}
    local toOptions = deepcopy( options )
    toOptions.property = options.to
    toOptions.novalue = nowLabel
    if toClaims then
	    for i, claim in ipairs( toClaims ) do
	        local formattedStatement = context.formatStatement( toOptions, claim )
	        if formattedStatement then
	            formattedStatement = '<span class="wikidata-claim" data-wikidata-property-id="' .. string.upper( toOptions.property ) .. '" data-wikidata-claim-id="' .. claim.id .. '">' .. formattedStatement .. '</span>'
	            table.insert( formattedToClaims, formattedStatement )
	        end
	    end
    end

	local out = ''
    local fromOut = mw.text.listToText( formattedFromClaims, options.separator, options.conjunction )
    local toOut = mw.text.listToText( formattedToClaims, options.separator, options.conjunction )
    
	if fromOut ~= '' or toOut ~= '' then
	    if fromOut ~= '' then
	    	out = fromOut
		else
			out = '?'
		end

		if toOut ~= '' then
			out = out .. ' — ' .. toOut
		else
			if withinClaims ~= nil then
				out = 'с ' .. out
			else
				out = out .. ' — ' .. nowLabel
			end
		end
	end

    if out ~= '' then
	    if options.before then
	    	out = options.before .. out
		end
	    if options.after then
	    	out = out .. options.after
		end
	end

    return out
end

function formatDateImpl( value, options, microformatClass, categoryPrefix )
	if ( not value ) then error( 'value not specified'); end;
	if ( not options ) then error( 'options not specified'); end;

	-- The calendar model used for saving the data is always the proleptic Gregorian calendar according to ISO 8601.
	local timeISO8601 = string.gsub( string.gsub( tostring( value.time ), '-00%-', '-01-' ), '-00T', '-01T' )
	local unixtime = parseISO8601( timeISO8601 )
	
	if not unixtime then
		return ''
	end

	local structure = os.date("*t", unixtime)
	local precision = tonumber( value.precision )
	
	if precision <= 6 then
		return formatMillenium(structure, categoryPrefix)
	end	
	if precision == 7 then
		return formatCentury(structure, categoryPrefix)
	end

	if precision == 8 then
		return formatDecade(structure, categoryPrefix)
	end

	if precision == 9 then
		local tCopy = deepcopy( structure )
		tCopy.day = nil
		tCopy.month = nil
		return moduleDates.formatWikiImpl(tCopy, tCopy, infoclass, categoryPrefix)
	end

	-- year and month only
	if precision == 10 then
		local tCopy = deepcopy( structure )
		tCopy.day = nil
		return moduleDates.formatWikiImpl(tCopy, tCopy, infoclass, categoryPrefix)
	end

	local calendarmodel = 'gregorian';
	if (mw.ustring.find(value.calendarmodel, 'Q1985786', 1, true)) then
		calendarmodel = 'julian';
	end

	if (calendarmodel == 'gregorian') then
    	return moduleDates.formatWikiImpl( structure, structure, microformatClass, categoryPrefix )
    else
		return p.formatAsJulian( unixtime, infoclass, categoryPrefix )
	end
end

function formatDecade( time, categoryNamePrefix )
	if ( time.year < 0 ) then
		local year = math.floor( math.abs(time.year) / 10 ) * 10;
		if ( categoryNamePrefix ) then
			return year .. '-е до н. э.[[Category:' .. categoryNamePrefix .. ' в ' .. year .. '-е годы до н. э.]]';
		else
			return '' .. year .. ' до н. э.';
		end
	else
		local year = math.floor( time.year / 10 ) * 10;
		if ( categoryNamePrefix ) then
			return year .. '-е[[Category:' .. categoryNamePrefix .. ' в ' .. year .. '-е годы]]';
		else
			return '' .. year;
		end
	end
end

function formatCentury( time, categoryNamePrefix )
	local moduleRoman = require( "Module:RomanNumber" )
	if ( time.year < 0 ) then
		local century = math.floor( (math.abs( time.year) - 1) / 100 ) + 1;
        local infix = ' в ';
        if century == 2 then infix = ' во '; end;
		if ( moduleRoman ) then
			century = moduleRoman.toRomanNumber( century );
		end
		if ( categoryNamePrefix ) then
			return '[[' .. century .. ' век до н. э.]][[Category:' .. categoryNamePrefix .. infix .. century .. ' веке до н. э.]]'
		else
			return '[[' .. century .. ' век до н. э.]]'
		end
	else
		local century = math.floor( (time.year - 1) / 100 ) + 1;
        local infix = ' в ';
        if (century == 2) then infix = ' во ' end;
		if ( moduleRoman ) then
			century = moduleRoman.toRomanNumber( century );
		end
		if ( categoryNamePrefix ) then
			return '[[' .. century .. ' век]][[Category:' .. categoryNamePrefix .. infix .. century .. ' веке]]'
		else
			return '[[' .. century .. ' век]]'
		end
	end
end

function formatMillenium( time, categoryNamePrefix )
	if ( time.year < 0 ) then
		local millenium = math.floor( (math.abs( time.year) - 1) / 1000 ) + 1;
		if ( categoryNamePrefix ) then
			if ( millenium == 2 ) then
				return '[[' .. millenium .. '-е тысячелетие до н. э.]][[Category:' .. categoryNamePrefix .. ' во ' .. millenium .. '-м тысячелетии до н. э.]]'
			else	
				return '[[' .. millenium .. '-е тысячелетие до н. э.]][[Category:' .. categoryNamePrefix .. ' в ' .. millenium .. '-м тысячелетии до н. э.]]'
			end	
		else
			return '[[' .. millenium .. '-е тысячелетие до н. э.]]'
		end
	else
		local millenium = math.floor( (time.year - 1) / 1000 ) + 1;
		if ( categoryNamePrefix ) then
			if ( millenium == 2 ) then
				return '[[' .. millenium .. '-е тысячелетие]][[Category:' .. categoryNamePrefix .. ' во ' .. millenium .. '-м тысячелетии]]'
			else
				return '[[' .. millenium .. '-е тысячелетие]][[Category:' .. categoryNamePrefix .. ' в ' .. millenium .. '-м тысячелетии]]'
			end
		else
			return '[[' .. millenium .. '-е тысячелетие]]'
		end
	end
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 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)

	if not Y or not M or not D or not h or not m or not s or not oh or not om then
		return nil
	end

	return tonumber(os.time({year=Y, month=M, day=D, hour=(h+oh), min=(m+om), sec=s}))
end

local lowestBoundary = parseISO8601('-900-02-20T00:00:00Z')
local mainBoundary = parseISO8601('1582-10-05T00:00:00Z')
local lastBoundary = parseISO8601('1918-01-31T00:00:00Z');

boundaries = {
	-- from (G) till next will be diff(G = J + diff), at current
	{ lowestBoundary,                       -9 },
	{ parseISO8601('-700-02-29T00:00:00Z'), -8 },
	{ parseISO8601('-600-02-29T00:00:00Z'), -7 },
	{ parseISO8601('-500-02-29T00:00:00Z'), -6 },
	{ parseISO8601('-300-02-29T00:00:00Z'), -5 },
	{ parseISO8601('-200-02-29T00:00:00Z'), -4 },
	{ parseISO8601('-100-02-29T00:00:00Z'), -3 },
	{ parseISO8601('0000-00-00T00:00:00Z'), -2 },
	{ parseISO8601('0100-02-29T00:00:00Z'), -1 },
	{ parseISO8601('0200-02-29T00:00:00Z'),  0 },
	{ parseISO8601('0300-02-29T00:00:00Z'),  1 },
	{ parseISO8601('0500-02-29T00:00:00Z'),  2 },
	{ parseISO8601('0600-02-29T00:00:00Z'),  3 },
	{ parseISO8601('0700-02-29T00:00:00Z'),  4 },
	{ parseISO8601('0900-02-29T00:00:00Z'),  5 },
	{ parseISO8601('1000-02-29T00:00:00Z'),  6 },
	{ parseISO8601('1100-02-29T00:00:00Z'),  7 },
	{ parseISO8601('1300-02-29T00:00:00Z'),  8 },
	{ parseISO8601('1400-02-29T00:00:00Z'),  9 },
	{ parseISO8601('1500-02-29T00:00:00Z'), 10 },
	{ parseISO8601('1700-02-29T00:00:00Z'), 11 },
	{ parseISO8601('1800-02-29T00:00:00Z'), 12 },
	{ parseISO8601('1900-02-29T00:00:00Z'), 13 },
	{ lastBoundary, '' },
};

-- Передаваемое время обязано быть по Юлианскому календарю (старому стилю)
function p.formatAsJulian( julTime, infocardClass, categoryNamePrefix )
	if 'table' == type( julTime ) then
		if julTime.args and julTime.args[1] then
			julTime = tonumber( julTime.args[1] )
		else
			return 'unknown argument type: ' .. type( julTime ) .. ': ' .. table.tostring( julTime )
		end
	end

	local t = os.date( "*t", julTime )
	if ( julTime <= lowestBoundary ) then
		return "''некорректная дата (недостижимая точность)''";
	end
	if ( julTime >= lastBoundary ) then
		return "''некорректная дата (юлианский не используется после 1918-01-26)''";
	end

    for i=1,#boundaries,1 do
		local b1 = boundaries[i][1];
		local b2 = boundaries[i + 1][1];
		if ( b1 <= julTime and julTime < b2 ) then
			local b1s = os.date( "*t", b1 )
			if ( b1s.year == t.year and b1s.month == t.month and b1s.day == t.day) then
				if ( julTime < mainBoundary ) then
					-- only julian
					return moduleDates.formatWikiImpl( {year=t.year, month=2, day=29}, {year=t.year, month=2, day=29}, infocardClass, categoryNamePrefix );
				else
					--julian and grigorian
					return moduleDates.formatWikiImpl( {year=t.year, month=2, day=29}, t, infocardClass, categoryNamePrefix, brcs )
				end
			else
				local gregTime = os.date( "*t", julTime + boundaries[i][2] * 24 * 60 * 60 );
				if ( julTime < mainBoundary ) then
					-- only julian
					return moduleDates.formatWikiImpl( t, t, infocardClass, categoryNamePrefix );
				else
					--julian and grigorian
					return moduleDates.formatWikiImpl( t, gregTime, infocardClass, categoryNamePrefix, brcs )
				end
			end
		end
	end

    if ( julTime >= lastBoundary ) then
		return "''ошибка в модуле Модуль:Wikidata/date (не найден сдвиг конвертации календаря)''";
	end
end

return p