blocks|key|583623|text|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|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|583624|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>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
</code></pre>

blocks|key|1151560|text|实际上，使用Vartype函数要好得多。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1151561|Private+Function+IsDouble(ByVal+value+As+Variant)+As+Boolean
++++IsDouble+=+(VarType(value)+=+vbDouble)
End+Function|code-block|syntax|javascript|1151562|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Actually you are much better off using the Vartype function.

<pre><code>Private Function IsDouble(ByVal value As Variant) As Boolean
 IsDouble = (VarType(value) = vbDouble)
End Function
</code></pre>

blocks|key|4648458|text|IsNumeric()很好，它只接受适合Double的值。它是区域识别的，即对于法国区域设置，十进制分隔符是逗号。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4648459|我只是在“即时”窗口中尝试了一下。|4648460|Debug.Print+IsNumeric("4e308")+
False|code-block|syntax|javascript|4648461|手册中对VB6双精度变量的定义是"VB6双变量存储为IEEE64位(8字节)浮点数，负值的取值范围为-1.79769313486232E308到-4.94065645841247E-324，正值的取值范围为4.94065645841247E-324到1.79769313486232E308“。|4648462|我认为这与使用在线docs的SQL+Server浮动是一样的。具有以下有效值的浮点精度数字数据：-1.79E+%2B+308到-2.23E+-+308、0和2.23E+%2B+308到1.79E+%2B308。|offset|length|4648463|entityMap|0|LINK|mutability|MUTABLE|url|http://msdn.microsoft.com/en-us/library/aa258271.aspx^0|0|0|0|0|9|4|0|0^^$0|@$1|2|3|4|5|6|7|W|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|X|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|Y|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|Z|8|@]|9|@]|A|$]]|$1|K|3|L|5|6|7|10|8|@]|9|@$M|11|N|12|1|13]]|A|$]]|$1|O|3|-4|5|6|7|14|8|@]|9|@]|A|$]]]|P|$Q|$5|R|S|T|A|$U|V]]]]

IsNumeric() is fine, it will only accept values that fit into Doubles. It is regionally aware, i.e. for French regional settings the decimal separator is a comma.

I just tried this in the Immediate window.

<pre><code>Debug.Print IsNumeric("4e308") 
False
</code></pre>

The definition of a VB6 Double in the manual is "VB6 Double variables are stored as IEEE 64-bit (8-byte) floating-point numbers ranging in value from -1.79769313486232E308 to -4.94065645841247E-324 for negative values and from 4.94065645841247E-324 to 1.79769313486232E308 for positive values".

I think that's the same as a SQL Server float, going by the online <a href="http://msdn.microsoft.com/en-us/library/aa258271.aspx" rel="nofollow noreferrer">docs</a>. "Floating precision number data with the following valid values: -1.79E + 308 through -2.23E - 308, 0 and 2.23E + 308 through 1.79E + 308."

blocks|key|1158781|text|VB6中没有内置的IsDouble函数，您可以使用内置的IsNumeric函数。否则，您可以使用以下自定义函数来实现相同的功能：|type|unstyled|depth|inlineStyleRanges|offset|length|style|BOLD|entityRanges|data|1158782|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|code-block|syntax|javascript|1158783|entityMap^0|9|8|S|9|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]|$9|P|A|Q|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|R|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|S|8|@]|D|@]|E|$]]]|L|$]]

There is no inbuilt IsDouble function available in VB6 instead you can use inbuilt IsNumeric Function. Otherwise you can use following User Defined Function to achieve the same:

<pre><code>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
</code></pre>

blocks|key|583614|text|有一个IsNumeric()函数应该可以很好地工作。如果这还不能满足您的需求，您还可以用什么方式解释？|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|583615|entityMap^0|3|B|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|K|8|@]|D|@]|E|$]]]|G|$]]

There's an <code>IsNumeric()</code> function that should work well enough. If that is inadequate for your needs can you also explain in what ways?

Is there any IsDouble() function in VB6? If I'm not mistaken, Double data type in VB6 is equivalent to float in SQL Server 2000.
Your advice would be much appreciated.

IsDouble() in VB6?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云AI代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

功能1上新10个字符

功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符。

功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符。

功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符

功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符

功能4上新

文章&问答评论现已支持表情

全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验

社区富文本编辑器全新改版！诚邀体验～ 

精选全网热门MCP server，让你的AI更好用 🚀

💥开发者 MCP广场重磅上线！

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

VB6中有没有IsDouble()函数？如果我没记错的话，VB6中的双精度数据类型等同于SQL Server2000中的浮点型。您的建议将不胜感激。

问VB6中的IsDouble()？
EN

回答 5

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问VB6中的IsDouble()？EN

回答 5

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问VB6中的IsDouble()？
EN