Gorsel Programlama

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;

 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ç)

Projeyi İndir