Les notes de MissWindie

Note postée le Jeudi 31 Août 2006

Comment calculer le quantième en WinDev?

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



Lien pour vos favoris (bookmarks)

Retour à la page des fleurs