程序员经验分享-hwhale

四种整数数据类型的性能对比

2023-05-16

　　在我们写VBA程序的时候，我们经常要面对数据类型定义的选择，有的情况下，业务本身对于数据类型有要求和限制，那么我们并不难以选择，有些时候却没有限制，我们可以任意选用四种整数类型（Byte，Integer，Long，Currency）中的一种，例如：

For i=1 to 100

　　在这行代码中，我们该把变量i定义为什么类型的变量呢？显然四种整数类型都可以正常运行，但是他们的效率是否相同呢？我们到底该如何选择？有的人说，当时是选最小的数据类型Byte，有的人说在32位系统上，32位的Long类型才是效率最高的。

　　那么究竟谁说的是正确的，让我们来进行一下这四种整数类型的性能对比测试，我们使用如下代码：

Const LoopTimes = 100000000

Public Sub test()
    Dim bytTmp As Byte
    Dim intTmp As Integer
    Dim lngTmp As Long
    Dim curTmp As Currency
    Dim loopCount As Long
    
    Dim timeBegin As Single
    Dim timeEnd As Single
    Dim timeAddition As Single
    
    timeBegin = Timer
    For loopCount = 0 To LoopTimes
    Next loopCount
    timeEnd = Timer
    timeAddition = timeEnd - timeBegin
    
    
    timeBegin = Timer
    For loopCount = 0 To LoopTimes
        bytTmp = 255
    Next loopCount
    timeEnd = Timer
    Debug.Print "Byte :"; timeEnd - timeBegin - timeAddition; "秒"

    timeBegin = Timer
    For loopCount = 0 To LoopTimes
        intTmp = 255
    Next loopCount
    timeEnd = Timer
    Debug.Print "Integer :"; timeEnd - timeBegin - timeAddition; "秒"

    timeBegin = Timer
    For loopCount = 0 To LoopTimes
        lngTmp = 255
    Next loopCount
    timeEnd = Timer
    Debug.Print "Long :"; timeEnd - timeBegin - timeAddition; "秒"

    timeBegin = Timer
    For loopCount = 0 To LoopTimes
        curTmp = 255
    Next loopCount
    timeEnd = Timer
    Debug.Print "Currency :"; timeEnd - timeBegin - timeAddition; "秒"
    Debug.Print "*********************"

End Sub

　　在这里，我们对每个整数类型进行了1亿次的赋值操作，同时减去了循环控制所消耗的空转时间，剩下的就是纯粹的赋值操作所需的时间。最后，让我们来看看运行的结果：

Byte : 7.234375 秒
Integer : 2.421875 秒
Long : 3.4375 秒
Currency : 4.84375 秒
*********************
Byte : 7.234375 秒
Integer : 2.421875 秒
Long : 3.453125 秒
Currency : 4.875 秒
*********************
Byte : 7.21875 秒
Integer : 2.421875 秒
Long : 3.421875 秒
Currency : 4.875 秒
*********************

　　看到这里，我想大家都应该很清楚了，虽然Byte占用内存最少，但是他的性能却是最差的，如果对于单个变量，我们没有必要使用Byte，当然Byte在大块数据段进行指针操作的时候，还是有他的非凡之处。剩下三种整数数据类型里面，Integer性能最佳，Currency性能最差。我们尽可能选择能够满足我们业务需要的最小数据类型。

　　上面是赋值操作的性能对比，下面我们来进行位操作的性能对比测试，我们使用如下代码：

Const LoopTimes = 10000000

