FLoat Zahl mit zwei Nachkommastellen

[Pure_Beginner]

Hallo zusammen,

Hätte mal eine Frage zu Fließkomma-variablen.

Ist es möglich diese auf zwei Nachkommastellen zu beschränken.

Eleganter als in meinem code ?

Code: Alles auswählen

 Ergebnis.s = StrD(Summe, 2) 

Ohne in einen String zu wandeln ?

Grüße
Christian

[Josh]

Code: Alles auswählen

Define Summe.f = 3.144992654
Summe = Round (Summe * 100, #PB_Round_Nearest) / 100
Debug Summe

Scheint aber hier etwas ungenau. Mit einer reinen Int Lösung wird es auch nicht besser

[STARGÅTE]

Ist es möglich diese auf zwei Nachkommastellen zu beschränken.

Vermutlich möchtest du mit Geld rechnen? Dann nimmt bitte lieber Integers (also Ganzzahlen) und rechne in Cent oder so.
So hast du exakte Rechungen und kannst sehr einfach die Zahl anzeigen lassen.
FLießkommazahlen haben immer die "blöde" eigenschaft, das sich größe und kleine Zalen nicht vertragen und dir bei großen Geldbeträgen die Cents einfach verloren gehen.

[Pure_Beginner]

Danke für eure Antworten.

@STARGÅTE
was bedeutet große und kleine Zahlen die Cents gehen verloren ?
Rechnet PB nicht richtig ?

[STARGÅTE]

Das liegt nicht an PB, sondern an der Natur von Fließkommazahlen:

Code: Alles auswählen

Value.f = 1.99

Debug Value

Value + 10000000

Debug Value

Natürlich kannst du auch Doubles verwenden, führ aber zum selbem Problem (nur halt später bei noch größeren Zahlen).
Aber vllt sagt du erst mal, warum du "genau" 2 Nachkommastellen brauchst.

[Pure_Beginner]

@STARGÅTE

hab's begriffen.

die Nachkommastelle brauche ich um mit Eurobeträgen zu rechnen und anzuzeigen.
Plötzlich finde ich das wandeln in eine Stringt überhaupt nicht mehr so schlecht.

Grüße und schönes Wochenende
Christian

[STARGÅTE]

Ich würde dir aber trotzdem raten mit Cents zu arbeiten.
Auch die Ausgabe ist mit einer Prozedur schnell gemacht:

Code: Alles auswählen

Procedure.s Get(Cent.q)
	ProcedureReturn InsertString(Str(Cent), ",", Len(Str(Cent))-1)+" €"
EndProcedure

Debug Get(199)

Aber es ist natürlich deine Entscheidung, ich möchte hier nur Alternativen zeigen.

[NicknameFJ]

Aber es ist natürlich deine Entscheidung, ich möchte hier nur Alternativen zeigen.

Nicht nur Alternativen.
Auch wenn das Ergebnis nach Umwandlung in einen String richtig angezeigt wird wird intern nach wie vor mit dem falschen Ergebnis weitergerechnet.
Beim Rechnen mit Float´s können sich dadurch die entstandenen Fehler auch aufsummieren.

Daher in kaufmännischen Anwendungen immer mit Ganzzahlen in Cent rechnen. Alles andere ist - Entschuldigung - reiner Pfusch.

Grüße

NicknameFJ

[Pure_Beginner]

Danke für eure Mühe und die Beispiele.

Werde mich dran halten.

Schönes Wochenende
Christian

[Falko]

Hab auch noch ein kleines Beispiel in beiden Richtungen
(Punkt kann man in Komma abändern):

Code: Alles auswählen

Global cent.s
Global euro.s

Procedure.s Euro2Cent(euro.s)
  If FindString(euro,".")
     ProcedureReturn RemoveString(euro,".")
  Else
     ProcedureReturn Str(Val(euro)*100)
  EndIf
EndProcedure

Procedure.s Cent2Euro(cent.s)
  Euros.s=Str(Val(cent)/100)
  Euros+","+ Str(Val(cent) % 100)
  ProcedureReturn Euros.s 
EndProcedure


Debug Euro2Cent("10.12") + " Cent"
Debug Cent2Euro("19921") + " Euro"