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 Saya 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 2016 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.
Berikut adalah jenis-jenis interval pada fungsi Date/Time :
- d Day (Hari)
- m Month (Bulan)
- yyyy Year (Tahun)
- h Hour (Jam)
- n Minute (Menit)
- s Second (Detik)
- ww Week (Minggu)
- q Quater (4 bulan)
Cara Menghitung Umur dengan VB6 secara Detil :
1. Buka Form VB6 Anda
2. Tanamkan beberapa Label pada Form dan 2 TextBox dan 1 CommandButton
Desainlah Form seperti gambar dibawah :
3. Ketik kode dibawah di jendela kode :
'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
4. Simpan Form Anda dan jalankan program.
Setelah program Anda berhasil di jalankan tanpa error coba hitung usia Anda.
Catatan:
Format pengisian tanggal : bulan/tanggal/tahun
DemikianSource Code Menghitung Usia di VB6 mulai dari Tahun, Bulan dan Hari. Selamat mencoba semoga berhasil.