ลองค้นด้วยคำว่า อายุ ดูครับ
มีตัวอย่างโค้ดให้ศึกษาด้วย

'ฟังค์ชั่นคำนวณปี-เดือน-วัน แบบของ domesoftware@thaimail.com

Function GetWorkAgeToString(xDate As Variant) As String
Dim CalDate, iMonth, iYear, Counter, i, j As Integer
CalDate = DateDiff("d", Now, xDate)
i = Val(Abs(CalDate))
iYear = i \ 365
j = i - (365 * iYear)
iMonth = j \ 30
GetWorkAgeToString = Trim(Str(iYear) + " ปี " + Str(iMonth) + " เดือน ")
End Function

'ฟังค์ชั่นคำนวณปี-เดือน-วัน แบบของคุณสุภาพ ไชยยา

Function CalAgeYMD2(BDate As Date)
Dim intYear As Integer
Dim intMonth As Integer, intDay As Integer

If BDate < Now() Then
intMonth = DateDiff("m", BDate, Now())
intDay = DateDiff("d", DateAdd("m", intMonth, BDate), Now())
If intDay < 0 Then
intMonth = intMonth - 1
intDay = DateDiff("d", DateAdd("m", intMonth, BDate), Now())
End If
intYear = intMonth \ 12
intMonth = intMonth Mod 12
CalAgeYMD2 = "อายุ " & intYear & " ปี " & intMonth & " เดือน " & intDay & " วัน."
Else
MsgBox "ยังไม่เกิดมั๊ง?"
End If

End Function
ขอแจมด้วย

พอเขียนโค้ดเสร็จจะให้ตั้งชื่อว่าอะไร และต้องใช้ยังไง