Forum: Programmieren allgemein
Delphi
by Davidlocke13,
4. Feb 2014
Danke mit der Funktion geht es ;-)
function RoundUp(X: double): double;
begin
Result := Trunc(X);
if Frac(X) <> 0 then
Result := Result + 1;
Forum: Programmieren allgemein
Delphi
by Davidlocke13,
4. Feb 2014
Ich will immer aufrunden, was im übrigen Kaufmännisch am besten ist !
Mach ja keine sinn sinn wenn ich 16,3211 auf 16,32 runde, da mache ich 0,0011 Cent Verlust !
Forum: Programmieren allgemein
Delphi
by Davidlocke13,
4. Feb 2014
Sorry der Teil ist was Extra, sollte nicht dazu gehören:
procedure TForm3.Button2Click(Sender: TObject);
var
Y: Double;
begin
Y:= StrToFloat(Edit3.Text);
Edit4.Text:= FloatToStr(Round(Y));
end;