İnputbox ile doğum tarihi hesaplama

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

İnputbox ile doğum günü tarihi girilip gün ay ve yıl olarak detaylı bir yaşınızı görmeyi sağlar.

6 tane label 1 tane button gereklidir

İsterseniz bu resim size görsellik için fayda sağlayabilr

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bugün As Date = Date.Now
        Dim tarih As Date
        Dim g, a, y As Integer
        tarih = InputBox("Lütfen doğum tarihinizi giriniz:", "Yaş Sorgulama")
        y = bugün.Year() - tarih.Year()
        Label4.Text = y
        g = Now.Day - tarih.Day
        Label2.Text = g
        a = Now.Month - tarih.Month
        Label3.Text = a
        If g < 0 Then
            g = g + 30
            a = a - 1
        End If
        If a < 0 Then
            a = a + 12
            y = y - 1
        End If
    End Sub

 

[Karcemackers]

Paylasım icin tesekkurler.

 

[kaptanmikro1]

Paylaşım için teşekkürler.