Online Reference

Home

Timer Function

VBA Function, ค่าที่ส่งออกเป็นประเภทข้อมูล Single โดยเป็นจำนวนวินาทีที่เลยเที่ยงคืน

ไวยากรณ์

Timer

ดูเพิ่มเติม

Randomize Statement, ฟังก์ชัน Time

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน Timer หยุดโปรแกรมประยุกต์ ตัวอย่างคำสั่งได้ใช้ DoEvents เพื่อให้กระบวนการอื่น ทำงานได้ระหว่างการหยุด

Dim PauseTime, Start, Finish, TotalTime

If (MsgBox("กดปุ่ม Yes เพื่อหยุด 5 วินาที", 4)) = vbYes Then

' ตั้งค่าช่วงเวลา
PauseTime = 5
' ตั้งค่าเวลาเริ่มต้น
Start = Timer

Do While Timer < Start + PauseTime
  ' ให้กระบวนการอื่นทำงาน
  DoEvents
Loop

' ตั้งค่าเวลาสิ้นสุด
Finish = Timer
TotalTime = Finish - Start
MsgBox "Pause for " & TotalTime & " seconds"

Else
    End
End If

ตัวอย่างการประยุกต์ใน Access

ตัวอย่างการใช้ฟังก์ชัน Timer หาระยะเวลาการทำงานของคิวรี่

Sub QueryTimer(strQueryName As String)

Dim sngStart As Single, sngEnd As Single
Dim sngElapsed As Single

sngStart = Timer
DoCmd.OpenQuery strQueryName, acViewNormal

sngEnd = Timer
sngElapsed = Format(sngEnd - sngStart, "Fixed")

MsgBox ("คิวรี่ " & strQueryName & " ใช้เวลา " & sngElapsed & " วินาที ในการทำงาน")

End Sub