Visual Basic Kaç Gün Yaşadığını Hesaplama

Bu örneğimizde Visual Basic Form ortamında bir kişinin doğduğu günden itibaren bu güne kadar kaç gün yaşamış olduğunu hesaplayan programı yapacağız. Öncelikle kullanıcının doğum tarihini girmesi için aşağıdaki resimde görünen Visual Basic Formunu hazırlıyoruz. Form nesneleri ekranda göründüğü gibidir. Daha sonra DateDiff(DateInterval.Day, dogumgunu, tt, ) komutunu kullanarak iki tarih arasındaki farkı gün olarak buluyoruz ve ekrana yazdırıyoruz.

Programın Visual Basic Kodları:

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim tt As DateTime = Today
        Dim dogumgunu As DateTime
        Dim durum As Double
        dogumgunu = TextBox1.Text
        TextBox2.Text = tt
        TextBox3.Text = DateDiff(DateInterval.Day, dogumgunu, tt, )
        durum = TextBox3.Text
    End Sub
End Class

Programın ekran görüntüleri: