Yaş Hesaplama

Public Class Form1

    Dim ay, gun, yıl As Integer

    Dim simdi, tarih As Date

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ay = TextBox1.Text

        gun = TextBox2.Text

        yıl = TextBox3.Text

        If (ay < 13 And ay > 0) And (gun < 32 And gun > 0) And yıl > 0 Then

            Try

                tarih = ay & "/" & gun & "/" & yıl

                simdi = DateAndTime.Now.Date

                If tarih < simdi Then

                    MsgBox(DateDiff(DateInterval.Year, tarih, simdi))

                Else

                    MsgBox("Girdiğiniz Tarih Değeri Bugünün Tarihinden Küçük Olmalı", MsgBoxStyle.Information, "Ercan Akgün")

                End If

            Catch

                MsgBox("Gün Değerlerinin Ay ile İlişkili Olmasına Dikkat ediniz.", MsgBoxStyle.Information, "Ercan Akgün")

            End Try

        Else

            MsgBox("Girdiğiniz ay, gün veya yıl değerlerine dikkat ediniz.", MsgBoxStyle.Information, "Ercan Akgün")

        End If

    End Sub

End Class