İnputbox ile doğum tarihi hesaplama

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

İ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

  • Etiketler;
Yorum Yaz

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

dikkatimi çeken bişey oldu açıklama kısmında 6 tane label gerekli demişsiniz ama görselde 3tane label cvp yazarsanız sevinirim .şimdiden tşkler:)
3 tanesindede textlerini boşalttım ve çıkan sonuçları oraya yazdırıdm :D

Yukarı Git