SPAGITU

Sebenarnya Microsoft Excel telah menyediakan banyak fungsi-fungsi formula yang digunakan untuk memudahkan penggunanya seperti fungsi SUM, AVERAGE, MAX, MIN, COUNT dan masih banyak lagi. Tetapi Microsoft Excel memberikan kesempatan kepada kita untuk membuat fungsi sendiri sesuai dengan keinginan. Hal tersebut dapat dilakukan dengan pengetahuan tentang Vba Macro Excel. Kali ini kita akan belajar membuat fungsi yang digunakan untuk menghitung Umur seseorang berdasarkan tanggal lahirnya.

Langkah-langkah

Jalankan aplikasi Microsoft Excel 2007 atau diatasnya. Kemudian tekan kombinasi tombol keyboard Alt + F11 untuk menampilkan Microsoft Visual Basic Editor.

Klik menu Insert-Module, untuk menambahkan modul. Setelah tampil jendela Module1 copy paste rumus berikut ini :

Function Umur(tlahir As Variant, Optional tipe As String) As Integer

Dim tahun As Integer, bulan As Integer, hari As Integer
Dim dt As Date
Dim sAns As String

If Not IsDate(tlahir) Then Exit Function
dt = CDate(tlahir)
If dt > Now Then Exit Function

tahun = Year(dt)
bulan = Month(dt)
hari = Day(dt)
tahun = Year(Date) – tahun
bulan = Month(Date) – bulan
hari = Day(Date) – hari

If Sgn(hari) = -1 Then
hari = 30 – Abs(hari)
bulan = bulan – 1
End If

If Sgn(bulan) = -1 Then
bulan = 12 – Abs(bulan)
tahun = tahun – 1
End If

Select Case tipe
Case “Y”
Umur = tahun
Case “M”
Umur = bulan
Case “D”
Umur = hari
Case Else
Umur = tahun
End Select

End Function

Berikutnya cobalah menghitung umur seperti contoh dibawah ini :

Dari contoh diatas terlihat bahwa fungsi umur mempunyai rumus :

=umur(tanggal_lahir;”tipe”)

Tanggal lahir di isi dengan tanggal lahir, tipe di isi dengan teks Y untuk tahun, M untuk bulan dan D untuk hari.

Download Hitung Umur xlam (Add Ins Microsoft Excel)