Convertisseur date vers jour Julien et inversement

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 ?

ygeronimi a écrit:

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 ?

C'est un des moyens privilégié pour faire des calculs sur des dates (écart entre deux dates, addition, soustraction de dates etc etc).
Ce sont les sous-programmes "julien" et "gregorien" dans mon source qui font la transition d'un format à l'autre.
En fait, on transforme une date en valeur numérique et inversement, ce qui permet les calculs arithmétiques.

J'en ai besoin pour un programme en cours de réalisation qui va gérer des consommations de carburant d'un véhicule en fonction des kilomètres parcourus, des dates de ravitaillement et quantités de carburant approvisionnés.

Des langages de programmation (évolués) savent faire ces calculs sur les dates, mais hélas pas encore Panoramic à ce que je sache, ce qui a motivé l'écriture de ces quelques lignes de code.

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é:
https://panoramic.1fr1.net/t1107-date-date-julienne?highlight=date+julienne

ygeronimi a écrit:

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.

Merci pour l'info, je n'avais pas encore découvert cette DLL. Sympa !

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