Date from DOY. (A.Pouplier)

[ggauny@live.fr]

Code:

EXPORT DOY(DATE)
BEGIN
LOCAL B:=2,AN,M,J;
IP(DATE)▶J;
IP(FP(DATE)*100)▶M;
IP(FP(FP(DATE)*100)*10000)▶AN;
//LEAP YEAR ?
CASE
IF (NOT(AN MOD 4) AND AN MOD 100)
 OR(NOT(AN MOD 400))
  THEN B:=1; // LEAP
  END;

IF AN<1582 AND irem(AN,4)==0
   THEN B:=1; //LEAP
   END;
END;

RETURN IP(275*M/9)-B*IP((M+9)/12)+J-30;
END;

I thing i have finded a way to paste correctely codes, yes i hope...
Gérard.