- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
İ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
Kod:
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
6 tane label 1 tane button gereklidir
İsterseniz bu resim size görsellik için fayda sağlayabilr
Kod:
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