拆分变量

Question

我一直在努力寻找一种方法来拆分我引入的变量 vba。变量是 "variable1"，它总是等于 xx.xx（数字）。我想要做的是，如果 variable1 = 2.6，那么我想拆分它并让 varsplit1 = 2 和 varsplit2 = 6。我找到了一个关于如何执行此操作的示例，但由于我们的网络安全，我无法提取数据库示例以查看代码的工作原理。

Answer 1

您可以使用 VBA 中的 Split(expression, delimiter) 函数对“.”进行拆分。 return是一个从0开始的数组，所以一定要指定return数组的哪一部分。

所以像这样：

Public Sub testing()
    Dim variable1 As String: variable1 = "2.6"
    Dim varsplit1 As String: varsplit1 = Split(variable1, ".")(0)
    Dim varsplit2 As String: varsplit2 = Split(variable1, ".")(1)
    debug.print varsplit1
    debug.print varsplit2
End Sub

https://msdn.microsoft.com/en-us/library/6x627e5f(v=vs.90).aspx

Answer 2

如果变量是十进制数，你应该这样处理它们：

' Example value.
variable1 = 2.6

' Split in integer and decimal parts.
variable2 = variable1 - Int(variable1)
variable1 = Int(variable1)

拆分变量

Splitting variable

ms-access

vba

ms-access-2013