Einzelnen Beitrag anzeigen

Benutzerbild von juergen
juergen

Registriert seit: 10. Jan 2005
Ort: Bönen
1.175 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Nachkommastellen vom Typ Real extrahieren und dann runde

  Alt 18. Feb 2006, 16:56
Hallo mkinzler,
irgendwie funktioniert das leider nicht.
Delphi-Quellcode:
a := strtofloat(InputA.text);
b := strtofloat(InputB.text);
c := a - b;
d := Trunc((c - Trunc(c)) * 100 +5)/100;
OutputC.text :=FloatToStr(p);
Wenn z.B. a := 2,10 und b := 8 dann bekomme ich bei einer Subtraktion als Ergebnis c = -0,85
Ich benötige aber als Ergebnis die 9. -> c = 5,9
Oder a:= 2,10 und b := 8,8888 -> c = -6,7888
Ich benötige maximal 2 Nachkommstellen, in diesem Beispiel also 79


....

@ Klaus!
Aaaahhhhhh, frac scheint genau das zu sein was ich suche.
Vielen Dank!
Jürgen
Indes sie forschten, röntgten, filmten, funkten, entstand von selbst die köstlichste Erfindung: der Umweg als die kürzeste Verbindung zwischen zwei Punkten. (Erich Kästner)
  Mit Zitat antworten Zitat