Source position: gndate.pas line 95
procedure StDateToDMY(
Julian: TplDate;
var Day: Integer;
var Month: Integer;
var Year: Integer
);