Module ini berguna untuk menunda proses dengan jeda waktu yang secara random.
1 2 3 4 5 6 7 8 9 10 11 12 | Public Interval As DateSub start_timer() Dim Detik As Integer Detik = Int((Rnd * 5) + 1) Interval = Now + TimeValue("00:00:" & Detik) Application.OnTime Interval, "start_timer" 'Memanggil prosedur / sub yang berisi perintah yang diinginkan Sheet1.Kirim_Pesan End Sub Sub stop_timer() Application.OnTime EarliestTime:=Interval, Procedure:="start_timer", Schedule:=False End Sub |
