LibreOffice 7.1 Bantuan
Mengembalikan nilai yang menentukan jumlah detik yang telah berlalu sejak tengah malam.
Pertama-tama Anda harus mendeklarasikan variabel untuk memanggil fungsi Timer dan menetapkannya sebagai tipe data "Long", jika tidak, nilai Tanggal akan dikembalikan.
Timer
Tanggal
Sub ExampleTimer
Dim lSec As Long,lMin As Long,lHour As Long
lSec = Timer
MsgBox lSec,0,"Detik sejak tengah malam"
lMin = lSec / 60
lSec = lSec Mod 60
lHour = lMin / 60
lMin = lMin Mod 60
MsgBox Right("00" & lHour , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSec , 2) ,0,"Waktunya adalah"
End Sub