Note postée le Jeudi 31 Août 2006
N'ayant pas trouvé une fonction du WLangage retournant le quantième d'une date, j'ai écrit cette petite fonction qui remplie cette tache.
Elle retourne 1 pour le 1er janvier et 365 pour le 31 décembre.
PROCEDURE NumeroDeJour(paramDate = DateSys())
sAnnée est une chaîne
sAnnée = paramDate[[1 A 4]]
nbJour1erJanvier est un entier
nbJourDate est un entier
nQuantième est un entier
nbJourDate = DateVersEntier(paramDate)
nbJour1erJanvier = DateVersEntier(sAnnée + "0101")
nQuantième = nbJourDate - nbJour1erJanvier + 1
RENVOYER nQuantième