menggunakan fungsi datedif=IF(DATEDIF(C5,E5,"Y")>0,DATEDIF(C5,E5,"Y") & " Thn ","") & IF(DATEDIF(C5,E5,"Ym")>0,DATEDIF(C5,E5,"Ym") & " Bln ","") & IF(DATEDIF(C5,E5,"md")>0,DATEDIF(C5,E5,"md") & " hari","")
atau menggunakan fungsi buatan sendiri (UDF)
Function Usia(Lahir As Date, Patokan As Date) As String
Dim Tahun(1) As Integer, Bulan(1) As Integer, Tanggal(1) As Integer
Tanggal(0) = Day(Patokan): Tanggal(1) = Day(Lahir)
Bulan(0) = Month(Patokan): Bulan(1) = Month(Lahir)
Tahun(0) = Year(Patokan): Tahun(1) = Year(Lahir)
If Tanggal(0) < Tanggal(1) Then
Tanggal(0) = Tanggal(0) + Day((Patokan - Day(Patokan)))
Bulan(0) = Month(Patokan - Day(Patokan))
End If
If Bulan(0) < Bulan(1) Then
Bulan(0) = Bulan(0) + 12
Tahun(0) = Tahun(0) - 1
End If
Usia = IIf(Tahun(0) - Tahun(1) > 0, Tahun(0) - Tahun(1) & " Thn ",
"") & _
IIf(Bulan(0) - Bulan(1) > 0, Bulan(0) - Bulan(1) & " Bln ",
"") & _
IIf(Tanggal(0) - Tanggal(1), Tanggal(0) - Tanggal(1) & "
Hari", "")
End Function Pada 26/07/2013 21:47, Surya Harutama menulis:
Yth. Para Pakar Excel. Tolong dibantu bagaimana cara menghitung umur ?
Copy of menghitung umur.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
