Programa bir tarih yazacağiz ve o tarihi bize hangi gün olduğunu söyleyecek.. 
Programda Tek bir button kullandık bu butona tıklayınca bizden isteyecek.. Buttona yazılacak kodlar;
[code language=”vb”] Dim sonuç Dim tarih As Date Dim erteleme, erteleme2 As Integer tarih = InputBox("Bir tarih giriniz") sonuç = Choose(Weekday(tarih), "PAZAR", "PAZARTESİ", "SALI", "ÇARŞAMBA", "PERŞEMBE", "CUMA", "CUMARTESİ") MsgBox("Girdiğiniz tarih:" & tarih & sonuç & "Gününe denk geliyor.") erteleme = Val(InputBox("Kaç gün sonrasını bulmak istiyorsunuz")) erteleme2 = (Weekday(tarih) + erteleme) Mod 7 sonuç = Choose(erteleme2, "PAZAR", "PAZARTESİ", "SALI", "ÇARŞAMBA", "PERŞEMBE", "CUMA", "CUMARTESİ") MsgBox(sonuç)[/code]