从日期中减去天数

Question

我正在努力想办法如何从今天的日期中删除 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 

谢谢

Answer 1

可以使用

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 

Answer 2

我试图在 VB -1 Day 中添加以下内容，但无法使其工作。任何帮助都会很棒。

' 指定文件夹路径 folderPath = "Z:\Business Intelligence\AAA xxx" & currentYear & "" & 格式(现在, "m.mmmm") & "" & 格式(现在, "ddmmyy")