Public Sub test()
    Dim bytTmp As Byte
    Dim intTmp As Integer
    Dim lngTmp As Long
    Dim curTmp As Currency
    Dim strTmp As String
    Dim loopCount As Long
    
    Dim timeBegin As Single
    Dim timeEnd As Single
    Dim timeAddition As Single
    
    timeBegin = Timer
    For loopCount = 0 To LoopTimes
        strTmp = 255
    Next loopCount
    timeEnd = Timer
    timeAddition = timeEnd - timeBegin
    
    
    timeBegin = Timer
    For loopCount = 0 To LoopTimes
        strTmp = bytTmp Or 255
    Next loopCount
    timeEnd = Timer
    Debug.Print "Byte :"; timeEnd - timeBegin - timeAddition; "秒"

    timeBegin = Timer
    For loopCount = 0 To LoopTimes
        strTmp = intTmp Or 255
    Next loopCount
    timeEnd = Timer
    Debug.Print "Integer :"; timeEnd - timeBegin - timeAddition; "秒"

    timeBegin = Timer
    For loopCount = 0 To LoopTimes
        strTmp = lngTmp Or 255
    Next loopCount
    timeEnd = Timer
    Debug.Print "Long :"; timeEnd - timeBegin - timeAddition; "秒"

    timeBegin = Timer
    For loopCount = 0 To LoopTimes
        strTmp = curTmp Or 255
    Next loopCount
    timeEnd = Timer
    Debug.Print "Currency :"; timeEnd - timeBegin - timeAddition; "秒"
    Debug.Print "*********************"

End Sub

　　这里，我们所比较的是逐位或操作，同样我们扣除了循环控制时间，赋值时间，下面让我们来看看结果：

Byte : .625 秒
Integer : .296875 秒
Long : .296875 秒
Currency : .890625 秒
*********************
Byte : .609375 秒
Integer : .34375 秒
Long : .328125 秒
Currency : .90625 秒
*********************
Byte : .484375 秒
Integer : .265625 秒
Long : .203125 秒
Currency : .8125 秒
*********************
Byte : .53125 秒
Integer : .328125 秒
Long : .28125 秒
Currency : .875 秒
*********************

　　我们可以看到，在位操作项目上，Byte赶上了Currency成了第三名，而Integer和Long则咬得很紧，但是最终还是Long胜出了，看来在32位系统上，32位数据类型确实有位操作上的优势，不要以为1字节位操作就会比4字节位操作快，事实上正好相反，4字节>2字节>1字节。

　　综合以上表现，我们的结论是，Byte和Currency的表现是最差的，但是这两个数据类型有他们的特殊用途，Byte适用于内存块的批量操作，Currency适用数据类型不确定的时候，剩下的Integer和Long，Integer在赋值操作上更快，Long在位操作上更快。

　　现在你知道该如何选择整数数据类型了吗？

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

四种整数数据类型的性能对比 的相关文章

随机推荐

  • 中文Cookie导致Session丢失的问题

    在网络上 xff0c 已经有无数的文章讨论Session丢失问题 xff0c 其中的原因有非常多的种类 xff0c 在此不再赘述 下面我们描述一种特殊的Session丢失现象 xff1a 1 在绝大多数客户端上 xff0c Session都

  • Access.Image Decoder

    版本 xff1a V0 41 系统要求 xff1a Access 2000及以上版本 软件介绍 xff1a Access中的Image控件将所有图形数据保存在PictureData属性数组中 xff0c 通过修改PictureData xf

  • 直接粘贴剪贴版的位图数据到Image控件

    调用范例 xff1a Private Sub Command1 Click PasteToImage Me Image0 End Sub 模块段代码 xff1a Option Compare Database Option Explicit

  • Access.Image BMP图像高速切割函数

    本函数可以在你自己的程序中调用 xff0c 从已有BMP中切割任意一个矩形块 使用本函数 xff0c 即使你对BMP格式一窍不通 xff0c 也可以在自己的程序中自由地切割BMP xff08 比方说拼图游戏程序 xff09 附件包含 xff

  • 优化Microsoft Access提高速度

    压缩 压缩 要保证经常性的压缩你的程序代码 当你在开发和使用Microsoft Access数据库时 xff0c 你要经常性地增加和删除数据 代码等等 现在的问题是Microsoft Access并不能有效地释放已分配的但被删除的对象空间

  • LINUX Shell 下求两个文件交集和差集的办法

    假设两个文件FILE1和FILE2用集合A和B表示 xff0c FILE1内容如下 xff1a a b c e d a FILE2内容如下 xff1a c d a c 基本上有两个方法 xff0c 一个是comm命令 xff0c 一个是gr

  • 安装ensp 图文详解（超详细）

    文章目录 ensp的详细安装步骤 xff1a 分享安装包 xff08 在下载ensp之前需要安装好该三个应用 xff09 Virtualbox下载地址 xff1a https www virtualbox org wireshark下载 h

  • Microsoft Access秘密、技巧和陷阱

    摘要 这篇文章概括了当使用Microsoft Access 时 xff0c 通过使用Access Basic可以增加应用程序的执行速度 xff0c 减少编码量 xff0c 同时也减少在为Microsoft Windows应用程序接口编程时

  • 浅析Windows编程的剪贴板机制

    摘要 xff1a 本文对Windows剪贴板机制作了深入 全面的阐述 xff0c 具体内容包括 xff1a 文本 位图 DSP 自定义格式剪贴板的使用和多数据项和延迟提交技术 关键词 xff1a VC 43 43 6 0 xff1b 剪贴板

  • Matthew Curland的VB函数指针调用

    Matthew Curland简介 xff1a Visual Studio开发小组成员 xff0c 参与开发了VB的IntelliSense和Object Browser 他是VB资深专家 xff0c 对VB有非常深入的研究 xff0c 堪

  • Access中神秘的Criteria（上）

    看到这个标题 xff0c 很多读者可能会迷惑 xff0c 什么是Criteria xff1f 我用了这么久Access xff0c 怎么从来没听说国 我猜想很多读者都是怀着好奇的心情点击的这个主题 但是也许你不知道 xff0c Access

  • Access多条件格式研究笔记（上）

    之前见过论坛好几个帖子讨论过超过三个的条件格式 xff0c 当时因为没有用过条件格式 xff08 通常遇到类似需求我就直接用VBA写代码了 xff09 xff0c 所以也无法加入讨论 xff0c 但是开始留意条件这个这个功能 适逢周末有点空

  • Access 窗体控件事件集线器（EventsHub）V 1.1

    模块名称 xff1a EventsHub 模块版本 xff1a V 1 1 模块介绍 xff1a 很多时候我们在窗体中会有很多类似的控件 xff08 比方说40多个TextBox xff09 xff0c 对于这些类似的控件我们需要编制类似的

  • 窗体类中慎用Option Explicit

    今天遇到一个怪病 xff0c 困扰了我几个小时 xff0c 我有一段程序读取窗体上的切换按钮状态 xff0c 在一个新文件中运行得很好 xff0c 但是同样一个按钮 xff0c 同样代码 xff0c 贴到另外一个窗体 xff0c 却怎么也无

  • 窗体控件绑定数据库字段后的Value类型

    下面三张图展示了各种数据类型的字段绑定到窗体控件后的控件值类型 需要注意的是 xff0c 窗体类中是否使用Option Explicit xff0c 对于空值类型影响很大 xff0c 具体请看本人的另一篇文章 窗体类中慎用Option Ex

  • Dim 的陷阱

    代码一 xff1a Dim x 100 y 100 As Byte Call ReadBytes x Public Sub ReadBytes ByRef z As Byte 39 Do Nothing End Sub 对以上代码进行编译

  • 谨慎使用单精度/双精度数值类型

    前言 在近日几个帖子里面 xff0c 和QQ群的讨论里面 xff0c 我发现很多网友都遇到的问题都是因为不恰当地使用了单精度 双精度数值 因此想专门就这个话题谈一下 单精度和双精度数值类型最早出现在C语言中 xff08 比较通用的语言里面

  • Java的内存结构(Memory Structure)和垃圾收集（Garbage Collection）图解

    JVM 内存包含如下几个部分 xff1a Heap Memory 存放Java对象 Non Heap Memory 存放类加载信息和其它meta dataOther 存放JVM 自身代码等 在JVM启动时 xff0c 就已经保留了固定的内存

  • MD5加密的VB类模块源码

    在窗体中调用时如下 set c1 61 new class 39 class 为你存的类模快名 text1 text 61 md5 string calc sourcestring 类模块源码如下 Option Explicit 39 Vi

  • 四种整数数据类型的性能对比

    在我们写VBA程序的时候 xff0c 我们经常要面对数据类型定义的选择 xff0c 有的情况下 xff0c 业务本身对于数据类型有要求和限制 xff0c 那么我们并不难以选择 xff0c 有些时候却没有限制 xff0c 我们可以任意选用四种

热门标签