VB6中是否有任何IsDouble()函数？如果我没弄错的话,VB6中的Double数据类型相当于SQL Server 2000中的float. 非常感谢您的建议. Function IsDouble(ByVal varValue As Variant) As Boolean Dim dblTest As Double On Erro
非常感谢您的建议.
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