VB6中的IsDouble()?

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

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

IsNumeric()很好,它只接受适合双精度的值。它具有区域意识,即对于法语区域设置,小数点分隔符是逗号。

我刚刚在即时窗口中尝试了这个。

Debug.Print IsNumeric("4e308") 
False

本手册中VB6 Double的定义是“VB6 Double变量存储为IEEE 64位(8字节)浮点数,负值范围为-1.79769313486232E308至-4.94065645841247E-324,正值范围为4.94065645841247E-324至1.79769313486232E308”。

docs . “具有以下有效值的浮点数字数据:-1.79E+308至-2.23E-308、0和2.23E+308至1.79E+308。”

没有内在的 双倍 函数在VB6中可用,您可以使用内置 作用否则,您可以使用以下用户定义的函数来实现相同的功能:

Function IsDouble(ByVal value As Variant) As Boolean

   Dim convertedValue As Double

On Error Goto EH
   convertedValue = CDbl(value)
   IsDouble = True

Exit Function
   EH:
        IsDouble = False
End Function

IsNumeric() 应该足够好用的函数。如果这不足以满足您的需求,您能用什么方式解释?