Function CalcAge(StartDate As Date, EndDate As Date) As String
    Dim years As Integer
    Dim months As Integer
    Dim days As Integer
    Dim intH As Integer
    
    
    intH = Int(DateDiff("m", StartDate, EndDate)) + _
              (EndDate < DateSerial(Year(EndDate), Month(EndDate), Day(StartDate)))
    
    
    years = Int(intH / 12)
    months = intH Mod 12
    
    
    days = DateDiff("d", DateAdd("m", intH, StartDate), EndDate)

    
    CalcAge = years & "   " & months & "   " & days & " "
End Function
