应用于 TextBox 值的 DateAdd 函数在 VBA 中显示 1900 年以来的日期

Question

我有代码可以将用户输入与文本框中必须包含的日期进行比较。

Dim tddate As Date
Dim expdate As String
Dim inputdate As String

tddate = Worksheets("Sheet3").Range("pdate").Value
inputdate = TextBox1.Value
expdate = Format(DateAdd("m", 18, tddate), "dd/mm/yyyy")

If inputdate = expdate Then
    Range("A1").Value = TextBox1.Value
Else
    MsgBox "Input the correct date"
    Cancel = True
End If

直到昨天它才起作用。

今天，如果我 Debug.Print expdate 变量，它会显示 30/06/1901。
如果我Debug.Print Now它会显示正确的日期。

我使用的是 Excel 2019。
我在另一台笔记本电脑上使用 Excel 2016 尝试了该工作簿，它显示了相同的内容。

Answer 1

尝试使用真实的日期值，而不是文本：

Dim tddate      As Date
Dim expdate     As Date
Dim inputdate   As Date

tddate = Worksheets("Sheet3").Range("pdate").Value
If IsDate(TextBox1.Value) Then
    inputdate = DateValue(TextBox1.Value)
    expdate = DateAdd("m", 18, tddate)
    If DateDiff("d", inputdate, expdate) = 0 Then
        Range("A1").Value = inputdate
    Else
        Cancel = True
    End If
Else
    Cancel = True
End If

If Cancel Then
    MsgBox "Input the correct date"
End If