Excel VBA用户表单现有日期验证

Question

我目前正在处理必须在其中输入日期的文本框（textbox1）。 但是，到目前为止，还可以输入一个不存在的日期，例如40-40-2019。 有没有一种方法可以仅使用现有日期来验证textbox1？ 我目前使用欧洲日期输入法，因此dd-mm-yyyy。 以及以下将日期更改为标准格式的代码：

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 Me.TextBox1 = Format(Me.TextBox1, "DD-MM-YYYY")
End Sub 

我希望输出仅是现有的日期函数

Answer 1

使用Isdate()测试日期：

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Isdate(Me.TextBox1.Text) then
        Me.TextBox1.Text = Format(Me.TextBox1.Text, "DD-MM-YYYY")
    Else
        '...
    End if
End Sub 

https://www.techonthenet.com/excel/formulas/isdate.php