Discussion :

[challe1976]

Bonjour,

Peut-on convertir une date en date julienne dans une requête Access:

Par exemple:

ConvertJulian([SMOD_DAT_PAIMT])

Merci

Catherine

[User]

Bonsoir,

Si vous faîtes une recherche sur net vous aller trouver des exemples de fonctions VBA qui font cette conversion, vous copiez ensuite cette fonction dans un module et vous l'appelez dans votre requête comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateJul: ConvertJulian([SMOD_DAT_PAIMT])

Cdlt,

[challe1976]

Bonjour

J'ai créé la fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function ConvertJulian(JulDay As Integer, Optional YYYY)
    If IsMissing(YYYY) Then YYYY = Year(Date)
    If Not IsNumeric(YYYY) Or YYYY \ 1 <> YYYY Or YYYY < 100 Or YYYY _
      > 9999 Then Exit Function
    If JulDay > 0 And JulDay < 366 Or JulDay = 366 And _
      YYYY Mod 4 = 0 And YYYY Mod 100 <> 0 Or YYYY Mod 400 = 0 Then _
        CJulian2Date = Format(DateSerial(YYYY, 1, JulDay), "m/d/yyyy")
End Function

Je vais la chercher comme ça : DateJul: ConvertJulian([SMOD_DAT_PAIMT]).

Et puis, ça m'affiche comme résultat: #Nombre*!

Quel est le problème ?

Merci!!

Catherine

[User]

Bonjour,

Si tu souhaites convertir une date classique en date julienne, alors il faut changer la fonction, car la tienne fait le contraire.

Essaie celle-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function CDate2Julian(MyDate As Date) As String
 
   CDate2Julian = Year(MyDate) Mod 100 & "-" & Format(MyDate - DateSerial(Year(MyDate) - 1, 12, _
     31), "000")
 
End Function

Ensuite, dans ta requête tu fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateJul: CDate2Julian([SMOD_DAT_PAIMT])

Par exemple pour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

? CDate2Julian("01/03/2015")

Cela te renvoie :

"15-060"

15 représente l'année et 060 le jour dans l'année

a+

[challe1976]

J'ai créée un module pour mettre la procédure

et je l'appelle dans la requête mais ça me donne un erreur que voici en pièce jointe.

Quel est le problème ?

Merci.

[User]

Bonjour,

Quand vous ouvrez juste la requête ça donne quoi ?

Cdlt,

[deedolith]

Bonjour,

@User:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateJul: CDate2Julian([SMOD_DAT_PAIMT])

Il me semble important de preciser que ceci doit être ecrit dans le requeteur, et non dans le code SQL.
En SQL, cela donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT
CDate2Julian([SMOD_DAT_PAIMT]) AS DateJul
FROM maTABLE

@challe1976:
Peux tu nous montrer ta requete ?

[challe1976]

Ok. merci. J'ai changé le nom pour CDateJulian et ça a fonctionné! Super!