Forum: Object-Pascal / Delphi-Language
Delphi
by juergen,
18. Feb 2006
@all,
also erst einmal vielen Dank ob der vielen, wirklich interessanten Antworten!
Ich denke ich fange mit marabus Vorlage an ;-)
Nööhhh, ich brauche - egal wie viele Nachkommastellen es gibt - davon nur die ersten 3 Stellen!
Diese muss ich dann auf 2 Stellen runden, von daher ist marabus Vorschlag etwas "überladen" :-D
Forum: Object-Pascal / Delphi-Language
Delphi
by juergen,
18. Feb 2006
also als Byte-Wert würde mir ja reichen.
Ich denke das es doch möglich sein muss bis zu 3 Zahlen hinter dem Komma "heraus zu selektieren"...
Wenn es 3 Zahlen sind diese dann zu runden auf 2 Zahlen, wenn es nur 2 Zahlen sind braucht nicht gerundet werden, wenn es nur eine Zahl hinter dem Komma ist braucht damit auch nichts gemacht werden.
Vielleicht hatte ich mich auch nur umständlich...
Forum: Object-Pascal / Delphi-Language
Delphi
by juergen,
18. Feb 2006
Hallo Sebastian,
in deinem Beispiel bräuchte ich als Ergebnis --> 23.
Wie gesagt, ich benötige die Nachkommastellen auf 2 Stellen kaufm. gerundet.
Gruß
Jürgen
Forum: Object-Pascal / Delphi-Language
Delphi
by juergen,
18. Feb 2006
Hallo mkinzler,
irgendwie funktioniert das leider nicht.
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
Forum: Object-Pascal / Delphi-Language
Delphi
by juergen,
18. Feb 2006
Hallo zusammen,
habe jetzt schon einiges gesucht, wohl aber nicht die richtigen Suchbegriffe verwendet... :(
Ich möchte alle Nachkommstellen einer Realzahl "extrahieren".
Dieser "extrahierter" Wert soll dann auf 2 Stellen gerundet werden. (kaufmännisch, also von 0...4,999... abrunden und ab 5.0 dann aufrunden)
Kann mir hier jemand weiterhelfen?
Vielen Dank schon mal vorab!