also ich würde es so machen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var benoetigt, bedarf, vorhanden, produktion, stunden, minuten, sekunden:integer;
begin
Produktion:=strtoint(Edit1.Text);
vorhanden:=strtoint(Edit2.Text);
bedarf:=strtoint(Edit3.Text);
benoetigt:=bedarf-vorhanden;
stunden:=benoetigt div produktion;
benoetigt:=benoetigt - produktion * stunden;
minuten:=(benoetigt * 60) div produktion;
benoetigt:=benoetigt - produktion * minuten div 60;
sekunden:=(benoetigt * 3600) div produktion;
Label1.Caption:=inttostr(stunden)+':'+inttostr(minuten)+':'+inttostr(sekunden)
end;
ob dies besser/einfacher ist ist die frage....