VB6 - 特定のカルチャを使用して文字列を倍精度に変換しますか？

Question

私は長い間C＃デベロッパーであり、最近VB6コードをいくつか見なければなりませんでした。いくつかの掘り出した後、我々はどこかで、何とかして、数字を文字列として保存していることを発見しました。今、私たちはそれを読んでおり、私たちのコードは文化の違いをうまく処理していません。次に例を示します。これは、VB6とNOT VB.NETであることを念頭に置いて

Dim text as String 
Dim myVal as Double 
Set text = "1,123456" 
'This sets the value of myVal to 1123456 on our system - incorrect 
myVal = text 

Set text = "1.123456" 
'This sets the value of myVal to 1.123456 on our system - correct 
myVal = text 

キーピング、特定のカルチャを使用して、二重に文字列を変換することができます任意のビルトインメソッド、関数、何がありますか？ 少なくとも、私たちが別のフォーマットを扱っている可能性のある変換を示唆していますか？

値がどのように書き込まれているかを把握しており、プロセスをリバースエンジニアリングして一貫した結果を得ることができるかどうかを確認しています。しかし、私たちの顧客はすでにデータをある形式か他の形か（または両方をチェックしています）、適切な変換アルゴリズムまたは実装が現時点でより良い答えになるでしょう。

Answer 1

過去にこのクイックダーティー関数を使用して、テキストからダブルを取得しました。アルゼンチンでは、小数点を区切るためにポイントと時にはカンマを使用することがあるため、この関数は両方の形式を受け入れる準備ができています。句読点が1つしかない場合は、それが小数点区切り文字であるとみなされます。

function ConvertDBL(texto) 
    dim retval, SepDecimal, SepMiles 
    If texto = "" then texto = "0" 
    retval = replace(trim(texto), " ", "") 
    If cdbl("3,24") = 324 then 
     SepDecimal = "." 
     SepMiles = "," 
    else 
     SepDecimal = "," 
     SepMiles = "." 
    end if 
    If InStr(Retval, SepDecimal) > 0 then 
     If InStr(Retval, SepMiles) > 0 then 
      If InStr(Retval, SepDecimal) > InStr(Retval, SepMiles) then 
       Retval = replace(Retval, SepMiles, "") 
      else 
       Retval = replace(Retval, SepDecimal, "") 
       Retval = replace(Retval, SepMiles, SepDecimal) 
      end if 
     end if  
    else 
     Retval = replace(Retval, SepMiles, SepDecimal) 
    end if 
    ConvertDbl = cdbl(retval) 
end function 

Answer 2

.Netのようにカルチャオブジェクトを渡して、任意のカルチャを選択することはできません。

• 現在の地域設定を常に使用する機能。 CStr、Format、CDblなどです。暗黙のコンバージョン（あなたの質問にあるようなもの）は、現在の地域設定も使用します。
• 米国の地域設定を常に使用する機能（.Net不変の文化に似ています）。 Str,Val

通常、現在の地域設定はコントロールパネルから取得されます。 rumoursSetThreadLocaleと呼ぶと、実行時にコードから地域の設定を変更することができます。自分で試したことはありません。