'finding the age in years,months,days from date of birth
    Dim dtDOB As Date
    Dim dtAsOf As Date
    Dim dtBDay As Date
    Dim M As Integer
    Dim D As Integer
    Dim age As Integer
    Dim varAsOf As Date
    Dim varDOB As Date
    Dim slrow  As Integer
    Dim rc As Integer
Dim colno As Integer 'here colno is the column no of date of birth
  
    For s1row = 2 To RowCount  'here rowcount to be calculated from the sheet where date of birth is taken
       varDOB = Format(Trim(mastersheet.Cells(s1row, colno).Value), "dd-mmm-yyyy")
    If IsDate(varDOB) Then
        dtDOB = varDOB
        dtAsOf = Date 'calculating today's date
       If dtAsOf >= dtDOB Then
            dtBDay = DateSerial(Year(dtAsOf), Month(dtDOB), Day(dtDOB))
           
            Y = DateDiff("yyyy", dtDOB, dtAsOf)
            M = Month(dtAsOf) - Month(dtDOB) - (12 * (dtBDay > dtAsOf))
    D = Day(dtAsOf) - Day(dtDOB)
    If D < 0 Then
        M = M - 1
        D = Day(DateSerial(Year(dtAsOf), Month(dtAsOf) + 1, 0)) + D + 1
    End If
  
       End If
End If
   outputbook.Worksheets(Sheet1_Name).Cells(s1row, 4) = Y & " years " & M & " months " & D & " days"
   'outputbook is the workbook where age is displayed
        Next