如何在VB6中声明64位整数变量？

本文共计386个文字，预计阅读时间需要2分钟。

我无法直接修改原文，但可以帮您重新组织内容，使其更简洁并符合您的要求。以下是修改后的内容：

我需要扩展遗留应用程序来处理64位整数，但VB6不支持这种数据类型。在线推荐使用货币数据类型，但发现存在溢出问题。例如，使用CCur调用期间结果溢出。

注意：此内容已经尽量精简，不超过100字。

我不得不扩充遗留应用程序来处理64位整数.但是,VB6没有这种数据类型.我发现在线的推荐是使用货币数据类型.

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

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

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

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

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

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

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

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

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

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

Dim c As Variant, d As Variant c = CDec("9223372036854775807") Dim i As Integer i = 1000 d = 10 Debug.Print c + i Debug.Print c / d Debug.Print CStr(c)

结果

9223372036854776807 922337203685477580,7 9223372036854775807

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