

1  DEF FN Juliandat!(Tag,Monat,Jahr,Ut!)
2  LOCAL Jd!,Y,M,B,Zeitraum
3  IF (Jahr<1582) OR (Jahr=1582 AND Monat<10) OR (Jahr=1582 AND Monat=10 AND Tag<5) THEN
4    Zeitraum=1'*** Julianischer Kalender
5  ELSE
6    IF Jahr=1582 AND Monat=10 AND Tag>4 AND Tag<15 THEN
7       Zeitraum=2
8    ENDIF
9  ENDIF
10 IF Jahr<>0 THEN
11    IF Zeitraum<>2 THEN
12       IF Jahr<0 THEN
13         Jahr+=1
14       ENDIF
15       IF Monat<=2 THEN
16          Y=Jahr-1
17          M=Monat+12
18       ELSE
19          Y=Jahr
20          M=Monat
21       ENDIF
22       IF Zeitraum=1 THEN
23          B=-2
24       ELSE
25          B=INT(Y/400)-INT(Y/100)
26       ENDIF
27       Jd!=INT(365.25!*Y)+INT(30.6!*(M+1))+B+1720996.5!+Tag+Ut!/24
28       IF Jd!<0 THEN '*** Julianisches Datum < 0 ist nicht definiert
29          Jd!=-3
30       ENDIF
31    ELSE
21       Jd!=-2
22    ENDIF
23 ELSE
24    Jd!=-1
25 ENDIF
26 RETURN Jd!
27 END_FN