Hangi Gün Doğduğunuzu ve Kaç Günlük Olduğunuzu Öğrenin

[Yorgun Yürek]

Hangi Gün Doğduğunuzu Öğrenin
Önce yapmamız gereken 1 textbox, 1 label ve 1 buton
Button_Click olayına
---------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Label1.Text = FormatDateTime(TextBox1.Text, DateFormat.LongDate)

End Sub
---------------
proğramı çalıştırıp texte doğum gününüzü gün/ay/yıl (28/01/1991) olarak yazıp butona basarak hangi günde doğduğunuzu öğrenebilirsiniz...
_____________________________
Kaç Günlük Olduğunuzu Öğrenin
Burada yapmamız gereken 2 textbox ve 1 buton
Button_Click olayına
---------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim tarih1, tarih2 As Date
tarih1 = "#" & TextBox1.Text & "#"
tarih2 = "#" & TextBox2.Text & "#"
MsgBox(DateDiff(DateInterval.Day, tarih1, tarih2) & " günlüksünüz")
End Sub
---------------
Proğramı çalıştırıp 1.texte doğduğunuz günü, 2.texte bugünün tarihini yazıp butona tıklamanız yeterli...Kaç gündür hayatta olduğunuzu öğrenmek için...