VB.NET年龄计算报未处理ArgumentOutOfRangeException 提示DateTime不可表示

异常触发核心原因 #

• DateTime运算溢出：代码以公元1年1月1日为时间基准offset，叠加两个日期的差值diff做年龄换算。当用户输入的出生日期晚于当前日期时，dateTwo - dateOne得到的TimeSpan为负值，用公元1年1月1日叠加负向时长时，计算结果会早于.NET DateTime类型允许的最小取值（公元1年1月1日0点），直接触发“加减操作产生无法表示的DateTime值”的参数异常。
• 校验逻辑存在硬错误：原代码的判断条件If years < 18 And years < 50逻辑失效——只要年龄小于18必然同时满足两个判断条件，触发提示；但年龄≥18时无论数值多大，都会直接进入分支写入文本框，完全达不到“限制年龄在18-50岁区间”的设计目标。
• 年龄计算精度不足：靠TimeSpan总时长差换算年龄的方式，不会判断计算时是否已经过了当年生日，容易得到比实际年龄大1岁的错误结果。

可稳定运行的修正方案 #

修正逻辑覆盖三个核心调整方向：

• 增加前置输入校验：拦截晚于当前日期的非法生日输入，从根源上杜绝DateTime加减运算的溢出问题。
• 替换年龄计算逻辑：弃用TimeSpan差值换算的方式，按年份差+生日校验的逻辑计算精准实际年龄。
• 修正年龄校验条件：调整判断逻辑为“年龄小于18 或 年龄大于50”时弹出提示，匹配合法年龄区间的校验要求。

修正后的完整可运行代码：

Dim birthDate As Date = dtpbdate.Value
Dim currentDate As Date = Date.Now
Dim age As Integer

' 前置校验：禁止输入未来日期
If birthDate > currentDate Then
    MsgBox("输入的出生日期不能晚于当前日期，请核对后操作！")
    Exit Sub
End If

' 精准计算实际年龄
age = currentDate.Year - birthDate.Year
' 当年尚未过生日时，年龄减1
If (currentDate.Month < birthDate.Month) OrElse 
   (currentDate.Month = birthDate.Month AndAlso currentDate.Day < birthDate.Day) Then
    age -= 1
End If

' 修正后的年龄区间校验
If age < 18 OrElse age > 50 Then
    MsgBox("Age requirement must be 18 - 50 years old!")
Else
    txtage.Text = age.ToString()
End If

补充说明：该修正方案完全规避了原代码中DateTime跨边界运算的风险，同时修正了逻辑漏洞，计算结果符合日常年龄统计的精度要求。

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