UFT/QTP에서 문자열을 double로 변환하려면

Question

문자열을 UFT에서 double로 변환하려고하지만 소수점이없는 출력을 표시합니다. 아래는 참조 용 코드입니다.

vStr = "1000000.589765" 
msgbox Typename(vStr) 
strV1=CDBL(formatNumber(vStr,4)) 
msgbox Typename(strV1) 
print strV1 

출력 : formatNumber하지 않고, 그것의 작동하지 않는 것을 1000000589765

참고.

Answer 1

또 다른 구현은 DotNetFactory를 사용합니다. 또 다른 생각. 나는 사용을 부인하지 않고있다 CDbl. 그러나 가치가있다.

'Test Code 
Dim strConvertedCode 
strConvertedCode = ConvertDataType("1000000.589765","Double") 
If strConvertedCode <> null Then 
    Msgbox strConvertedCode 
End If 

Public Function ConvertDataType(ByVal SourceData,ByVal ConversionDataType) 
    'Initialization of variables 
    Dim objDotNetFactory 
    Dim strConvertedData : strConvertedData = null 
    Dim strSystemNamespace 
    'Determine the destination data type 
    Select Case UCase(ConversionDataType) 
     Case "DOUBLE" 
      strSystemNamespace = "System.Double" 
     'Implement further for your data types 
     'Reference https://msdn.microsoft.com/en-us/library/ms228360(v=vs.90).aspx 
     Case Default 
      Set objDotNetFactory = DotNetFactory.CreateInstance("System.Int32") 
    End Select 
    Set objDotNetFactory = DotNetFactory.CreateInstance(strSystemNamespace) 
    'Check the dot net factory instance is successful 
    If Not IsObject(objDotNetFactory) Then 
     Reporter.ReportEvent micWarning,"Data type convertor","Conversion from String to " & ConversionDataType & " failed, Since DotNetFactory instance was not created." 
     ConvertDataType = strConvertedData 
     Exit Function 
    End If 
    strConvertedData = objDotNetFactory.Parse(SourceData) 
    ConvertDataType = strConvertedData 
End Function