[VB6] Dates

Bonjour.
J'ai un fichier identifié par une date au format jjmmaa
J'aimerai que mon programme supprime automatiquement le ou les fichiers générés 30 jours avant (un mois donc)
Nous sommes le 12 mai donc 1205206. Comment puis je faire pour demander à mon programme de tester si il y a des fichiers se nommant 120406 ?

Il suffit de soustraire 100 :

Code:

---

1 2 3 4

strDate = "120506"   MsgBox CStr(CLng(strDate) - 100)

---

Pour connaitre l'existence d'un fichier, tu peux utiliser la fonction Dir

Edit : Ce code est n'est pas valide pour le passage d'une année à l'autre. Donc ce code n'est pas utilisable pour les mois de janvier.

moi je pensais deja a un datediff ou un truc du genre...

mais la methode de Catbull est radicale ^^

J'ai :

Code:

---

1 2	If Dir$(Chemin & "\" & strdate & "rapport.txt") <> vbNullString Then Kill (Chemin & "\" & strdate & "rapport.txt")

---

j'aimerai que "strdate" contienne la date - 1 mois
donc dans le cas d'aujourdhui j'aimerai que strdate contienne 120406.
EN fait j'aimerai soustraire un mois mais je ne sais pas comment faire

mouarf, dans ce cas, mieux vaut utiliser DateDiff (fonction qui permet de faire la difference entre 2 dates et d'avoir le resultat en en annees, nois, semaines, jours, heures, minutes ou secondes.)

tu chope le nom du dossier
tu le fout en format date
tu compare cette date tampon avec la date du jour
tu supprime ou pas
tu recommence

Lorsque je met ceci

Code:

---

1 2 3

ladate = Format(Now, "ddmmyy") datebis = Format("120406", "ddmmyy") MsgBox DateDiff("m", ladate, datebis)

---

il me donne 5267 comme réponse ... il y a un problème ou c'est moi qui ne sais pas me servir de la fonction datediff ?

dateDiff permet de connaitre l'intervalle de temps entre 2 dates , c'est pas cela que tu ve?

tiens avec une combinaison de DateSerial... fonction te donnant la date actuelle - 1 mois :

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim dMoins1mois As Date Dim d As Date d = Now dMoins1mois = DateSerial(Year(d), Month(d) - 1, Day(d)) MsgBox dMoins1mois End Sub

---

serialdate(year(now()),month(now())-1;day(now()))

En effet cela réalise la soustraction d'un mois :)

mais je n'ai pas la date au format que je veux
et si je fais

Code:

---

dMoins1mois = format(dMoins1mois, "ddmmyy")

---

J'obtiens un résultat farfelu

Hello!
Il faut ensuite que tu refasses l'opération inverse: tu récupères l'année (Year() ), le mois (Month() ) et le jour (Day() ) de "DmoinsUnMois", et tu les concatènes pour reformer ta chaine de caractères représentant ta date.

C'est bon j'ai quelque chose qui fonctionne. En esperant que ça fonctionnera aussi pour le 31 du mois ...

Citation:

---

Envoyé par jerzy59

En effet cela réalise la soustraction d'un mois :)

mais je n'ai pas la date au format que je veux
et si je fais

Code:

---

dMoins1mois = format(dMoins1mois, "ddmmyy")

---

J'obtiens un résultat farfelu

---

et la tu mélange les types de variables ..dMoins1mois .. et de type Date ( voir aide en ligne) et le résultat de Format(... est de type chaine..

Cela fonctionne et j'ai également géré si l'on est dans un mois à 31 jours.
merci à tous pour votre aide