• Home
 · 
• Miscellaneous
 · 
• Displays Current Day of the week, Time with AM/PM and Current Date

Displays Current Day of the week, Time with AM/PM and Current Date

Displays Current Day of the week, Time with AM/PM and Current Date

Rate Displays Current Day of the week, Time with AM/PM and Current Date

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'
' By: Chirag Patel
' Email: [email protected]
'
'
Private Sub Form1_Load()
   lblDate.Caption = Date
   lblDate.Caption = Format (Date, "dddd - mmm, dd yyyy")
End Sub

'Above Code will display Wednesday - Feb, 07 2007 in lblDate

' To display current time with Seconds and AM/PM
' Set Interval = 5 under Timer1 Property

Private Sub Timer1_Interval()
   lblTime.Caption = Timer1
End Sub

' Above Code will dispaly 10:12:35 AM in lblTime