Pour que ce petit programme donne le jour Julien actuel, ne pas oublier de régler date et heure des calculatrices TI-83 ou TI-84 ------------------------------------------------ PROGRAM:JJ EffÉcran EffTtesListes 0→A:0→M:0→J:0→G 0→B:0→C:0→D:0→E "(B et C sont correctifs pour dates >15 oct 1582)" affDate→L₆ L₆(1)→A L₆(2)→M L₆(3)→J Disp " JJ jour julien Disp "**************************" Output(4,6,"le"):Output(4,8,J) Output(4,10,"/"):Output(4,12,M) Output(4,15,"/"):Output(4,17,A) If M<3:Then A-1→A:M+12→M End partEnt(A/100)→B 2-B+partEnt(B/4)→C partEnt(365.25*A)→D partEnt(30.6001*(M+1))→E C+D+E+J+1720994.5→G Output(6,18,"0") Output(6,9,G) Output(9,1,"**************************") Pause EffTtesListes EffÉcran