rem Vérification calcul avec: http://www.patricklecoq.fr/convert/cnv_calendar.html

label start,julien,gregorien,
dim J,M,A,JJ
dim b,c,d,e,jour,mois,annee

left 0,223
top 0,200
width 0,687
height 0,183
caption 0,"Convertisseur Dates par F6DTL Georges"

alpha 1
left 1,160
top 1,20
width 1,346
caption 1," Grégorien vers Julien et inversement"

alpha 2
left 2,40
top 2,70
caption 2,"Jour"

alpha 3
left 3,130
top 3,70
caption 3,"Mois"

alpha 4
left 4,220
top 4,70
caption 4,"Année"

alpha 5
left 5,440
top 5,70
width 5,197
caption 5,"Jour Julien"

edit 6
left 6,40
top 6,100
width 6,64

edit 7
left 7,130
top 7,100
width 7,64

edit 8
left 8,220
top 8,100
width 8,65

edit 9
left 9,440
top 9,100
width 9,197

button 10
left 10,300
top 10,100
width 10,52
caption 10,"<<<<"
on_click 10,gregorien

button 11
left 11,370
top 11,100
width 11,52
caption 11,">>>>"
on_click 11,julien


rem ------------------------ Programme principal -------------------------------
start:
text 6,1
text 7,1
text 8,2011
gosub julien

end

rem ---------------------- Sous programmes -------------------------------------

rem calcul de la date Julienne
julien:
J=text$(6)
M=text$(7)
A=text$( 8 )
JJ =367*A-int(1.75*(int((M+9)/12)+A))+int(275*M/9)-int(0.75*(1+int(0.01*(int((M-9)/7)+A))))+J+1721028.5
text 9,JJ
return

rem calcul de la date Grégorienne
gregorien:
JJ=text$(9)
JJ=int(JJ)
a=JJ+32045
b=int(4*(a+36524)/146097)-1
c=a-int(146097*b/4)
d =int(4*(c+365)/1461)-1
e =c-int(1461*d/4)
m =int((5*(e-1)+2)/153)
rem résultats
jour=e-int(((153*m)+2)/5)+1
mois=m+3-12*int(m/10)
annee=(100*b)-4800+int(m/10)+d
text 6,jour
text 7,mois
text 8,annee
return

Je n'ai pas les moyens de vérifier les calculs
mais je trouve cela original et intéressant.

as tu une application de cette outils ?

Tu peux aussi te servir de la dll collective
YGF.dll dispo sur le site de Klaus que j'ai compilé pour tri par date dans un grid.
la dll renvoie la date de format JJ/MM/AAAA sous forme de nombre
0 étant le 30/12/1899.

Le sujet a déjà été traité:
http://panoramic.free-boards.net/t1107-date-date-julienne?highlight=date+julienne

Si je peux aider quelqu'un à mon tour,
j' en suis ravi .