Selasa, 12 Juli 2011

Menghitung Umur Dengan VB net

Buka Visual Studionya, bikin project Windows Form Application (Bahasa VB.net). Masukan DateTimePicker dan TextBox, Lalu masukan kode berikut:

Private Sub DateTimePicker1_ValueChanged() Handles DateTimePicker1.ValueChanged
        Dim Birth As Date = DateTimePicker1.Value
        Dim tahun, bulan, hari As Integer
        While tahun <= (Now.Year - Birth.Year)

            While bulan <= (Now.Month - Birth.Month)
                '   If Now.Day >= Birth.Day Then
                'hari = 0
                ' Else
                While hari <= (Now.Day - Birth.Day)
                    hari += 1
                End While

                ' End If
                bulan += 1
            End While
            tahun += 1
        End While
        tahun -= 1 : bulan -= 1 : hari -= 1
        TextBox1.Text = tahun & " tahun " & bulan & " bulan " & hari & " hari"
    End Sub

 Coba deh buat menghitung umur kamu,, pas apa ga..

1 comments:

Anonim mengatakan...

Sekedar Saran:

Sepertinya masih kurang tepat perhitungannya, misalkan saya lahir tanggal 26 Maret 1984, kemudian sekarang masih tanggal 24 Februari 2012, hasilnya : 28 Tahun -1 Bulan -1 Hari. Seharusnya : 28 Tahun -1 Bulan - 2 Hari. atau lebih tepatnya: 27 Tahun 11 Bulan 24 hari.

Untuk bulan yang lebih kecil dari bulan sekarang sekarang hasilnya sudah ok. Demikian terimkasih atas sharingnya..

Klampok Child | XKom | Win7Aero