Sebelum itu saya ingin bertanya dulu sama kalian, umur kalian berapa nih ya ? muda atau tua hehehe bercanda. Kalau saya 18 tahun masih muda ya. Sering kali kita mempunya teman yang jengekel mengolok-olok kita, sering dikata tualah sering dikata bocahlah. Karna itu saya ingin membuat program perhitungan umur.
Dalam dunia pemogaman dengan membuat program menghitung umur kita akan mengetahui umur kita atau teman kita sendiri, tidak hanya tahunnya saja, tetapi terdiri bulan dan harinya juga. Lanjut saja untuk memulai programnya :
Baca Juga : Menghitung Luas Segitiga dengan VB.NET 2010
1.Buka Microsoft Visual Studio 2010.
2. Pilih Windows Form Application.
3. Label sebanyak 3.
TextBox sebanyak 1 yaitu : txtumur.
DateTimePicker sebamyak 1 yaitu : dtptanggal.
Warna berada di properties > BackColor.
Setelah selesai maka tampilannya sebagai berikut :
Selanjutnya isi codingan Function didalan form sebagai berikut :
Function HitungUmur(ByVal tanggal As Date) As String
Dim y, m, d As Integer
d = Now.Day - tanggal.Day
m = Now.Month - tanggal.Month
y = Now.Year - tanggal.Year
If Math.Sign(d) = -1 Then
d = 30 - Math.Abs(d)
m -= 1
End If
If Math.Sign(m) = -1 Then
m = 12 - Math.Abs(m)
y -= 1
End If
Return y & " tahun, " & m & " bulan, " & d & " hari"
End Function
Dim y, m, d As Integer
d = Now.Day - tanggal.Day
m = Now.Month - tanggal.Month
y = Now.Year - tanggal.Year
If Math.Sign(d) = -1 Then
d = 30 - Math.Abs(d)
m -= 1
End If
If Math.Sign(m) = -1 Then
m = 12 - Math.Abs(m)
y -= 1
End If
Return y & " tahun, " & m & " bulan, " & d & " hari"
End Function
Baca Juga : Membuat Perhitungan Diskon di VB.NET 2010
Selanjutmya jika sudah isi codingan seperti di atas, Klik DateTimePicker ( dtptanggal ) sebanyak 2x, lalu isi codingannya sebagai berikut :
Dim lahir As Date = dtptanggal.Value
txtumur.Text = HitungUmur(lahir)
End Sub
txtumur.Text = HitungUmur(lahir)
End Sub
Untuk tampilan jelasnya sebagau berikut :
ini hasil buatan yang kita buat :
Sekian dulu Cara Menghitung Umur di VB.NET 2010 semoga bermanfaat. Sekian terimakasih