VB 计算自己程序段所用时间

'1.声明API函数：
Private Declare Function GetTickCount Lib "kernel32" () As Long
'2.代码

Private Sub command1_Click()
    Dim StartT As Long  '获取运算开始时间
    Dim SpendT As Long '获取运算结束时间
    StartT = GetTickCount

    ' 程序代码＝＝＝＝＝＝＝

    '

    '程序代码＝＝＝＝＝＝＝

    SpendT = GetTickCount - StartT
    MsgBox "本次操作耗时:" & SpendT / 1000 & "秒"

End Sub

摘自：网络整理

---

相关文章参考：

---

★VB查找替代字符串的函数

★VB换行气泡提示类

★VB/VBA通用路径选择对话框

★ASCII码表0-255完整版 附详细注释

★VB的KeyAscii

★VB取得TextBox、RichTextBox光标所在的行和列（支持汉字）

★V