Как правильно вычесть две даты в VB?

Question

Программа на самом деле очень проста, но не запускается, когда я ввожу дату, например 21.09.1993. Человек, который родился в эту дату, очевидно, моложе 25 лет, но результат «ДА» из-за 2018-1993 гг. = 25. Как мне это предотвратить?

dateOfBirth = CDate(txtBirth.Text)
a = (DateDiff(DateInterval.Year, dateOfBirth, Today))
If a < 25 Then
    txt25.Text = "NO"
Else
    txt25.Text = "YES"

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"