Geri Sayım İşlemi

 
' Formunuza Bir Adet Timer ve Bir Label Ekleyin (2:00:00)

Option Explicit

Private AlarmTime As Date

Private Sub Form_Load()
AlarmTime = DateAdd("h", 2, Now)
End Sub


Private Sub Timer1_Timer()
Dim txt As String

txt = Format$(AlarmTime - Now, "h:mm:ss")
Label1.Caption = txt
End Sub

 

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

geri sayım � şlemi