Menghitung Usia / Umur Dengan VB .Net

10:02:00 PM
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 :)

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan

2 komentar

Write komentar
December 5, 2015 at 7:47 PM delete

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

Reply
avatar
Tutarni Aliya
AUTHOR
December 6, 2015 at 11:12 AM delete

Hi Legina,
Sama sama semoga bermanfaat dan selamat belajar VB :)

Reply
avatar