vb6 string 2 double
Jag sitter med lite förhistorisk kod och vid casting av string to cdbl (double) castas det fel.
1234567.12 --> 123456712
1234567.1 --> 12345671
Hur ställer jag in hur castingen skall ske i vb6? och jag vill inte ändra för hela projektet eller språket på platformen.
Svara
Sv: vb6 string 2 double
Hej,
antingen kan du byta ut "." mot "," eller använda VAL() i stället.
Det verkar som att Cxxx()-funktionerna använder "," som decimalpunkt,
medan VAL() använder "."
Jag hade själv ett liknande problem med VAL() och löste det så här :
1 2 3 4 5 6 7 8 9 10 11 12 | Function XVal(InData As String) On Error GoTo Fel InData = Replace(InData, ",", ".") XVal = Val(InData)Exit Function Fel: XVal = 0 End Function |
/Dan T
Svara
Sv:vb6 string 2 double
Converterings funktionerna använder regional settings. Val använder punkt.
Svara