Doğum Gününü Bulma

Hangi gün doğduğunuzu bulan program. Weekday yordamını kullanarak doğum gününüzün hangi gün olduğunu öğreniyorsunuz.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim d_tarih, gun
        Show()
        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")
    End Sub
End Class