'ฟังก์ชั่นคำนวณอายุเป็น ปี เดือน ครับ
'How to Calcuate Aeg ....Year....Month
Function CalculateAge(ByVal YYYYMMYY As String)
Dim AgeYear As Integer
AgeYear = Now.Year - CInt(Mid(YYYYMMYY, 1, 4))
Dim MyMonth As Integer
Dim AgeMonth As Integer
MyMonth = CInt(Mid(YYYYMMYY, 5, 2))
If MyMonth > Now.Month Then
AgeMonth = (12 - CInt(Mid(YYYYMMYY, 5, 2))) + Now.Month
AgeYear = AgeYear - 1
Else
AgeMonth = Now.Month - CInt(Mid(YYYYMMYY, 5, 2))
End If
Return (AgeYear & " Year " & AgeMonth & " Month")
End Function
ไม่มีความคิดเห็น:
แสดงความคิดเห็น