Flugformel aus Excel nach Delphi konvertieren

[Bummi]

Ich kann zwar den Sinn nicht erkennen, aber

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 d:Double;
begin
  d :=((( ((((16*0.02/5+1)*60)*640000)/(14000*100/100))*(1/1))/3600/24)/100*100);
  Caption := TimeToStr(d);
end;