• Home
 · 
• Miscellaneous
 · 
• Advenced Windows Date

Advenced Windows Date

Advenced Windows Date

Rate Advenced Windows Date

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Email:[email protected]
'Location:Iran-Mazandaran-Tonekabon

'***********
'Add 1CommandButton and 1Label to form

Dim m, y, d, x

 

Private Sub Command1_Click()

  m = MonthName(Month(Date), False)

  y = Year(Date)

  d = Day(Date)

  week = WeekdayName(Weekday(Date), False, vbUseSystemDayOfWeek)

  x = "Today is: " & week & "  " & d & "  " & m & "  " & y

  Label1.Caption = x

End Sub