[EXCEL VBA]给VBA加速之Integer和Long的使用技巧

xiamen168

最近比较推广微博，所以没怎么来论坛了，
实在抱歉了，今天贡献新的技术文章给大家！
另外，有空微博关注我一下哦，谢谢谢谢！
http://weibo.com/2823267180/profile
-----------------------------------------------------------------
验证一下Integer和Long类型的处理速度问题。
当处理整数时，有2种类型：Integer和Long
Integer的数据范围：-32,768 ～ +32,767
Long的数据范围：-2,147,483,648 ～ +2,147,483,647
我们验证一下这两个类型处理速度上的差别

1. Sub Doint()
   
2. 
   
3. Const myMAX As Integer = 32767
   
4. Const myMIN As Integer = -32768
   
5. Dim i As Integer
   
6. Dim 加法 As Integer
   
7. Dim 减法 As Integer
   
8. Dim 乘法 As Integer
   
9. Dim 除法 As Integer
   
10. Dim 求余 As Integer
    
11. Dim cnt As Integer
    
12. 
    
13. '循环100次
    
14. For cnt = 1 To 100
    
15. For i = myMIN - 1 To myMAX - 1
    
16. 加法 = i + 1
    
17. 减法 = i - 1
    
18. 乘法 = i * 1
    
19. 除法 = i / 1
    
20. 求余 = i Mod 1
    
21. Next i
    
22. Next cnt
    
23. End Sub
    
24. 
    
25. Sub Dolong()
    
26. Const myMAX As Long = 32767
    
27. Const myMIN As Long = -32768
    
28. Dim i As Long
    
29. Dim 加法 As Long
    
30. Dim 减法 As Long
    
31. Dim 乘法 As Long
    
32. Dim 除法 As Long
    
33. Dim 求余 As Long
    
34. Dim cnt As Long
    
35. 
    
36. '循环100次
    
37. For cnt = 1 To 100
    
38. For l = myMIN - 1 To myMAX - 1
    
39. 加法 = l + 1
    
40. 减法 = l - 1
    
41. 乘法 = l * 1
    
42. 除法 = l / 1
    
43. 求余 = l Mod 1
    
44. Next l
    
45. Next cnt
    
46. End Sub

复制代码

当Integer和Long的循环次数相同时，在32位xp下的运行结果如下：
次数        Int类型        Long类型
平均        1.23        0.95
Long比Integer约快75%

原因分析：
Integer类型使用2byte(16bit)内存空间
而Long类型使用4byte(32bit)内存空间
当处理16bit的Integer类型时，需要先把数据转换为32bit然后执行程序。
因此使用32bit的Long类型还是比较快的。


姐妹篇
http://www.toolssoft.com/tec.asp






该贴已经同步到 xiamen168的微博

hqswww

我在X64位系统测试的结果刚好相反

hqswww

Private Sub CommandButton1_Click()
Const ma As Long = 30000
Const mi As Long = -30000
Dim p&
t = Timer
For i = 1 To 1000
For j = mi To ma
p = i + 1
Next
Next
MsgBox Timer - t
End Sub

Private Sub CommandButton2_Click()
Const ma As Integer = 30000
Const mi As Integer = -30000
Dim p%
t = Timer
For i = 1 To 1000
For j = mi To ma
p = i + 1
Next
Next
MsgBox Timer - t
End Sub

这是测试用的 前一个是2.7左右  后一个是2.6左右

guojianlin1985

快慢好像还受到计算机硬件配置的影响吧。

主要是cpu的架构和指令集。

liucqa

Sub Doint()
    Const myMAX As Integer = 32767
    Const myMIN As Integer = -32767
    Dim i As Integer, t As Date
    Dim 加法%, 减法%, 乘法%, 除法%, 求余%
    Dim cnt As Integer
    '循环100次
    t = Timer
    For cnt = 1 To 1000
        For i = myMIN To myMAX - 1
            加法 = i + 1
            减法 = i - 1
            乘法 = i * 1
            除法 = i / 1
            求余 = i Mod 1
        Next i
    Next cnt
    MsgBox Format(Timer - t, "0.00")
End Sub

Sub Dolong()
    Const myMAX As Long = 32767#
    Const myMIN As Long = -32767#
    Dim l As Long, t As Date
    Dim 加法#, 减法#, 乘法#, 除法#, 求余#, cnt As Long
    '循环100次
    t = Timer
    For cnt = 1 To 1000
        For l = myMIN To myMAX - 1
            加法 = l + 1
            减法 = l - 1
            乘法 = l * 1
            除法 = l / 1
            求余 = l Mod 1
        Next l
    Next cnt
    MsgBox Format(Timer - t, "0.00")
End Sub

为什么我的机器int 4秒多，long 6秒呢？  1000次

guojianlin1985

我的
2.83  

6.79

差距还是蛮大的。

xiamen168

hqswww 发表于 2012-7-9 19:43
我在X64位系统测试的结果刚好相反

噢，看来不能一刀切，跟硬件和OS有关系！

chentx

设计语言的人不会无缘无故的设计多种数据类型，这里面包含多方面的因素考虑，以一个无厘头的执行效率来判断一个数据类型，我只能佩服楼主的探索精神，但有方向性的错误，考虑问题也过于片面。

xiamen168

chentx 发表于 2012-7-10 10:55
设计语言的人不会无缘无故的设计多种数据类型，这里面包含多方面的因素考虑，以一个无厘头的执行效率来判断 ...

哈哈，仅供参考！

minjiwei

我也很想知道long比integer快的原因，我这边测试也是long比interger快。