从文本框 dob 计算年龄

Question

"i have userform containing two textboxes TextBox1 belong to date of birth and textbox2 belong to age.How create code when enter date of birth in TextBox1 then show complete age and month in TextBox2?"

Dim Age
Dim Birthday As Date
Birthday = CDate(TextBox1.Text)
Age = Year(Date) - Year(Birthday)
TextBox2.Value = Age

i expect output eg 25.10 but actual output 25

Answer 1

DateDiff function provides the difference between the two dates in many formats. Using the Date Diff function we can get the number of months between the dates and convert them into the required format like below

Dim Age
Dim Birthday As Date
Dim years As Integer
Dim months As Integer
Birthday = CDate(TextBox1.Text)
Age = DateDiff("m", (Birthday) , (Date) )
years = Application.WorksheetFunction.RoundDown(Age / 12, 0)
months = Age Mod 12