İlgili günün sayısı verildiğinde bu sayının denk geldiği gün ismini yazdıran VBA kodudur.
Option Explicit
Function SayininGunKarsiliginiVer(deger As Byte) As String
SayininGunKarsiliginiVer = _
Switch(deger = "1", "Pazartesi", _
deger = "2", "Salı", _
deger = "3", "Çarşamba", _
deger = "4", "Perşembe", _
deger = "5", "Cuma", _
deger = "6", "Cumartesi", _
deger = "7", "Pazar")
End Function