13012 vs 12066

[DrD]

The EXPORT command:

Code:


 // for date ≥ oct 15 1582 (2299161)
EXPORT DateG2JJ(date)
BEGIN

  LOCAL year,month,day;
  LOCAL cnt,diz;

// Cut the date YYYY.MMDD into sub parts
  year:=IP(date); // YYYY
  month:=IP(100*FP(date)); // MM
  day:=IP(FP(FP(date)*100)*100); // DD

// Move the beginning of the year to
// March 1st (adding 1 day, e.g. feb 29th
// becomes easier if at the end)
  IF month<3 THEN
    year:=year-1;
    month:=month+12;
  END;

// Cut the year into parts
// (Needed for converting Gregorian
// calendar dates to JDN)
  cnt:=IP(year/100); // [YY]YY
  diz:=IP(year-100*IP(year/100)); //YY[YY]

// julian day number at noon
// from gregorian date YYYY.MMDD
  RETURN (
          IP((146097*cnt+6884480)/4) + 
          IP(1461*diz/4) + 
          IP((153*month-457)/5) +day-1
         );
END;

-Dale-