vba - VBA は文字列 "12.00" を 12.00 ではなく 1200 に変換します。これは EU 地域の設定でのみ発生し、米国の設定では発生しません

Question

理由はわかりませんが、vba の文字列は「12.00」であり、double に変換すると

myDouble= CDbl(stringDouble)

また

myDouble = stringDouble

私は何もできません..何か助けはありますか？(すべての PC で地域設定を US に変更することはできません..)

ありがとう

Answer 1

コメントで既に指摘したように、これは地域設定です。システムが,小数点として使用しているため、文字列は に変換され1200ます。この場合の解決策は、次のように変換することValです。

Sub Sample()
    Dim myDouble As Double
    Dim stringDouble As String
    stringDouble = "12.00"
    myDouble = Val(stringDouble)
End Sub

Answer 2

これは地域設定が原因である可能性が最も高く、小数点の記号が異なります。たとえば、私のロケールでは,、文字列から数値への変換に次のような構文を使用するのはそのためです。

x = "12.00"
DBLnum = CDbl(Replace(x, ".", ","))