Menghitung Usia / Umur Dengan VB .Net

Pada Tutorial Lengkap Visual Basic .Net kali ini akan kami bahas Cara Membuat Sebuah Aplikasi Sederhana yaitu Menghitung Usia / Umur Dengan VB .Net. Fungsi ini sangat sering digunakan oleh programmer untuk menghitung Umur Karyawan, Untuk Aplikasi Peminjaman, Untuk menghitung Denda dan lain sebagainya.

Untuk membuatnya sangat mudah, anda cukup mengikuti Tutorial dibawah dengan Fokus dan langsung mempraktikan dirumah.

Berikut langkahnya :
Nyalakan Komputer atau Laptop anda
Buka Microsoft Visual Basic .Net
Klik File - New - Project
Beri nama Project sesuai dengan keinginan anda - Klik OK
Jikas sudah muncul Form1, design Form1 seperti gambar dibawah ini :

Pada Form1 diatas terdapat : TextBox1, TextBox2, TextBox3, TextBox4, Button1 dan Button2

Baca Juga : Cara Memvalidasi Alamat eMail pada VB .Net

Jika sudah sukses membuat Design Form Seperti gambar diatas, silahkan masukan koding dibawah ini pada Form1 :

Public Class Form1
    Sub Kosongkan()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As String
        Dim b As String
        Dim c As String
        a = TextBox3.Text
        b = TextBox2.Text
        c = TextBox1.Text
        Dim DOB As New DateTime(a, b, c)
        Dim Years As Integer = DateDiff(DateInterval.Year, DOB, Now) - 1
        Dim Months As Integer = DateDiff(DateInterval.Month, DOB, Now) Mod 12
        Dim days As Integer = DateDiff(DateInterval.Day, DOB, Now) Mod 30 - 10
        TextBox4.Text = Years & " Tahun, " & Months & " Bulan "
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call Kosongkan()
    End Sub
End Class 

Jika sudah, silahkan Run atau Jalankan Project VB .Net anda.
Semoga bermanfaat untuk anda, kami senang jika anda berkomentar dibawah :)