VB6中的IsDouble()？

Question

VB6中是否有任何IsDouble()函数？如果我没有弄错,VB6中的Double数据类型相当于SQL Server 2000中的float.您的建议将非常感激.

Answer 1

实际上你最好使用Vartype功能.

Private Function IsDouble(ByVal value As Variant) As Boolean
    IsDouble = (VarType(value) = vbDouble)
End Function

Answer 2

Function IsDouble(ByVal varValue As Variant) As Boolean

   Dim dblTest As Double

   On Error Resume Next

   dblTest = CDbl(varValue)

   IsDouble = Err.Number = 0

End Function