Haftanın Gününü Ver - Microsoft Excel

Bugünün tarihinin hangi gün olduğunu gün ismiyle veren VBA kodu alternatifidir.

Option Explicit

Private Sub HaftaninGununuVer()
    Dim gun As String
    
    Select Case Weekday(Date, vbMonday)
        Case 1: gun = "Pazartesi"
        Case 2: gun = "Salı"
        Case 3: gun = "Çarşamba"
        Case 4: gun = "Perşembe"
        Case 5: gun = "Cuma"
        Case 6: gun = "Cumartesi"
        Case 7: gun = "Pazar"
    End Select
    
    MsgBox gun
End Sub