Fungsi Timer

Berlaku Untuk
Access untuk Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Mengembalikan Single yang mewakili angka detik yang berlalu sejak tengah malam.

Sintaks

Timer

Keterangan

Di Microsoft Windows, fungsi Timer mengembalikan bagian pecahan kedua. Di Macintosh, resolusi timer adalah satu detik.

Contoh kueri

Ekspresi Hasil
SELECT Timer() AS SecondsPast FROM ProductSales GROUP BY Timer(); Mengembalikan jumlah detik yang berlalu sejak tengah malam berdasarkan waktu sistem dan ditampilkan dalam kolom SecondsPast.

Contoh VBA

Catatan

Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.

Contoh ini menggunakan fungsi Timer untuk menjeda aplikasi. Contoh ini juga menggunakan DoEvents untuk menghasilkan proses lain selama jeda.

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", _
        4)) = vbYes Then
    PauseTime = 5    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer    ' Set end time.
    TotalTime = Finish - Start  ' Calculate total time.
    MsgBox "Paused for " & TotalTime & " seconds"
Else
    End
End If

Memilih fungsi tanggal yang benar