Tmaskedit und currency to string

[khh]

hallo zusammen,
ich habe ein Tmaskeditfeld (nettopreis) aus dem ich mit stringreplace die Formatierung rausnehme so dass ein Integerwert übrig bleibt.

Das Tmaskedit ist 999,99 formatiert.

Diesen Integer verrechne ich mit einem curreny-feld (mwst) (in der DB decimal(4,2) )
so dass ich einen Bruttowert als curreny-wert erhalte.

wie kann ich den jetzt einem zweiten Tmaskeditfeld zuweisen, ohne die ganzen Formatierungen wieder reinpfriemeln zu müssen?


Das muss doch alles irgendwie einfacher funktionieren, oder?

Gruss KH

[himitsu]

per Format?

Delphi-Quellcode:

MaskEdit1.Text := Format('%3.2f DM', [myCurrency]);

oder irgendwie so ... siehe Format-Strings

[khh]

Zitat:

Zitat von himitsu

per Format?

Delphi-Quellcode:

MaskEdit1.Text := Format('%3.2f DM', [myCurrency]);

oder irgendwie so ... siehe Format-Strings

danke dir


Gruss Kh

[Jürgen Thomas]

Zitat:

Zitat von himitsu

Delphi-Quellcode:

MaskEdit1.Text := Format('%3.2f DM', [myCurrency]);

[OT]Was ist 'DM'? :wink: Jürgen[/OT]

[khh]

irgendwie klappt das nicht ganz, ich habe auch ein Verständnisproblem mit den currency werten :-(
also:
im Nettopreis steht 200 das ist integer
im mwstsatz steht 7 % (in der DB 7,00 = 70000 currency

folglich verrechne ich curreny mit integer was wohl zu einem Rechenfehler führt.

also muss ich integer nach currency konvertieren, aber wie geht das ?
oder noch besser wäre, wie bekomme ich einen formatierten string nach currency?

StrToCurr?

EDIT. Funktioniert jetzt, es ergibt sich aber ein anderes Problem.
dazu mach ich nen neuen Beitrag auf.

Dankke bis hierher.


Danke Gruss KH

[himitsu]

Delphi-Quellcode:

BrutoCurrency := NettoCurrency * MwStInteger / 100;

hmm, also nicht der Typ Currency (der ist intern ein scalierter Integer mit 4 Kommastellen), sondern ein Currency-Typ aus der DB?

nja, die 70000 sieht auch nach 4 Nachkommastellen aus

Delphi-Quellcode:

BrutoCurrency := NettoCurrency * (MwStInteger / 1000) / 100;

BrutoCurrency := NettoCurrency * MwStInteger / 100000;

[khh]

ich danke euch



Gruss Kh