Convertir un quantième en date

[RAGUIDEAU Vincent]

Bonjour,

Je cherche une fonction permettant de convertir un quantième en date (Format jj/mm/aaaa).

J'ai dans une table un champs quantième exemple : 336 que je voudrais convertir en 02/12/2011

[Heureux-oli]

Salut,


partant du principe que c'est une date julienne.


il suffit dobtenir le jour que ça représente.
Une date est un réel double.
Il faut passer par une fonction qui va convertir en date.

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Public Function DateJulienneEnGregorien(intJour As Integer) As Date
Dim premJan As Date
'Définition du premier janvier de l'année en cours
premJan = CDate("01/01/" & Year(Date))
'Calcul de la date grégorienne en fonction de la date julienne
DateJulienneEnGregorien = DateAdd("d", intJour - 1, premJan)
 
 
 
End Function

Le principe de la fonction est simple. Une date julienne est le nombre de jour écoulé depuis le premier janvier. On part donc du premier janvier auquel on ajoute le nombre de jours.

Pour 346, on obtient le 12/12/2011 qui est la date de demain 346 ième jour de l'année.

Il te suffit de faire appel à cette fonction dans ta requête.

[RAGUIDEAU Vincent]

Re-bonjour,


Le champs quatième est un champs extrait d'un autre champs et il peut y avoir un nombre ou bien être vide.

Existe t-il une finction plus simple que celle proposée par olivier

PS: merci olivier pour cette réponse, mais un peu trop complexe pour moi (je n'ai que quelque base avec l'appli access)