Mengetahui Umur atau Menghitung Umur Dengan Visual Basic .Net Berdasarkan Tanggal Lahir
Dalam berbagai keperluan pekerjaan, kita sering menghitung umur dari data tertentu. Misalkan ada perekrutan karyawan yang salah satu kriterianya adalah batasan umur atau usia. Sehingga kita perlu menghitung dengan tepat umur seorang pelamar untuk menentukan apakah pelamar masuk dalam kriteria umur atau tidak.
Pada artikel sebelumnya saya telah membahas bagaimana menghitung umur menggunakan Microsoft Excel.
Baca : Menghitung Umur Menggunakan Microsoft Excel (Menggunakan Fungsi DATEDIF)
Pada postingan kali ini saya akan membagikan cara menghitung atau mendapatkan umur/usia seseorang berdasarkan tanggal lahir menggunakan Visual Basic .Net. Versi Visual Basic yang saya gunakan dalam tutorial ini adalah Visual Basic 2012.
Sebenarnya selain untuk menghitung umur/usia seseorang, cara ini nanti juga dapat diterapkan dalam menghitung masa kerja berdasarkan tanggal masuk atau TMTnya. Menghitung masa kerja golongan dan sebegainya.
Baik langsung saya praktik untuk menghitung umur/usia menggunakan Visual Basic .Net 2012. Silahkan mengikuti beberapa langkah berikut ini:
Pertama (1) - Jalankan Visual Basic .Net 2012 dan buat Project baru.
Membuat Project Baru dengna Nama MenghitungUmur |
Kedua (2) - Berikutnya tambahkan beberapa komponen kedalam Form1 seperti pada gambar berikut ini:
Komponen Program Untuk Menghitung Umur |
Komponen Yang Ditambahkan:
- Label1
- Label2
- Label3
- TextBox1
- TextBox2
- DateTimePicker1
- Button1
- Button2
- Form1 - ubah Text menjadi Aplikasi Penghitung Umur
- Label1 - ubah Text menjadi Tanggal Sekarang
- Label2 - ubah Text menjadi Tanggal Lahir
- Label3 - ubah Text menjadi Umur/Usia
- TextBox1
- TextBox2
- DateTimePicker1
- Button1 - ubah Text menjadi Hitung Umur
- Button2 - ubah Text menjadi Bersihkan
Form dengan beberapa penyesuaian properties |
Jika ada pertanyaan tentang bagaimana menambahkan komponen dan juga merubah properties, saya sarankan untuk mempelajari postingan-postingan sebelumnya tentang visual basic 2012.
- Kita akan membuat TextBox1 berisi tanggal sekarang ketika form/aplikasi dijalankan.
- Menghitung umur berdasarkan Tanggal Lahir dan Tanggal Sekarang ketika tombol Hitung Umur di klik. Hasil perhitungan umur/usia akan ditampilkan ke TextBox2.
- Membersihkan TextBox2 ketika tombol Bersihkan di klik.
Kode Program Untuk Menampilkan Tanggal Sekarang ke komponen TextBox1 dan membuat TextBox1 menjadi readonly. |
Dengan kode program di atas, hasil program ketika dijalankan menjadi seperti gambar berikut ini.
Kode Program untuk Menghitung Umur |
Dari kode program diatas terlihat fungsi yang saya gunakan untuk menghitung selisih tanggal adalah fungsi DateDiff. Dengan kode program di atas, kita akan menghasilkan informasi Umur/Usia dalam jumlah Tahun dan Bulan seperti terlihat pada gambar berikut ini:
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load TextBox1.Text = Format(Today(), "dd MMMM yyyy") TextBox1.ReadOnly = True End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim jmlTahun As Integer = DateDiff(DateInterval.Year, DateTimePicker1.Value, Now) Dim jmlBulan As Integer = DateDiff(DateInterval.Month, DateTimePicker1.Value, Now) Mod 12 Dim jmlHari As Integer = DateDiff(DateInterval.Day, DateTimePicker1.Value, Now) Mod 30 - 10 TextBox2.Text = jmlTahun & " Tahun, " & jmlBulan & " Bulan" End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox2.Clear() End Sub End Class