Visual Basic 6.0 IF语句仅触发ELSE分支 日期比较不生效问题求助

根因分析 #

你当前的代码将日期转换为mm/dd/yyyy HH:MM:SS格式的字符串后进行比较，而字符串的比较逻辑是逐字符按ASCII值大小比对：

• 示例中theSysDT格式化后为"06/21/2021 15:22:35"，CLParamDL格式化后为"09/21/2017 17:02:00"
• 第二位字符6的ASCII值小于9，因此字符串比较结果直接判定为前者小于后者，完全忽略了年份的差异，导致IF条件不成立。

修复方案 #

方案1（最推荐）：直接比较日期类型 #

VB6原生支持Date类型变量直接进行大小比较，无需转字符串，修改代码如下：

If theSysDT > CLParamDL Then
    MsgBox ("theSysDt is greater than CLParamDL")
Else
    MsgBox ("error error")
End If

如果变量本身不是Date类型，先通过CDate()函数转换为日期类型再比较：

Dim dtSys As Date, dtCL As Date
dtSys = CDate(theSysDT)
dtCL = CDate(CLParamDL)

If dtSys > dtCL Then
    MsgBox ("theSysDt is greater than CLParamDL")
Else
    MsgBox ("error error")
End If

方案2（特殊场景使用）：调整字符串格式化顺序 #

如果确有需要转字符串比较，需将格式化顺序调整为从大时间单位到小时间单位（年→月→日→时→分→秒），格式为yyyy/mm/dd HH:MM:SS，这样字符串逐位比对的结果和日期实际大小一致：

If Format(theSysDT, "yyyy/mm/dd HH:MM:SS") > Format(CLParamDL, "yyyy/mm/dd HH:MM:SS") Then
    MsgBox ("theSysDt is greater than CLParamDL")
Else
    MsgBox ("error error")
End If

内容的提问来源于stack exchange，提问作者Elijah Leis