Zahlen in € umwandeln

[Dragon27]

Hallo,

Hab da folgendes Problem:

Zahlen sind bei mir so geschreiben:

0,00
0,0
0
0,0000


Kann ich dann mit einem Befehl in Delphi die Zahlen immer ins € format formatieren? (0,00 €)

Hab da schon mal was gesehen aber finde es nicht mehr!

Danke für die Hilfe!

[Sourcemaker]

FormatFloat('##,###,##0.00 €',nZahl) ?

Gruß
Frank

[Dragon27]

Hallo,

danke für die Antwort!

Code:

FormatFloat('##,###,##0.00 €',nZahl)

Nur verstehe ich nicht warum das 0.00 € heißt wenn aber als Ergebnis 0,00 € rauskommen soll?

Danke!

[Muetze1]

Moin!

Grob gesagt: die # stehen für Stellen die er ausfüllen kann mit Zahlen, aber nicht muss und die 0 steht für Stellen die er ausfüllen muss - und wenn er dort keine Ziffer hat, dann füllt er das mit 0 auf...


MfG
Muetze1

[Dragon27]

Hallo,

ja danke... mhm okay.

Aber warum macht man dann in dieser Formel 0.00 € und nicht 0,00 €?

Des versteh ich net! Wandelt der das dann um?

[Muetze1]

Moin!

Im Normalfall nimmt er die in den locals festgelegten Trennzeichen (DecimalSeparator, etc), aber bei der Format Angabe kannst du die Trennzeichen selber festlegen meines Wissens nach. Somit könntest du auch folgendes schreiben:

Code:

FormatFloat('##.###.##0,00 €',nZahl)

MfG
Muetze1

[Sourcemaker]

Wird in der OH zu Formatfloat beschrieben wie und warum die Zeichen getauscht werden.

Gruß

Frank

[Sourcemaker]

Zitat:

Im Normalfall nimmt er die in den locals festgelegten Trennzeichen (DecimalSeparator, etc), aber bei der Format Angabe kannst du die Trennzeichen selber festlegen meines Wissens nach. Somit könntest du auch folgendes schreiben:

Code:
FormatFloat('##.###.##0,00 €',nZahl)

Würde ich bezweifeln da der Dezimalpunkt die interne numerische Schreibweise darstellt. Über die DecimalSeparator und ThousandSeparator können die resultierenden Zeichen gewählt werden.

Gruß

Frank

[CenBells]

Hallo,

probier es auch einfach mal mit CurrToStr(DeineZahl);

Gruß
KEn

[orion3000]

Hallo Zusammen,

um das aktuelle Währungszeichen zu nutzen CurrencyString.


Gruß
Orion3000