Source Code Menghitung Usia di VB6 dengan Lengkap (Tahun, Bulan & Hari)

Cara Menghitung Usia secara Detil Mulai dari Tahun, Sisa Bulan dan Sisa Hari di VB6 - Pada pertemuan kali ini kami akan memberikan tip menghitung usia dengan menggunakan rumus di VB6 sehingga menghasilkan usia yang detil misalnya 36 tahun 9 bulan 9 hari.

Setiap manusia pasti mempunyai tanggal lahir, tapi tidak semua manusia merayakan kelahirannya dengan acara-acara tertentu.Untuk menghitung usia tentu menggunakan perhitungan mulai dari yang sederhana sampai menggunakan rumus.

Untuk yang menggunakan rumus bisa di hitung dengan menggunakan komputer dengan program tertentu sehingga menghasilkan jumlah usia secara detil dan lengkap.Berbeda menghitung usia dengan secara sederhana hanya menggunakan pengurangan,misal 02 mei 2019 dikurang 02 juni 1980 maka hasilnya bisa langsung kita tebak yaitu 36 tahun padahal hasilnya bisa kurang dan bisa lebih (tidak detil).

Dalam artikel ini tip dan trik visual basic akan membuat sebuah fungsi atau function yang dapat menghitung usia secara detil dan akurat dengan bantuan sebuah fungsi yang bernama Date. Dengan fungsi ini kitapun bisa menghitung secara detil mungking usia Anda mulai dari jumlah jam, menit dan detik,tapi dalam tip ini tip dan trik visual basic mengabaikan fungsi jam tersebut.Misal hasil usianya 35 tahun 22 bulan 2 hari 1 jam 5 menit 22 detik,ini kita bisa buat programnya. Bagi Anda yang penasaran bagaimana cara membuatnya kita ikuti langkah-langkag berikut dibawah ini.

'fungsicalculateAge

Function calculateAge(dateOfBird As Date, fromData As Date) As String

Dim dateNow As Date

Dim tgl As Date

Dim tgl1 As Date

Dim years As Long

Dim months As Long

Dim days As Long

Dim yearWord As String

Dim monthWord As String

Dim dayWord As String

dateNow = fromData

tgl = dateOfBird

years = DateDiff("yyyy", tgl, dateNow)

If Month(tgl) > Month(dateNow) Then

years = years - 1

ElseIf Month(tgl) = Month(dateNow) And Day(tgl) > Day(dateNow) Then

years = years - 1

ElseIf Month(tgl) = Month(dateNow) And Day(tgl) = Day(dateNow) Then

GoTo finally

End If

tgl = DateAdd("yyyy", years, tgl)

months = DateDiff("m", tgl, dateNow)

If Day(tgl) > Day(dateNow) Then

months = months - 1

ElseIf Month(tgl) = Month(dateNow) And Day(tgl) >= Day(dateNow) Then

months = months - 1

End If

tgl = DateAdd("m", months, tgl)

days = DateDiff("d", tgl, dateNow)

finally:

yearWord = IIf(years = 0, "", years & " Tahun ")

monthWord = IIf(months = 0, "", months & " Bulan ")

dayWord = IIf(days = 0, "", days & " Hari ")

calculateAge = yearWord & monthWord & dayWord

calculateAge = Trim(calculateAge)

End Function

Private Sub Command1_Click()

'fungsi calculateAge

hasil = calculateAge(Text1.Text, Text2.Text)

Label1.Caption = hasil

End Sub