查询花费时间_无影脚

个人资料

微博

正文字体大小：大中小

查询花费时间

(2024-02-12 16:02:36)

分类： VB程式

'公共模块

Public Declare Function GetTickCount Lib "kernel32" () As Long

'查询按钮

Private Sub Command5_Click() ''''调用公用连接模块查询

'查询用时开始时间

Dim StartT As Long '获取运算开始时间

Dim SpendT As Long '获取运算结束时间

StartT = GetTickCount ''调用SpendTime公共模块

'查询用时开始时间

SQL...

'查询用时结束时间

SpendT = GetTickCount - StartT

'MsgBox "本次操作耗时:" & SpendT / 1000 & "秒"

showtime.Caption = "花费：" & Format(SpendT / 1000, "0.00") & "秒"

'查询用时结束时间

End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report