problème comparaison de date VB

voila je récupère la date d expiration de mon compte
avec la fonction suivante

Set usr = GetObject(cheminNT)
cptEtat = usr.AccountExpirationDate
et je voudrais la comparer a la date du jour

avec un if cptetat >= DAte then msgbox "compte actif".........

le problème c est que cptetat
est de la forme "10/09/2005"
et date c est juste 10/10/2005 sans quote

et quelquesoit la date il me répond compte actif comme si il n arrivait pas a comparer a cause des quotes

quelqun aurait il une solution pour faire la comparaison

par avance merci

Si tu essaies de mettre un CDate( ) de ton cptetat, ça donne quoi?
Sans conviction... Mais bon, peut-être...

le probleme c est qu il fait pas vraiment la comparaison de date je pense
Cdate correspond a ceci?

Les dates sont à encadrer avec # et à passer au format US mm/ddd/yyyy

Soit aujourd'hui

#10/18/2005#

Salut,

Une solution aussi pour récupérer la date du jour est d'utiliser la fonction "Now" et "DateDiff" pour voir s'il existe une différence de date

Théo

je pense que cdate pour convertir est la meilleure idée

car c est peut etre considerer comme un string et c est ca qui gene
je vais tester

merci

Citation:

---

le probleme c est qu il fait pas vraiment la comparaison de date je pense
Cdate correspond a ceci?

---

S'il s'agit de récupérer la date 10/10/2005 pour avoir "10/10/2005", cdate ne marche pas.
Tofalu te dit d'encadrer ta date : #10/18/2005# mais je ne vois pas comment tu peux faire. C'est cependant ce que j'ai aussi trouvé dans l'aide.

A+

une petite idée:

Code:

---

cptetat="#" & cptetat & "#"

---

salut :wink:

Dans ton exemple, tu assimiles cptetat à un string... "Ça..." pas marcher chez moi... :wink:

A+

Salut

Moi, ce que j'aimerais savoir c'est si cptetat provient d'un état ou s'il vient directement de la base de données (Table ou Requête).

Je soupçonne l'état de retourner une string alors que la BD retournera un format de date. Ce n'est qu'une supposition. Comme je l'ai déjà dit je ne suis pas vraiment familère avec la communication avec les BD en VB (c'est pour le prochain trimestre).

J'espère en tout cas que mon intervension pourra vous mettre sur une piste valable.

si j'ai bien compris, ton problème est de retirer les guillemets dans cptEtat qui sont à gauche et à droite? pour cela, il existe une fonction simple:

avant ton code, met:

Code:

---

cptEtat=replace(replace(cptetat,left(cptetat,1),"",1,1),right(cptetat,1),"",str(cpetat)-2,1)

---

Normalement, ça marche :)
salut :wink:

Citation:

---

si j'ai bien compris, ton problème est de retirer les guillemets dans cptEtat qui sont à gauche et à droite

---

Non, méphistons, ce serait plutôt de mettre des parenthèses à gauche et à droite de 10/10/2005... :lol:
bref, de convertir 10/10/2005 en string... Mais je crois que zaza a posé la bonne question (?)

A+

bon au final

j ai fait cela pour formater en date puis en version uk comme l indiquait tofalu

cptEtat = usr.AccountExpirationDate
cptdate = CDate(cptEtat)
mydate = CDate(Datedujour)
UK1 = Format(cptdate, "mm/dd/yy")
UK2 = Format(mydate, "mm/dd/yy")

If UK1 >= UK2 Then


merci poru votre aide je le met en solve