var
mjd : integer;
G41,G42,G43,G44,G45 : byte;
Year, Month, Day : Word;
Hour, Min, Sec, Milli : Word;
jd,a,y,m : real;

DecodeDateTime(Now, Year, Month, Day, Hour, Min, Sec, Milli);

a := (14 - Month) / 12;
y := year+4800-a;
m := month + 12*a - 3;
jd := day + (153*m+2)/5 + y*365 + y/4 - y/100 + y/400 - 32045;
jd := jd - 0.5;
mjd := round(jd - 2400000.5);

G41:=((mjd Shr 15) and $03);
G42:=((mjd Shr 7) and $ff);
G43:=((mjd Shl 1) and $ff) or ((hour Shr 4) and $01);
G44:=((hour Shl 4) and $f0) or ((min Shr 2) and $0f);
G45:=((min Shl 6) and $c0);