如何在VB6中表示64位整数？

概述我不得不扩充遗留应用程序来处理64位整数.但是,VB6没有这种数据类型.我发现在线的推荐是使用货币数据类型. 但是,我发现我遇到了一些溢出问题. 示例 – CCur调用期间溢出的结果： dim c as currency' set maximum value of int64c = CCur("9223372036854775807") 但是,如果我应用较小的数字(但仍然比int32大得多) 我不得不扩充遗留应用程序来处理64位整数.但是,VB6没有这种数据类型.我发现在线的推荐是使用货币数据类型.

但是,我发现我遇到了一些溢出问题.

示例 – CCur调用期间溢出的结果：

dim c as currency' set maximum value of int64c = CCur("9223372036854775807")

但是,如果我应用较小的数字(但仍然比int32大得多),它确实有效：

dim c as currency' Remove the last 4 digitsc = CCur("922337203685477")

那我在这里错过了什么？如何处理64位值？

我需要对64位值执行的唯一 *** 作是从sql Server存储过程(它是sql类型bigint)中读取它们然后将其显示到表单.

解决方法 您可以将Variant数据类型与CDec()转换一起使用.

dim c as variant' set maximum value of int64c = CDec("9223372036854775807")

现在你甚至可以在c上使用标准的vb6数学运算或字符串转换函数.

Dim c As Variant,d As Variantc = CDec("9223372036854775807")Dim i As Integeri = 1000d = 10DeBUG.Print c + iDeBUG.Print c / dDeBUG.Print CStr(c)

结果

9223372036854776807  922337203685477580,7 9223372036854775807

请注意,Decimal类型Variant宽于64位,因此您不会在服务器端获得“溢出”:)

总结

以上是内存溢出为你收集整理的如何在VB6中表示64位整数？全部内容，希望文章能够帮你解决如何在VB6中表示64位整数？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。