[s0Creator]

PHP код:

function Jday(Day,Month,Year:integer):real;
Var
  A,B:real;
   Y,M:integer;
  begin
  if Month>2 then
      Y:=Year; M:=Month;
      if (Month=1) or (Month=2) then
      Y:=Year-1; M:=Month+12;
  A:=int(Y/100); B:=2-A+int(A/4);
  Result:= Int(365.25 * Y) + Int(30.6001 * (M + 1)) + Day + 1720994.5 + B;
  end;
procedure TForm1.Button1Click(Sender: TObject);
 Var
 Day,Month,Year:integer;
 J:Real;
begin
Day:=strtoint(Edit1.Text);Month:=Strtoint(Edit2.Text); Year:=strtoint(Edit3.Text);

Edit4.text:=Floattostr(Jday(Day,Month,Year));
end; 


правда несовсем понял зачем real