VBMAN.TimeUse - 计时器对象

概述

VBMAN.TimeUse 提供了简单的代码执行时间测量功能，使用 GetTickCount API 实现。

核心特性

• 简单易用: 开始计时和显示耗时
• 自定义输出格式: 支持自定义输出文本模板

方法

Start

开始计时

Public Sub Start()

示例:

VBMAN.TimeUse.Start

Show

显示耗时

Public Function Show(Optional Txt As String = "耗时：{*} 毫秒") As Variant

参数:

• Txt - 输出文本模板，使用 {*} 作为耗时占位符

返回: 格式化后的字符串

示例:

' 默认格式
Debug.Print VBMAN.TimeUse.Show
' 输出: 耗时：123 毫秒

' 自定义格式
Debug.Print VBMAN.TimeUse.Show("执行时间: {*} ms")
' 输出: 执行时间: 123 ms

综合示例

示例1: 测量代码执行时间

Private Sub TestPerformance()
    ' 开始计时
    VBMAN.TimeUse.Start
    
    ' 要测量的代码
    Dim i As Long
    Dim sum As Long
    For i = 1 To 1000000
        sum = sum + i
    Next i
    
    ' 显示耗时
    Debug.Print VBMAN.TimeUse.Show("循环计算耗时: {*} 毫秒")
End Sub

示例2: 函数执行时间记录

Private Sub ProcessData()
    VBMAN.TimeUse.Start
    
    ' 数据处理逻辑
    Call LoadDataFromDatabase
    Call ProcessRecords
    Call SaveResults
    
    ' 记录到日志
    VBMAN.Logs.DataLine VBMAN.TimeUse.Show("数据处理完成，耗时: {*} 毫秒"), "性能统计"
End Sub

注意事项

• 使用 GetTickCount API，精度为毫秒级
• 计时器在调用 Start 后重新开始计时
• 如果需要更高精度，建议使用 QueryPerformanceCounter API