PROCEDURE JourVersQuantiéme ( _Date = DateSys )


s Année est une chaîne
s Année = _Date [[ 1 A 4 ]]

nbJour1erJanvier est un entier
nbJourDate est un entier
n Quantième est un entier


nbJourDate = DateVersEntier ( _Date )
nbJour1erJanvier = DateVersEntier ( s Année + "0101" )


n Quantième = nbJourDate - nbJour1erJanvier + 1

RENVOYER n Quantième

 

PROCEDURE QuantiemeVersJour ( _Annee , _Quantieme )

d Date est une Date

d Date = EntierVersDate ( DateVersEntier ( _Annee + "0101" )+ _Quantieme - 1 )

RENVOYER d Date