vba - VBA 非常长的整数

Question

我需要找到一种将 19 位整数（比例为 9 × 10^18）放入 Word 文档的方法。问题是它需要在 32 位机器上运行，因此 LongLong 数据类型不起作用。

试图拆分成一个字符串数组，但这也不起作用，因为我需要在之后对其进行计算

如何解决这个问题？

Answer 1

如果您只需要最后五位数字并且需要它们是数字，则可以使用如下代码：

Dim sEan As String
Dim lLastFive As Long

sEan = "90000000000000012345"
lLastFive = CLng(Right$(sEan, 5))

Debug.Print lLastFive, TypeName(lLastFive)

你应该得到

 12345        Long

Answer 2

像您提供的示例这样的大量数字将适合一种Double类型：

Sub Test()
Dim num As Double
Dim lon As Long

num = 9 * 10 ^ 18  '## This should work

lon = 9 * 10 ^ 18  '## This will raise an error.

End Sub