Question

我试图将文件的修改日期与特定日期进行比较。

我拥有的是：

If FormatDateTime(objFile.DateLastModified,vbShortDate) = specificDate Then
       'Do something
End if

我尝试过使用IsDate和值为＃11/9/2015＃的变量但总是返回false。我无法弄清楚如何设置变量＆＃34; specificDate＆＃34;到2015年11月9日。

Answer 1

如果您只比较日期（但不是时间），那么您必须切断最后修改值的小数部分，因为整数部分代表天数，而小数部分代表小时，分钟和秒。任何更改后，将值转换回日期类型CDate()，以及比较前包含字符串的日期。

Sub Test()
    dtSpecificDate = CDate("11/9/2015")
    With CreateObject("Scripting.FileSystemObject").GetFile("C:\Test\tmp.txt")
        dtLastModified = CDate(Int(.DateLastModified))
    End With
    If dtLastModified = dtSpecificDate Then
        ' Do something
    End If
End Sub

比较修改日期与特定日期（VBS）

1 个答案: