Cara menghitung Usia seseorang di VBA Excel

Function HitungUsia(tanggalLahir As Date) As String
    Dim hariIni As Date
    Dim tahun As Integer, bulan As Integer, hari As Integer

    hariIni = Date

    If tanggalLahir > hariIni Then
        HitungUsia = "Tanggal lahir tidak valid"
        Exit Function
    End If

    tahun = Year(hariIni) - Year(tanggalLahir)
    bulan = Month(hariIni) - Month(tanggalLahir)
    hari = Day(hariIni) - Day(tanggalLahir)

    If hari < 0 Then
        bulan = bulan - 1
        hari = hari + Day(DateSerial(Year(hariIni), Month(hariIni), 0))
    End If

    If bulan < 0 Then
        tahun = tahun - 1
        bulan = bulan + 12
    End If

    HitungUsia = tahun & " tahun " & bulan & " bulan " & hari & " hari"
End Function