RSS

İnputbox ile doğum tarihi hesaplama

17 Nis

İ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

https://i2.wp.com/resim.sanalkurs.net/uploads/Ekran_Alnts_5.jpg

İ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
 
Yorum yapın

Yazan: 17 Nisan 2011 in Genel

 

Etiketler: , , , ,

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

 
%d blogcu bunu beğendi: