Question

我按以下顺序传递变量： FileEndDate StartDateRange EndDateRange

FileEndDate = 10/11/2019
StartDateRange = 01/04/2019
EndDateRange = 30/04/2019

但是，尽管10/11/2019不应在01/04/2019-> 30/04/2019的日期范围内，我的代码仍返回'True'。

If (WScript.Arguments.Item(0) >= WScript.Arguments.Item(1)) And (WScript.Arguments.Item(0) <= WScript.Arguments.Item(2)) Then
   WScript.Stdout.Writeline "True"
Else    
   WScript.Stdout.Writeline "False"
End If

Answer 1

您正在比较字符串"10/11/2019" > "01/04/2019"和"10/11/2019" < "30/04/2019"。

您可能想改用日期，或重写字符串以确保可以进行简单的字符串比较（YYYY / MM / DD）

后者可以通过以下方式完成：

dim FileEndDate : FileEndDate = "10/11/2019"
dim StartDateRange : StartDateRange = "01/04/2019"
dim EndDateRange : EndDateRange = "30/04/2019"

function ReformatDate(sInputDate)
    dim aResult
    aResult = Split(sInputDate, "/")
    ReformatDate = aResult(2) & "/" & aResult(1) & "/" & aResult(0)
end function

FileEndDate = ReformatDate(FileEndDate)
StartDateRange = ReformatDate(StartDateRange)
EndDateRange = ReformatDate(EndDateRange)

If (FileEndDate >= StartDateRange) And (FileEndDate <= EndDateRange) Then
   MsgBox "True"
Else    
   MsgBox "False"
End If

这将输出"False"

请注意，这不会检查字符串的初始格式。您可能需要编写自己的检查功能，以确保它不会崩溃。

Answer 2

您正在比较字符串而不是日期。

让我们尝试一下：将日期字符串转换为日期类型，然后进行比较：

Dim myDateFormat As String = "dd/MM/yyyy"
Dim date0 As Date = Date.ParseExact(WScript.Arguments.Item(0).ToString(), myDateFormat, System.Globalization.CultureInfo.InvariantCulture)
Dim date1 As Date = Date.ParseExact(WScript.Arguments.Item(1).ToString(), myDateFormat, System.Globalization.CultureInfo.InvariantCulture)
Dim date2 As Date = Date.ParseExact(WScript.Arguments.Item(2).ToString(), myDateFormat, System.Globalization.CultureInfo.InvariantCulture)

If (date0 >= date1) And (date0 <= date2) Then
   WScript.Stdout.Writeline "True"
Else    
   WScript.Stdout.Writeline "False"
End If

此外，使用此方法可以避免别有用心的错误：

Option Strict On
Option Explicit On

玩得开心！

日期范围Visual Basic脚本不能按预期工作吗？

2 个答案: