如何选择计时方法测量时间变化？VBA与WinApi时钟分类及精度探究

首先得说，你的理解完全正确！区分Wall Clock（绝对时间，靠NTP这类协议实现跨设备时间同步）和Monotonic Clock（专注测量时间间隔，不受闰秒、系统时钟手动调整等干扰），是做基准测试和精准计时的核心认知，很多开发者都容易在这里踩坑。

Additional Key Factors to Consider #

除了时钟类型本身，还有几个细节会影响计时结果：

• Resolution vs. Accuracy: 分辨率是时钟能返回的最小时间单位，精度是返回值和真实时间的偏差。比如有些时钟能输出微秒级数值，但实际误差可能远超这个量级，别把分辨率等同于精度。
• System Scheduling Overhead: 哪怕用了最精准的单调时钟，系统线程调度、进程切换也会干扰短代码段的计时结果，所以基准测试最好多次运行取平均值，减少偶然误差。
• Power Management: 笔记本的CPU降频会影响依赖CPU的单调时钟（比如QueryPerformanceCounter）的稳定性，测试时建议切换到高性能模式。

Classification of Your Listed Clocks #

下面逐个拆解你提到的时钟类型，明确它们的定位：

• VBA Time: 属于Wall Clock，返回系统本地的当前日期时间，精度一般是秒级，会跟着系统时钟调整（比如手动改时间、NTP同步），绝对不适合测量时间间隔。
• VBA Timer: 属于Monotonic Clock，返回从午夜到现在的秒数（带小数，精度约10ms），不受系统时钟改动影响，适合简单的VBA代码计时，但分辨率偏低。
• WinAPI GetTickCount: 属于Monotonic Clock，返回系统启动后经过的毫秒数，精度约10-16ms，同样不受系统时钟调整影响，但分辨率不如QueryPerformanceCounter，适合粗略的短间隔测量。
• WinAPI GetSystemTimePreciseAsFileTime: 属于Wall Clock，返回高精度的绝对系统时间（精度可达100ns），但受系统时钟调整、闰秒影响，不适合测时间间隔，只适合需要精准绝对时间的场景。
• WinAPI QueryPerformanceFrequency + QueryPerformanceCounter: 这是Windows平台最靠谱的Monotonic Clock方案。QueryPerformanceFrequency获取计数器的基准频率，QueryPerformanceCounter获取当前计数值，通过差值计算时间间隔，精度可达微秒级甚至更高（取决于硬件支持），完全不受系统时钟调整干扰，是基准测试的首选。

Alternative Timing Methods #

除了你列出的选项，Windows平台还有这些可用：

• WinAPI GetTickCount64: 是GetTickCount的64位版本，解决了32位版本约49天就会溢出的问题，同样是单调时钟，精度和GetTickCount一致。
• Modern QueryPerformanceCounter Optimizations: Windows 10及以上系统对这个API做了硬件抽象层优化，稳定性更好，部分场景下精度能接近纳秒级（依赖CPU的TSC定时器）。

Java's nanoTime() & How to Replicate It #

Java的System.nanoTime()本质上是基于操作系统提供的单调时钟实现的：

• 在Windows平台，它底层调用的就是QueryPerformanceFrequency和QueryPerformanceCounter，通过计算差值转换为纳秒（因为QueryPerformanceCounter的频率通常是几MHz到几十MHz，转换后就能得到纳秒级数值）。
• 在Linux等其他平台，它会调用clock_gettime(CLOCK_MONOTONIC)这类系统调用。

你完全可以在VBA里复制这个实现，比如：

Private Declare PtrSafe Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Boolean
Private Declare PtrSafe Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Boolean

Public Function NanoTime() As Currency
    Dim freq As Currency, count As Currency
    QueryPerformanceFrequency freq
    QueryPerformanceCounter count
    NanoTime = count / freq * 1000000000 ' 转换为纳秒单位
End Function

用VBA的Currency类型能避免整数溢出，足够存储高精度的计数值。如果追求极致精度，也可以直接调用CPU的TSC（Time Stamp Counter）指令，但这需要汇编或C++支持，还要注意多核心CPU的TSC同步问题（现代CPU大多支持TSC_INVARIANT，能保证核心间同步）。

Recommended Tags #

适合这个问题的标签：vba, winapi, benchmarking, timer, clock

内容的提问来源于stack exchange，提问作者Greedo