vb.net - 减去日期后的天数

我正在努力寻找如何从今天起删除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