我完全懂你碰到的这个坑——DateDiff(DateInterval.Year)的逻辑其实是直接计算两个日期的年份差，完全忽略月份和日期的细节。就像你说的1993年9月21日出生的人，在2018年1月1日时，年份相减是25，但实际还没到生日，年龄其实只有24，这就导致了程序误判。

为什么会出错？ #

DateDiff(DateInterval.Year)的计算逻辑是统计两个日期之间跨越了多少个年份边界，比如从1993-09-21到2018-01-01，它会认为已经跨过了25个年份（1993到2018），但这并不是我们日常说的“实足年龄”。

正确的实足年龄计算方法 #

要准确判断是否满25岁，我们需要先计算年份差，再检查今年的生日是否已经过去。如果还没到生日，就要把初步的年份差减1。代码如下：

' 解析输入的出生日期（指定格式避免区域设置导致的解析错误）
Dim dateOfBirth As Date = DateTime.ParseExact(txtBirth.Text, "MM/dd/yyyy", Globalization.CultureInfo.InvariantCulture)
Dim age As Integer = Today.Year - dateOfBirth.Year

' 校验今年的生日是否已过
If Today < New Date(Today.Year, dateOfBirth.Month, dateOfBirth.Day) Then
    age -= 1 ' 还没到生日，年龄减1
End If

' 判断并输出结果
txt25.Text = If(age >= 25, "YES", "NO")

额外提示：关于日期差值计算 #

如果需要计算两个日期之间的精确天数、小时数等，DateDiff是可靠的，但要选对对应的DateInterval参数：

• 计算天数：DateDiff(DateInterval.Day, dateOfBirth, Today)
• 计算小时数：DateDiff(DateInterval.Hour, dateOfBirth, Today)
  但如果是计算年龄，一定要用上面的“年份差+生日校验”方法，因为DateDiff的Year间隔不考虑月日，会出现你遇到的误判问题。

另外，用DateTime.ParseExact代替CDate可以避免因系统区域设置不同导致的日期解析错误，比如你的输入是MM/dd/yyyy格式，指定格式后不管系统是中文还是英文区域，都能正确解析。

内容的提问来源于stack exchange，提问作者Serhat Yüce