我正在努力想办法如何从今天的日期中删除 5 天......
我有以下简单的代码,用于搜索比较文本文件数组搜索的结果,然后将它们与今天的日期进行比较。如果文本文件中的日期早于今天,则会删除,否则不会删除。
我想说的是,如果文本文件中的日期是 5 天或更早,则删除。
这用于英文日期格式。
Sub KillSuccess()
Dim enUK As New CultureInfo("en-GB")
Dim killdate As String = DateTime.Now.ToString("d", enUK)
For Me.lo = 0 To UBound(textcis)
If textcis(lo).oDte < killdate Then
File.Delete(textcis(lo).oPath & ".txt")
End If
Next
End Sub
谢谢
可以使用
AddDays
方法;代码如下:
Dim today = DateTime.Now
Dim answer = today.AddDays(-5)
msdn.microsoft.com/en-us/library/system.datetime.adddays.aspx
这将使你的代码
Sub KillSuccess()
Dim killdate = DateTime.Now.AddDays(-5)
For Me.lo = 0 To UBound(textcis)
If textcis(lo).oDte < killdate Then
File.Delete(textcis(lo).oPath & ".txt")
End If
Next
End Sub
我试图在 VB -1 Day 中添加以下内容,但无法使其工作。任何帮助都会很棒。
' 指定文件夹路径 folderPath = "Z:\Business Intelligence\AAA xxx" & currentYear & "" & 格式(现在, "m.mmmm") & "" & 格式(现在, "ddmmyy")