Module:Durée
Apparence
[voir] [modifier] [historique] [purger]
Utilisation
Fonctions exportables :
duree(frame)
– Fonction principale utilisable dans les modèles._duree(args)
– Fonction pour utilisation dans d'autres modules avec le tableau des paramètres.
Autres fonctions :
joursMois(m, a)
erreur(texte)
determinationMois(mois)
La documentation de ce module est générée par le modèle {{Documentation module}}.
Elle est incluse depuis sa sous-page de documentation. Veuillez placer les catégories sur cette page-là.
Les éditeurs peuvent travailler dans le bac à sable (modifier).
Voir les statistiques d'appel depuis le wikicode sur l'outil wstat et les appels depuis d'autres modules.
local p = {}
-- liste des mois, écriture exacte et simplifiée, en minuscule
local liste_mois = {
{ "janvier", "jan.", "janv.", "jan", "janv", "january", nJour = 31 },
{ "février", "fevrier", "fev.", "fev", "fév.", "fév", "february", nJour = 28 },
{ "mars", "mar.", "mar", "march", nJour = 31 },
{ "avril", "avr.", "avr", "apr", "april", nJour = 30 },
{ "mai", "may", nJour = 31 },
{ "juin", "jun", "june", nJour = 30 },
{ "juillet", "juil.", "juil", "juill.", "juill", "jul", "july", nJour = 31 },
{ "août", "aout", "aou", "aug", "august", nJour = 31 },
{ "septembre", "sept.", "sept", "sep.", "sep", "september", nJour = 30 },
{ "octobre", "oct.", "oct", "october", nJour = 31 },
{ "novembre", "nov.", "nov", "november", nJour = 30 },
{ "décembre", "decembre", "déc.", "dec.", "dec", "déc", "december", nJour = 31 },
}
local function joursMois( m, a )
a = a or 1
if m == 0 then
return 31
elseif m == 2 then
b = ( a % 4 == 0 ) and ( ( a % 100 ~= 0 ) or ( a % 400 == 0 ) )
return 28 + ( b and 1 or 0 )
else
return liste_mois[m].nJour
end
end
function erreur( texte )
local cat = '[[Catégorie:Page utilisant un modèle avec une syntaxe erronée|Durée]]'
local message = '<span class="error">erreur : ' .. texte .. '</span>'
local ns = mw.title.getCurrentTitle().namespace
if ns == 0 then
return message .. cat
else
return message
end
end
---
local function determinationMois( mois )
if tonumber( mois ) then
local num = math.floor( tonumber( mois ) )
if num > 0 and num <= 12 then
return num
end
elseif type( mois ) == 'string' and mw.text.trim( mois ) ~= '' then
local nom = mw.ustring.lower( mois )
for num = 1, 12 do
local i = 1
while liste_mois[num][i] do
if liste_mois[num][i] == nom then
return num
end
i = i + 1
end
end
end
end
function p._duree( args )
local maintenant = os.date( '!*t' )
local fuseau = mw.getContentLanguage():formatDate("Z", nil, true)/3600
if maintenant.hour + fuseau > 23 then
maintenant.day = maintenant.day + 1
end
local params = {}
local precision = 'jour'
local jour1 = tonumber( args[1] )
if not jour1 then
precision = 'mois'
jour1 = maintenant.day
end
local mois1 = determinationMois( args[2] )
if not mois1 then
if precision == 'mois' then
precision = 'an'
mois1 = maintenant.month
else
return erreur( 'mois invalide (' .. ( args[2] or '' ) .. ')' )
end
end
local annee1 = tonumber( args[3] )
if not annee1 then
if precision == 'an' then
return
else
annee1 = maintenant.year
end
end
local jour2 = tonumber( args[4] ) or maintenant.day
local mois2 = determinationMois( args[5] ) or maintenant.month
local annee2 = tonumber( args[6]) or maintenant.year
local tri = os.difftime(
os.time{ year = annee2, month = mois2, day = jour2 },
os.time{ year = annee1, month = mois1, day = jour1 }
) / 86400
if tri < 0 then
return erreur( 'durée inférieure à 0' )
end
tri = 0 .. tostring( tri )
tri = string.rep( '&', 16 - #tri ) .. tri
local njour = jour2 - jour1
local nmois = mois2 - mois1
local nannee = annee2 - annee1
if njour < 0 then
nmois = nmois - 1
njour = njour + joursMois( mois2 - 1, annee2 )
end
if nmois < 0 then
nannee = nannee - 1
nmois = nmois + 12
end
local result = {}
local function add( nombre, singulier, pluriel )
if nombre > 0 then
local texte = pluriel
if nombre == 1 then
texte = singulier
end
table.insert( result, nombre .. '\194\160' .. texte )
end
end
add( nannee, 'an', 'ans' )
if precision ~= 'an' then
add( nmois, 'mois', 'mois' )
end
if precision == 'jour' then
add( njour, 'jour', 'jours' )
end
if #result == 0 then
result[1] = 'moins d’un ' .. precision
tri = 0
end
return mw.text.tag{
name = 'span',
attrs = { class = 'datasortkey', ['data-sort-value'] = tri },
content = mw.text.listToText( result, ' ', ' et ' )
}
end
function p.duree( frame )
local args = frame:getParent().args
for i = 1, 6 do
if tonumber( args[i] ) == 0 then
args[i] = ''
end
end
return p._duree( args )
end
return p