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.

Cara Menghitung Usia / Umur Dengan VB .Net - BelajarVB.com


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 :

Cara Menghitung Usia / Umur Dengan VB .Net - BelajarVB.com

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 :)

Subscribe to receive free email updates:

2 Responses to "Menghitung Usia / Umur Dengan VB .Net"

  1. Terima kasih untuk berbagi, sangat membantu untuk melengkapi program untuk tugas kuliah :)

    ReplyDelete
    Replies
    1. Hi Legina,
      Sama sama semoga bermanfaat dan selamat belajar VB :)

      Delete