2

我的 VBA 代码中有一个函数，它为文本框设置特定的日期格式。

这是我验证日期格式正确的代码：

Function CheckDate(DateStg As String) As Boolean

If DateStg = "" Then
  ' Accept an empty value in case user has accidentally moved to a new row
  CheckDate = True
  lblMessage.Caption = ""
  Exit Function
End If

If IsDate(DateStg) Then
  CheckDate = True
  lblMessage.Caption = ""
Else
  CheckDate = False
  lblMessage.Caption = "Sorry I am unable to recognise " & DateStg & " as a date."
End If

End Function

除了检查文本框中的日期是否为实际日期外，我还需要验证文本框日期不小于当前日期减去 1 个月，并且。另外，我想验证日期不超过当前日期加上 1 年。

所以：

  • DateStg > 今天 - 1 个月
  • DateStg < 今天 + 1 年

提前感谢您的帮助。

4

2 回答 2

3

您可以使用一些功能：

''Assume date is not good
DateOK=False
If IsDate(DateStg) Then
     If DateStg > dateAdd("m",-1,Date()) _
         And DateStg < dateAdd("m",12,Date()) Then
        ''Date is good
        DateOK=True
     End If
End if

在大多数情况下，文本框可以设置为仅接受日期，您可以设置验证规则来检查范围，因此可能不需要代码。

于 2012-08-15T14:59:26.387 回答
1

如果您只想检查日期，可以使用 DateAdd 函数来获取要比较的日期：

'Subtract a month from today and return it as a string
Format(DateAdd("m", -1, Now), "yyyy-mm-dd")

'Add a year to today and return it as a string
Format(DateAdd("yyyy", 1, Now), "yyyy-mm-dd")
于 2012-08-15T10:35:49.380 回答