Hangi Gün Doğduğunu Bulmak

Bu derste Visual Basic 2008'de hangi günde doğduğunuzu bulabileceğiniz basit bir program yapalım.

Bu derste Visual Basic 2008'de hangi günde doğduğunuzu bulabileceğiniz basit bir program yapalım.

Bu çalışma için bir buton yeterli olacaktır.

Buton'un Click olayına aşağıdaki kodları girin:


Dim d_tarih, gun

        Do

            d_tarih = InputBox("Doğum Tarihinizi Giriniz :")



        Loop While Not IsDate(d_tarih)

        Select Case Weekday(d_tarih)

            Case 1 : gun = "Pazar"

            Case 2 : gun = "Pazartesi"

            Case 3 : gun = "Salı"

            Case 4 : gun = "Çarşamba"

            Case 5 : gun = "Perşembe"

            Case 6 : gun = "Cuma"

            Case 7 : gun = "Cumartesi"

        End Select

        MsgBox(gun & " Günü Doğmuşsunuz")



Kodu açıklarsak, yazdığınız tarihi hafta ve günlere göre sıralayarak bulup mesaj olarak gösteriyor.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

• 7 yıl önce
Teşekkürler sorunsuz :)

Yukarı Git