从VB.Net将日期验证应用于Excel单元格

Question

我正在将日期验证应用于VB.NET中的excel单元格（范围）。

 Private Sub DateValidExcelRule(ByVal worksheet As SpreadsheetGear.IWorksheet, ByVal DateRange As String)

    Dim dt As Date = CDate("1/1/1900")
    worksheet.Range(DateRange).Validation.Delete()
    worksheet.Range(DateRange).Validation.Add(ValidationType.Date, ValidationAlertStyle.Stop, ValidationOperator.Greater, dt, Nothing)
    worksheet.Range(DateRange).NumberFormat = "mm/dd/yyyy"
    worksheet.Range(DateRange).Validation.IgnoreBlank = True
    worksheet.Range(DateRange).Validation.InputTitle = "Excel Validation"
    worksheet.Range(DateRange).Validation.ErrorTitle = "Error in Date"
    worksheet.Range(DateRange).Validation.InputMessage = "Note: only date values here"
    worksheet.Range(DateRange).Validation.ErrorMessage = "Enter valid Date"
    worksheet.Range(DateRange).Validation.ShowInputMessage = True
    worksheet.Range(DateRange).Validation.ShowError = True

End Sub

问题：

当我输入4位整数7777它正在正确验证并显示消息Enter Valid Date ，但是当我输入5位数字77777它正在接受该值并将其转换为12/10/2112值，并且未显示任何错误消息。

在这里，我要做的就是将单元格值验证为任何日期格式mm/dd/yyyy 。

请让我知道，我走的路正确吗？

Answer 1

Excel将日期存储为序列日期（自1/0/1900以来的天数），因此，如果您花费77777天并将其添加到该日期，则它将获得一个有效日期。 12/10/2112

我不确定如何甚至可以完全完成您想要在excel中以特定格式强制输入的内容。 （不使用日期控件）但这至少是原因。

这是我发现对Excel中日期/时间有用的几个链接。

http://www.cpearson.com/excel/datetime.htm

http://dmcritchie.mvps.org/excel/datetime.htm