En soustrayant les jours à partir de la date

Je suis en difficulté dans la veine de travailler sur la façon de supprimer les 5 jours à compter de la date d'aujourd'hui...

J'ai le texte suivant du code simple qui recherche compare le résultat d'un fichier texte de la matrice de recherche et compare ensuite à la date d'aujourd'hui. Si la date dans le fichier texte est vieux de plus aujourd'hui puis il la supprime, sinon ça ne marche pas.

Ce que je veux, mais est-à-dire si la date dans le fichier texte est de 5 jours ou plus, puis de les supprimer.

Ce est utilisé dans la version anglaise de format de date.

    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

Grâce

si vous voulez tester une variable de date à, ne pas les convertir en string. ce Type est le oDte propriété?
Je pense que ce que vous voulez est DateAdd puis ajouter -5 jours msdn.microsoft.com/en-us/library/system.datetime.adddays.aspx
Now.AddDays(-5.0) devrait faire l'affaire.
Wow, merci, je vais regarder à travers maintenant. Pour info l'oDte est dans un format de chaîne de caractères c'est pourquoi il a été converti en chaîne
pour la date de comparaison, vous avez besoin d'utiliser des variables de jour. convertir oDte à une date plutôt qu'à la date actuelle à la chaîne comme dans la réponse de l'Amit

OriginalL'auteur elmonko | 2014-05-06

  1. 18

    Vous pouvez utiliser le AddDays méthode; dans le code qui serait quelque chose comme ceci:

    Dim today = DateTime.Now
Dim answer = today.AddDays(-5)

    msdn.microsoft.com/en-us/library/system.datetime.adddays.aspx

    Qui rendrait votre code

    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

    OriginalL'auteur Simon Martin