OVH Cloud OVH Cloud

fonction DayOf Year ?

2 réponses
Avatar
login XP
Je selectionne une date au format standart : 09/03/2006
et je la transforme de la façon suivante :

NumDayAnne.Text = Me.Date.Value.DayOfYear
exemple : en entrée je sélectionne le 09/03/2006
se qui donne : n°jour : 68 et année : 2006

Cela marche tres bien .

Comment puis je faire l'enverse avec comme données :

Un entier representant le N° de journée de l'année + un 2 eme entier
avec l'année en cours

exemple : LabelN°Jour = 68 et LabelAnnée = 2006

pour avoir en sortie le 09/03/2006

merci de votre aide

laurent

2 réponses

Avatar
bayosky
Dans le message ,
login XP a écrit :
Je selectionne une date au format standart : 09/03/2006
et je la transforme de la façon suivante :

NumDayAnne.Text = Me.Date.Value.DayOfYear
exemple : en entrée je sélectionne le 09/03/2006
se qui donne : n°jour : 68 et année : 2006

Cela marche tres bien .

Comment puis je faire l'enverse avec comme données :

Un entier representant le N° de journée de l'année + un 2 eme entier
avec l'année en cours

exemple : LabelN°Jour = 68 et LabelAnnée = 2006

pour avoir en sortie le 09/03/2006



A mon avis :

Tu fixes une première valeur Date :
Val1 = #01/01/2006 00:00:00#
Ensuite
tu fabriques la valeur qui correspond à 68 jours
et c'est ... tada ! Val2 = 68

En suite Result = Val1 + Val2 devrait contenir la bonne date ...
( une date est en fait un Double avec 1 <=> "1 jour" )

A+

HB
Avatar
jt
"login XP" a écrit dans le message de
news:
Je selectionne une date au format standart : 09/03/2006
et je la transforme de la façon suivante :

NumDayAnne.Text = Me.Date.Value.DayOfYear
exemple : en entrée je sélectionne le 09/03/2006
se qui donne : n°jour : 68 et année : 2006

Cela marche tres bien .

Comment puis je faire l'enverse avec comme données :

Un entier representant le N° de journée de l'année + un 2 eme entier
avec l'année en cours

exemple : LabelN°Jour = 68 et LabelAnnée = 2006

pour avoir en sortie le 09/03/2006

merci de votre aide

laurent



bonsoir
il suffit de faire
cejour = DateSerial(2006, 1, JourDeAnnée)
Cordialement