VB6中的IsDouble()？

发布时间：2020-12-17 07:11:59 所属栏目：百科来源：网络整理

导读：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 = CD

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!