web-dev-qa-db-ja.com

日付から日数を引く

今日の日付から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 

ありがとう

11
elmonko

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 
20
Simon Martin