IsDouble () in VB6?

Question

Is there any IsDouble () function in VB6? If I am not mistaken, the double data type in VB6 is equivalent to float in SQL Server 2000. Your advice would be greatly appreciated.

Answer 1

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

Answer 2

In fact, you are much better off using the Vartype function.

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

Answer 3

IsNumeric() , , . , .. .

Immediate.

Debug.Print IsNumeric("4e308") 
False

VB6 Double - "VB6 64- (8-) IEEE -1.79769313486232E308 -4,94065645841247E-324 4.94065645841247E-324 1.79769313486232E308 ".

, , SQL Server, docs. " , : -1.79E + 308-2.23E - 308, 0 2.23E + 308 - 1.79E + 308."

Answer 4

VB6 IsDouble, IsNumeric. :

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

Answer 5

IsNumeric(), . , , ?