VBA数组进阶--典型编译/运行时错误之成因及解决办法

liu-aguang

十、过程中传递整个数组出错

症状：
    试图以ByVal的方式传递整个数组

1. Sub test()
   
2.     Dim a(1) As Integer
   
3.     a(0) = 1: a(1) = 2
   
4.     Call test2(a)
   
5. End Sub
   
6. Sub test2(ByVal c()) '错误发生在这里
   
7.     c(0) = 10
   
8. End Sub
   

复制代码

原因：
   数组中个别元素可用ByVal传递，但整个数组必须以ByRef传递。如果为了防止对数组元素的更改返回调用者，而必须以ByVal方式传递的话，有两种方法：
办法1：
    可以传递括号中的数组参数：

1. Sub test1()
   
2.     Dim a(1) As Integer
   
3.     a(0) = 1: a(1) = 2
   
4.     Call test2((a))
   
5.     MsgBox a(0)       'a(0）=1
   
6. End Sub
   
7. Sub test2(ByVal c)
   
8.     c(0) = 10
   
9. End Sub

复制代码

办法2：
将数组放在Variant变量中，再将此Variant变量传递至ByVal参数：

1. Sub test1()
   
2.     Dim a(1) As Integer
   
3.     Dim MyVal As Variant
   
4.     a(0) = 1: a(1) = 2
   
5.     MyVal = a
   
6.     Call test2(MyVal)
   
7.     MsgBox a(0)          'a(0）=1
   
8. End Sub
   
9. 
   
10. Sub test2(ByVal c)
    
11.     c(0) = 10
    
12. End Sub

复制代码

香川群子

liu-aguang 发表于 2014-9-10 21:37
九、工作表函数应用于日期类型数组出错

症状：

日期类型的本质，是类似#2014-09-11# 这样格式的文本字符串。

所以不能直接用工作表函数操作。

但日期类型数据可以由计算机内部转换为Double数值，然后用于比较计算。


…………
内置的日期函数，其实都是先内部转换为Double日期值（如同DateValue函数的作用）
然后再进行比较计算的。
例如：
    Dim MyDate As Double
    MyDate = DateValue("February 12, 1969")
    MyDate = DateValue("02/12/69")
    MyDate = DateValue("2008-08-08")
    MyDate = DateValue(Date)
   
……这就是问题的根源。

liu-aguang

香川群子 发表于 2014-9-11 10:28
日期类型的本质，是类似#2014-09-11# 这样格式的文本字符串。

所以不能直接用工作表函数操作。

是否这样表述更易理解：
日期/时间的本质是一个Double数据,但当把它赋与日期变量时，则自动按系统日期设置格式转换为字符串形式存储；所以当某些工作表函数应用于日期类型数组时，必须先转换为Double.

lee1892

香川群子 发表于 2014-9-11 10:28
日期类型的本质，是类似#2014-09-11# 这样格式的文本字符串。

所以不能直接用工作表函数操作。

又瞎说。
Date 数据类型
Date 变量存储为 IEEE 64 位（8 个字节）浮点数值形式，其可以表示的日期范围从 100 年 1 月 1 日到 9999 年 12 月 31 日，而时间可以从 0:00:00 到 23:59:59。任何可辨认的文本日期都可以赋值给 Date 变量。日期文字须以数字符号 (#) 扩起来，例如，#January 1, 1993# 或 #1 Jan 93#。

1. Sub test()
   
2.     Dim d#, t#
   
3.     d = Date
   
4.     t = Now
   
5.     Debug.Print d, t
   
6. End Sub

复制代码

nikonmonarch

占位学习。

xd3210

收藏，学习！！！

香川群子

lee1892 发表于 2014-9-11 11:08
又瞎说。
Date 数据类型
Date 变量存储为 IEEE 64 位（8 个字节）浮点数值形式，其可以表示的日期范围从 ...

Date 数据类型 的变量存储形式是一回事、
而该数据在被工作表函数引用时的字符串形式则是另一回事。

总之，日期数据的核心是Double数值没错，但其会以日期格式的字符串形式被返回。

这两者之间虽然等价，但必须通过计算机内部转换。

hehex

liu-aguang 发表于 2014-9-10 21:38
十、过程中传递整个数组出错

症状：

个人认为第2种方法不贴切：并不需要一个变体型变量做中间的桥。之所以可以可以做传值引用是因为test2 中接收的参数是一个变体型变量，这个形式参数是个变体变量当然支持传值调用。只不过你真实的是传了一个数组过来而已。简单修改了你的示例文件，去掉了myval 的过渡，一样实现了传值调用，一样的结果。

1. Sub test1()
   
2. 
   
3.     Dim a(1) As Integer
   
4. 
   
5. '    Dim MyVal As Variant
   
6. 
   
7.     a(0) = 1: a(1) = 2
   
8. 
   
9. '    MyVal = a
   
10.    
    
11.     Call test2(a)
    
12. 
    
13.     MsgBox a(0)          'a(0£©=1
    
14. 
    
15. End Sub
    
16. 
    
17. 
    
18. Sub test2(ByVal c)
    
19.   
    
20.     c(0) = 10
    
21. 
    
22. End Sub

复制代码

liu-aguang

hehex 发表于 2014-9-11 13:05
个人认为第2种方法不贴切：并不需要一个变体型变量做中间的桥。之所以可以可以做传值引用是因为test2 中接 ...

本主题是强调数组不能以ByVal方式传递。无论方法1、方法2，还是你提供的方法都是同一个变通处理方法，即把数组首先赋与一个Variant变量，让这个Variant变量包含数组。你提供的方法，只是数组隐式赋与变量罢了。

liucqa

liu-aguang 发表于 2014-9-11 10:55
是否这样表述更易理解：
日期/时间的本质是一个Double数据,但当把它赋与日期变量时，则自动按系统日期设 ...

事情的本质是VB中的Date与C、C++语言中的Date不兼容，工作表函数都是C、C++开发的，
解决办法在msdn中有明确的说明，要求转换成Double类型

http://msdn.microsoft.com/zh-cn/library/3eaydw6e(VS.80).aspx