如何检查输入的日期是否应大于 vb.net 中的系统日期

Question

这是问题所在，我以以下格式传递一个日期：mm/dd/yyyy。 当我将日期作为 02/02/2010 传递给函数时，它总是返回 true，但我设置了条件，如果日期小于系统日期，它应该返回 false，但对于输入的日期小于系统日期，它仍然返回 true。这里函数。

Private Function expiryvalidate(ByVal exp As String) As Boolean
    Dim ee As String
    ee = Format(CDate(exp), "MM/dd/yyyy")
    Dim dd As String = Format(DateTime.Now, "MM/dd/yyyy")
    If ee <> "0" Then

        If ee < dd Or ee = dd Then
            Return False
        Else
            Return True

        End If
    Else
        Return True
    End If
End Function

Answer 1

如果您可以将日期作为Date 类型传递，那么它就是这样：

Private Function expiryvalidate(ByVal myDate As Date) As Boolean
    Return myDate < Today
End Function

http://msdn.microsoft.com/en-us/library/system.datetime.today%28v=vs.110%29.aspx

如果作为参数传递的日期小于当前系统日期，则返回true，否则返回false。

如果您需要将日期作为字符串传递给函数，那么您可以这样调用它：

dim IsExpired as boolean = expiryvalidate(date.parse("mystringdate"))

Answer 2

比较两个字符串假装它们应该被视为日期在任何情况下都不能很好地结束。

您应该将输入字符串转换为日期，然后与DateTime.Now 或DateTime.Today 进行比较。通过这种方式，编译器知道如何正确比较表示日期的值，而不会对日期的实际显示格式产生任何问题

Private Function expiryvalidate(ByVal exp As String) As Boolean
    Dim ee As DateTime
    Dim culture = CultureInfo.CreateSpecificCulture("en-US")
    Dim DateTimeStyles styles = DateTimeStyles.None;
    if DateTime.TryParse(exp, culture, styles, out ee ) Then
        if ee <= DateTime.Now Then
           Return True
        else
           Return False
    Else
        Return False
    End If
End Function

当然，如果您已经有要检查的日期时间，这将毫无用处。
在这种情况下，检查可以内联完成，无需调用函数

if currentDate <= DateTime.Now Then 
   ......