vb6 - 在VB6中是Double()吗？

VB6中有任何IsDouble（）函数吗？如果我没记错的话，VB6中的Double数据类型等效于SQL Server 2000中的float。
您的建议将不胜感激。

最佳答案

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