VBA用户窗体：输入出生日期后自动计算显示含月份的完整年龄

你的问题出在代码只计算了年份差，没有包含月份部分，所以只能得到整数年龄。要实现25.10这种“年份.月份”的格式，我们需要同时计算年份和剩余的月份数，并且确保月份是两位数的格式。

完整解决方案代码 #

Private Sub TextBox1_Change()
    Dim Birthday As Date
    Dim ageYears As Integer
    Dim ageMonths As Integer
    Dim fullAge As String
    
    ' 先处理输入有效性，避免非日期格式报错
    If IsDate(TextBox1.Text) Then
        Birthday = CDate(TextBox1.Text)
        
        ' 计算基础年份差
        ageYears = Year(Date) - Year(Birthday)
        
        ' 检查今年是否已经过了生日，如果没到，年份减1，月份重新计算
        If Date < DateSerial(Year(Date), Month(Birthday), Day(Birthday)) Then
            ageYears = ageYears - 1
            ageMonths = (12 - Month(Birthday)) + Month(Date)
        Else
            ageMonths = Month(Date) - Month(Birthday)
        End If
        
        ' 组合成"年份.月份"格式，月份不足两位补0
        fullAge = ageYears & "." & Format(ageMonths, "00")
        TextBox2.Value = fullAge
    Else
        ' 输入无效日期时清空TextBox2
        TextBox2.Value = ""
    End If
End Sub

代码说明 #

• 输入验证：用IsDate检查输入是否为有效日期，避免转换出错。
• 年份计算：先获取年份差，再根据当前日期是否过了生日调整年份（比如生日是12月，现在是10月，年份要减1）。
• 月份计算：根据是否过生日，分别计算剩余的月份数。
• 格式处理：用Format(ageMonths, "00")确保月份是两位数，比如3个月会显示为03，最终得到25.03这样的格式。

测试示例 #

• 如果生日是1998-05-15，当前日期是2023-07-20：年份差25，过了生日，月份差2 → 显示25.02
• 如果生日是1998-12-15，当前日期是2023-10-20：年份差25，但没到生日，年份减1得24，月份是(12-12)+10=10 → 显示24.10

内容的提问来源于stack exchange，提问作者Yogesh