• Home
 · 
• Miscellaneous
 · 
• Day Of The Week calculations made easy

Day Of The Week calculations made easy

Day Of The Week calculations made easy

Rate Day Of The Week calculations made easy

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    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