Source position: unix.pp line 118
procedure JulianToGregorian(
JulianDN: LongInt;
var Year: Word;
var Month: Word;
var Day: Word
);