Text(Currency) in Double konvertieren

[vios]

Hallo!

Also, irgendwie habe ich wohl ein Brett vor dem Kopf:
In einem Script lese ich den Wert des Feldes "Nettofeld"(Currency) aus.

NettoVal$ = uidoc.FieldGetText(NettoFeld)

NettoVal$ gibt mit FieldGetText zwangsläufig einen String retour.
Wie kann ich aber NettoVal$ wieder in eine Dezimalzahl konvertieren,
um damit Berechnungen durchführen zu können?

NettoNum# = Cdbl(NettoVal$)

führt leider zu "Type mismatch"
Kann mir jemand helfen?
Danke für Eure Unterstützung!

[koehlerbv]

Warum verwendest Du keine expliziten Deklarationen?
Warum gehst Du den Umweg über das FrontEnd mit seinen beschränkten Möglichkeiten?

Dim dblNettoNum As Double
....
dblNettoNum = uidoc.Document.NettoFeld (0)

erspart Dir doch alle Verrenkungen und Konvertierungen.

Bernhard

[vios]

Hallo, Bernhard!

Tja,... äähemm.. Ist eine berechtigte und logische Frage!
Danke,
funktioniert!

[Pyewacket]

Was auch immer du damit machen willst, es geht vermutlich schief.
Sobald du einen Währungsbetrag in Double konvertierst gehen signifikante Stellen verloren.
Buchhalter flippen da regelmässig aus.