String 2 Double

International Deutsch
1

Moin,

ich setze z.Z. 2012 R2 ein und bin über ein Problem gefallen. Ich habe einen String S= “12,234-” eingeben und möchte Ihn in Double umwandeln. Ich habe dann folgendes eingeben:

Dim d as Double
Dim S As String

s = “12,234-”
d = S.Cdbl

IF d > 0 then
MsgBox “Falsch”
else
MsgBox “Rchtig”
end if

Wie bekomme ich korrekt einen String in Double umgewandelt ?

2

CDbl liefert das erwartete Ergebnis. Das Minuszeichen muss am Anfang des String stehen. Sie müssen das per Code abfangen.

if s.right(1) = “-” then s = “-” + s.left(s.len - 1) oder
if s.right(1) = “-” then d = -d oder …