Gros problèmes de Date

Bonjour,

J'ai de gros problèmes avec la comparaison de dates.

Je cherche a savoir si une date est inférieure à l'autre du type d1 < d2

J'ai essayer des tas de combinaison avec des Format,CData...
Rien ! A chaque le test me répond vrai.

A l'orgine je récupère une date d'aujourd'hui de cette manière :

Code:

---

DateAujourdHui = Application.Text(Now(), "dd/mm/yyyy")

---

Puis je le compare avec des dates dans mes cellules. Ce sont des cellules au format date bien de la forme dd/mm/yyyy

Avez vous des idées ?
merci

Bonjour,

Pour comparer des dates converties en texte il faut les mettre sous la forme "yyyy/mm/dd" ainsi l'ordre alphabétique correspond à l'ordre calendaire

Mais en général il est plus simple de les comparer directement dans leur format date par exemple :

Code:

---

xxxx.value<=now

---

Bonjour,
Pourquoi directement sombrer dans l'excès et crier , au vue du titre du fil, à la fin du monde pour un problème si banal. Je dit banal non pas parce qu'il est simple, j'ai une sainte horreur de la manipulation de date, mais parce qu'il est plus fréquent sur ce forum je dirais même récurent.

Commençons par te donner un peu de lecture afin de tefaciliter la suite de tes travaux concernant la manipulation des dates et qui sait t'amener à améliorer ceux déjà réalisé.
Tout droit venu de la FAQ Access (il faut connaitre le truc) Dates et Heures


Voici un petit extrait

Citation:

---

Pour calculer la différence entre deux dates, il faut utiliser la fonction DateDiff.

Code:

---

1 2	DateDiff(interval, date1, date2)

---

Où interval est une chaine de caractères correspondant à l'intervalle à prendre en compte.

* y Année
* m Mois
* d Jour
* h Heure
* n Minute
* s Seconde
* q Trimestre
* w Semaine

Code:

---

("s", #1/1/1990#, #1/1/1992#)

---

---

Je te propose donc de l'adapter ainsi sans trop prêter attention au différences de format entre nous autre modestes Froggies et nos chère Rosbeefs

Code:

---

1 2 3 4 5 6 7 8 9

Dim DateAujourdHui As Date DateAujourdHui = Date Dim DateAujourdHui As Date DateAujourdHui = Date If DateAujourdHui > Range("A1") Then MsgBox DateDiff("d", Range("A1"), DateAujourdHui) Else MsgBox DateDiff("d", DateAujourdHui, Range("A1")) End If

---

Je te laisse vérifier mais cela fonctionne sans peine sur ma version d'excel paramétrais au format jj/mm/aaaa

Edit : en relisant ta question je me rend compte que je me suis un peu emporté et que

Code:

---

DateAujourdHui > Range("A1")

---

semble suffire. Comme le dit justement nico84 étant donné que tu converties tes dates en chaine de caractère la comparaison risque d'être faussé

En fait j'ai ma date d'aujourd'hui qui est une chaine de caractère et les autres dates avec lesquelles je la compare sont quand à elles des "vraies" dates.

Lorsque je fais

Code:

---

DateAujourdHui < Cells(1,2).value

---

ça ne marche pas.

J'ai donc essayer de convertir DateAujourdHui avec un CDate puis un CDate précédé d'un Format... mais toujours sans résultat... :(

Pourquoi utiliser qui te donne un texte

Code:

---

DateAujourdHui = Application.Text(Now(), "dd/mm/yyyy")

---

alors que

Code:

---

1 2	Dim DateAujourdHui As Date DateAujourdHui = Date

---

Te donne une date

Enfin voila une idée

Code:

---

1 2 3 4 5 6 7 8

Dim DateAujourdHui As Date Dim DateAujourdHuiTexte As string   DateAujourdHuiTexte="21/11/2009"   DateAujourdHui =DateSerial(Year(split(DateAujourdHuiTexte,"/")(2)), Month(split(DateAujourdHuiTexte,"/")(1)),split(DateAujourdHuiTexte,"/")(0)) DateAujourdHui < Cells(1,2).value

---