by Robby Bassic (3 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 21st November 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Day Of The Week calculations made easy
Dim strDay As String
Select Case Weekday(Text1.Text) 'or any Date source
Case vbSaturday
strDay = "Saturday"
Case vbSunday
strDay = "Sunday"
Case vbMonday
strDay = "Monday"
Case vbTuesday
strDay = "Tuesday"
Case vbWednesday
strDay = "Wednesday"
Case vbThursday
strDay = "Thursday"
Case vbFriday
strDay = "Friday"
End Select
MsgBox strDay
End Sub