Comparer une date avec DateCreated

Bonjour,

Je voudrais lire un fichier xml particulier et récupérer une information contenue à l'intérieur.

Pour pouvoir choisi le fichier xml voulus, je veut faire un tri sur la date et prendre celui qui à une date en particulier :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

If oFSo.FolderExists(stRep) Then     For Each oF1 In oFSo.GetFolder(stRep).Files   If oF1.Type = "XML Document" then If Left(oF1.Name,3)= "BEX" Then Dat = oF1.DateCreated   If dat > MyMonth Then '#7/28/2013 08:00:00 PM# fichier = oF1.Name MsgBox oF1.Name 'MsgBox oF1.Name End If End IF End If Next xmlDoc.load(fichier)

---

Mymonth contient la date du jour mise sous la forme #JJ/MM/AAAA hh:mm:ss PM#

Je voudrait donc comparer MyMonth avec oF1.DateCreated afin de selectionner un seul fichier xml sur les nombreux contenue dans le dossier.
Le problème est que dans tout les cas, il ne trouve pas le fichier si je compare avec MyMonth. Si je met la valeur date en dur : #7/28/2013 08:00:00 PM#, ça fonctionne.
Y a t'il un moyen pour comparer les deux dates?
Je pense que le problème sont les guillemet contenue par MyMonth : "#7/28/2013 08:00:00 PM#" qui empèche la comparaison.

Merci.

Salut

Citation:

---

Mymonth contient la date du jour mise sous la forme #JJ/MM/AAAA hh:mm:ss PM#
....
Je pense que le problème sont les guillemet contenue par MyMonth : "#7/28/2013 08:00:00 PM#"

---

MyMonth indique un 28éme mois ????

Il semblerait que cela soit plutôt les # qui pose problème car

Code:

---

1 2 3 4 5 6 7 8 9 10 11

MyMonth = "#7/28/2013 08:00:00 PM#" MyMonth = replace(MyMonth,"#","") msgbox cdate(MyMonth)   DateCreatFichier = "7/28/2012 08:00:00 PM"   if DateCreatFichier >= MyMonth then msgbox "DateCreatFichier est plus grand que MyMonth" else msgbox "DateCreatFichier est plus petit que MyMonth" end if

---

Là, la condition est bien vérifiée.

Merci de la réponse.

En effet erreur de ma part MyMonth est en format #MM/JJ/AAAA hh:mm:ss PM#

Mais j'ai déjà essayé sans les # mais ça n'a rien changé. Je ne rentrait jamais dans ce if :

Code:

---

1 2	Dat = oF1.DateCreated If dat > MyMonth Then 'ici le résultat n'est jamais OK

---

alors que avec cette ligne, il rentre dans le if :

Code:

---

1 2	Dat = oF1.DateCreated If dat > #7/28/2013 08:00:00# Then 'ici je rentre dans le if sans les guillement(avec je ne rentre pas)

---

Donc je ne comprend pas trop pourquoi la même valeur ne marche pas dans les deux cas lorsque je les compare avec oF1.DateCreated

salut,
encore un problème de cast :roll:
la propriété DateCreated renvoie une valeur de type Date
pour que l'opérateur de comparaison fonctionne de façon pertinente (et à moins savoir exactement ce que l'on fait),
il faut toujours procéder à un transtypage explicite avant de comparer les variables

Citation:

---

Je pense que le problème sont les guillemet contenue par MyMonth : "#7/28/2013 08:00:00 PM#" qui empèche la comparaison.

---

exact
CDate est effectivement la fonction indispensable mais il faut lui fournir une valeur compatible
par exemple le cast sur une valeur déclarée est valide mais échoue quand il s'agit d'une chaine

Code:

---

MyMonth=CDate(#7/30/2013 08:00:00 PM#)

---

comment est obtenu MyMonth ?
si c'est déjà une variable de type chaine, il faut fournir à la fonction CDate une chaine de cette forme "7/28/2013 08:00:00" mais avec un piège en prime
comme l'indique la doc, CDate reconnait le format selon les paramètres régionaux.
si la date est ambiguë, elle se conformera à ces paramètres :aie:
exemple sur une machine paramétrée en français "7/8/2013" sera interprété comme le 7 août et non comme le 8 juillet... :mrgreen:
il faudra donc non seulement éliminer les caractères superflus mais également inverser les deux premières valeurs

Bonjour, merci de ces infos.
Pour la date j'utilise une fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

Function trouverdate(MyFichier) 'MyFicher = |M|DD-1|YYYY| MyTxt = Split(MyFichier, "|") x = 0: MyFichier = "": MyFLG = False Do Until x = UBound(MyTxt) + 1 MyCase = MyTxt(x) Select Case MyTxt(x) Case "DD", "dd" MyTxt(x) = Day(Now) 'Day(DateAdd("d", - MyDiff, Now)) MyTxt(x) = Digit(MyTxt(x)) MyTxt(x) = MyTxt(x) & "/" Case "D", "d" MyTxt(x) = Day(Now) & "/" 'Day(DateAdd("d", - MyDiff, Now)) Case "MM", "mm" MyTxt(x) = Month(Now) MyTxt(x) = Digit(MyTxt(x)) MyTxt(x) = MyTxt(x) & "/" Case "M", "m" MyTxt(x) = Month(Now) MyTxt(x) = MyTxt(x) & "/" Case "YY", "yy" MyTxt(x) = Year(Now) Case "YYYY", "yyyy" MyTxt(x) = Year(Now) Case "DD-1" MyTxt(x) = Day(Now - 1) MyTxt(x) = Digit(MyTxt(x)) MyTxt(x) = MyTxt(x) & "/" Case "DD-4" MyTxt(x) = Day(Now - 4) MyTxt(x) = MyTxt(x) & "/" Case Else End Select   Select Case MyFichier Case "" MyFichier = MyTxt(x) Case Else MyFichier = MyFichier & MyTxt(x) End Select x = x + 1 Loop trouverdate = MyFichier End Function   Function Digit(MyDigit) Select Case Len(MyDigit) Case 1 Digit = "0" & MyDigit Case 2 Digit = MyDigit End Select End Function

---

Ce qui me permet de me donner la date sous le format voulus. Je rajoute ensuite l'heure dans la chaine.

Avec CDate, j'arrive à faire la comparaison correctement.

Je vais faire quelques tests pour être sur que je récupère la date correctement dans tout les cas de figures.

Dans tout les cas Merci pour l'aide !