Advenced Windows Date

by Ghaffar Nagapour (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 6^th August 2005
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Advenced Windows Date



'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

Download this snippet Add to My Saved Code

Advenced Windows Date Comments

No comments have been posted about Advenced Windows Date. Why not be the first to post a comment about Advenced Windows Date.

Advenced Windows Date

Advenced Windows Date Comments

Post your comment

Difficulty