Program Kalender

Program ini dibuat untuk mengetahui tanggal dan waktu saat ini.
Berikut source codenya..!!

 

Option Explicit
Private Sub Form_Load()
    Dim hari As Variant
    hari = Now
    lbl_hari.Caption = Format(hari, "dddd")
    lbl_waktu.Caption = Format(hari, "h:mm:ss ampm")
    lbl_waktu.Caption = Time
    lbl_tanggal.Caption = Format(hari, "d  mmmm  yyyy")
  
  
End Sub

Private Sub timer1_Timer()
    lbl_waktu.Caption = Time
End Sub

Atau dapat di download disini..!!