Bu derste hangi gün doğduğunuzu ve ne zaman doğum gününüz olduğunu hesaplayan küçük bir uygulama yapalım.

Aşağıdaki resim gibi görsel hazırlıyoruz. Yani formumuza 1 adet textbox, 2 adet buton, 2 adet label ekliyoruz.

Labellerin text özelliğini ekranda görüldüğü gibi yazıyoruz.

Public class form1
Dim d_tarih, gun
button1_click
        Do
            d_tarih = TextBox1.Text
        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", MsgBoxStyle.Information, "SONUÇ")
button2_click
    d_tarih = TextBox1.Text
        If d_tarih <= Now.Date Then
            MsgBox("Daha geçerli bir tarih giriniz.")
        Else
            Do
            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ğum Gününüz.", MsgBoxStyle.Information, "SONUÇ")
        End If