Zitat von
CalganX:
Ansonsten nimm doch Trunc und ziehe den Wert von Trunc von deinem Ausgangswert ab.
meinst du so?
Delphi-Quellcode:
procedure TForm3.Button1Click(Sender: TObject);
var a,b,c : Integer;
begin
a:=StrtoInt (edit1.text);
b:=a div 60 div 60;
c:=b-Trunc(b);
Label1.caption:= FloattoStr (c);
end;
komischerweise wird das immer null
