JOUR JULIEN, DATE JULIENNE
cs_HeXoR
Messages postés
165
Date d'inscription
mercredi 29 janvier 2003
Statut
Membre
Dernière intervention
15 avril 2010
-
13 mai 2003 à 18:18
cs_Tioneb Messages postés 193 Date d'inscription dimanche 16 décembre 2001 Statut Membre Dernière intervention 29 juillet 2015 - 5 mars 2006 à 19:03
cs_Tioneb Messages postés 193 Date d'inscription dimanche 16 décembre 2001 Statut Membre Dernière intervention 29 juillet 2015 - 5 mars 2006 à 19:03
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7080-jour-julien-date-julienne
https://codes-sources.commentcamarche.net/source/7080-jour-julien-date-julienne
5 mars 2006 à 19:03
pour que ça fonctionne j'ai du modifier le code. Je le donne pour RAMANVDA (je sais pas si tu en a encore besoin, mais sinon ça servira pour quelqu'un d'autre):
Public Function JourJulien(dDate As Date) As Integer
Dim oDate As Date
oDate = CDate("01/01/" & Right(CStr(dDate), 4)) ' premier jour de l'année
JourJulien = dDate - oDate + 1 ' Le résultat ;)
End Function
Et avec ça, ça fonctionne super!
24 mars 2005 à 14:16
Ainsi Left(dDate, 4) renvoi "13/0" et non pas "2003" même si je rentre en text1 "2003/01/13"
Il faudrait formater la varible dDate en "yyyy/mm/dd"
Sinon cela m'a aidé à comprendre le système julien donc 10/10 pour la note (je récupérer en Query des dates juliennes sur un AS400)
Pour info voici mon bout de code en VBA (pas VB) pour convertir des dates grégoriennes en Juliennes et inversement (dans le cas de mon AS400):
'-----------------------------------------------
Function DateG(case1 As Range) As Date
Dim oDate As Date
Dim julien As Long
Dim an As String, jour
julien = CLng(case1.Text)
Select Case julien
Case Is >= 100000
an = "20" & Mid(julien, 2, 2)
Case Is < 100000
an = "19" & Mid(julien, 1, 2)
Case Else
DateG = "erreur"
End Select
jour = Right(julien, 3)
oDate = CDate("01/01/" & an)
DateG = oDate + CInt(jour)
End Function
'-----------------------------------------------
Function DateJ(case1 As Range) As Long
Dim oDate As Date
Dim greg As Date
Dim an As String, jour
Dim JourJ As Integer
greg = CDate(case1.Text)
an = Right(greg, 2)
oDate = "01/01/" & an
JourJ = greg - oDate + 1
If JourJ < 100 Then
DateJ = CLng("1" & an & "0" & JourJ)
Else
DateJ = CLng("1" & an & JourJ)
End If
End Function
'-----------------------------------------------
C'est pas top mais ça fonctionne.
Merci à tous! Chaio:!
23 mars 2005 à 18:34
23 mars 2005 à 17:36
Vérifie le résultat de la fonction Left(dDate, 4)
Tu devrais y voir l'année ex.: "2005".
Le principe est de soustraire 2 dates.
Tu peux esseyer en inversant la fonction de date
oDate = "01/01/" & Right(dDate,4)
Écrits tes résultats sur cette page pour le bénéfice de tous.
23 mars 2005 à 10:16
Le prog bloque ici:
oDate = Left(dDate, 4) & "/01/01" ' premier jour de l'année
J'ai essayé avec 13/01/2003, 13/01/03, 2003/01/03...rien ne passe.
J'ai essayé cela mais sans résultat:
oDate = CDate(Left(CStr(dDate), 4) & "/01/01") ' premier jour de l'année
help!
22 déc. 2003 à 01:30
pourquoi critiquer quand on ne connait pas?!
cela est tres utile
4 août 2003 à 23:30
4 août 2003 à 20:30
Pour son utilité, c'est encore plus utile que l'on peut le croire. Dans des bases de données des grande envergure sur des céduleurs qui fonctionnent sur des systèmes centraux d'acienne génération(TSO, IDEAL), les formats de dates fonctionnent généralement sur le calendrier Julien.
Mis à part certaines application SQL, la programmation de nos jours ne requière que des dates sous le format Grégorien.
4 août 2003 à 20:12
http://louisg.levillage.org/C_julien.htm
5 juin 2003 à 18:40
5 juin 2003 à 14:57
Youpi
14 mai 2003 à 10:12
on recupere l'année , on ajoute 01/01 , et on a un type Date , qui contient la date du premier jour de l'annee.
une soustraction donne finalement la difference : le nombre du jour courant.
14 mai 2003 à 10:09
nan sérieusement ... c'est quoi ?
13 mai 2003 à 22:01
13 mai 2003 à 21:44
13 mai 2003 à 18:18