如何在VB中正确减去两个日期？

Question

程序实际上非常简单，但在输入像09/21/1993这样的日期时无法执行。出生于该日期的人显然不到25岁，但由于2018-1993 = 25，输出为“是”。我该如何预防？

combos

Answer 1

好的，我刚想通了。

    dateOfBirth = CDate(txtBirth.Text)
    b = dateOfBirth.AddYears(25)
    a = CInt(DateDiff(DateInterval.Day, Today, b))
    If a < 0 Then
        txt25.Text = "NO"
    Else
        txt25.Text = "YES"