JOUR JULIEN, DATE JULIENNE

Commentaire de HeXoR le 13/05/2003 18:18:22

Ca sert un peu BEAUCOUP à rien 1/10 :)

Commentaire de Renfield le 13/05/2003 22:01:07 administrateur CS

meme remarque , c'est un peu exagéré comme réaction , c'est une astuce qui peut servir.....

Commentaire de Renfield le 14/05/2003 10:12:24 administrateur CS

premier javnvier , l'année est au debut !
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.

Commentaire de Jujufouq le 05/06/2003 18:40:36

Au fait, ça vient d'où le nom de Jour Julien? En fait, je ne connaissait pas, et comme mon p'tit nom c'est le même, j'aurai aimé savoir... Peut-être que si quelqu'un sait il peut m'écrire un message plutôt que de le faire ici. Allez, salut tlm!

Commentaire de Cadryal le 04/08/2003 20:30:55

En passant, bravo dpouliot, ce code est bien optimisé.

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.

Commentaire de iurodivi le 22/12/2003 01:30:38

pour HeXoR:
pourquoi critiquer quand on ne connait pas?!

cela est tres utile

Commentaire de dpouliot le 23/03/2005 17:36:05

Bonjour ramanvda
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.

Commentaire de ramanvda le 24/03/2005 14:16:39

Le text1 (la variable dDate) est stocké de la sorte: "13/01/2003" et non pas "2003/01/13". Surement pb des option régionale.

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:!