Date from DOY. (A.Pouplier)

[ggauny@live.fr]

Code:

(       
       1 D A T E _ D U _ D O Y     2  E X P O R T   D A T E _ D U _ D O Y ( N , A N ) 
 B E G I N 
 L O C A L   K : = 2 , M , J , J D , J U L : = 0 , C R ; 
 C A S E 
 I F   ( A N > 1 5 8 2 )   A N D   ( N O T ( A N   M O D   4 )   A N D   A N   M O D   1 0 0 )   
 O R   ( N O T ( A N   M O D   4 0 0 ) )   T H E N   K : = 1   E N D ; 
 
 I F   ( A N < 1 5 8 2 )   A N D   i r e m ( A N , 4 ) = = 0   T H E N 
         K : = 1 ; E N D ; 
 E N D ; 
 
 M : = I P [ ( 9 * ( K + N ) / 2 7 5 ) + . 9 8 ] ; 
 I F   N < 3 2   T H E N   1 ¶%M   E N D ; 
 J : = N - I P ( ( 2 7 5 * M ) / 9 ) + K * I P ( ( M + 9 ) / 1 2 ) + 3 0 ; 
 
 / / A : = I P ( A N / 1 0 0 ) ; C R : = 2 - A + I P ( A / 4 ) ; 
 
 / / I F ( A N + M / 1 0 0 + J / 1 0 0 0 0 ) < 1 5 8 2 . 1 0 1 4 5 
     / / T H E N   1 ¶%J U L ; 
 
 / / I F   J U L = = 1   T H E N   0 ¶%C R   E N D ; 
 / / J D : = I P ( 3 6 5 . 2 5 * ( A N + 4 7 1 6 ) ) + I P ( 3 0 . 6 0 0 1 * ( M + 1 ) ) 
         / / + J + C R - 1 5 2 4 . 5 ; 
 / / J D : = J D + 1 . 5 ; 
 / / J D : = i r e m ( J D , 7 ) ; 
 
   
 R E T U R N ( J + " / " + M + " / " + A N ) ; 
 
 
 E N D ;

For exemple : 291....0732 give 17/10/732 LEAP
290....0733 give 17/10/733

245....1948 give 1/9/1948 LEAP
244....1947 give 1/9/1947

Cheers