Discussion :

[nicolav]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nico84]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

xxxx.value<=now

[Krovax]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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électionner tout - Visualiser dans une fenêtre à part

("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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[nicolav]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Krovax]

Pourquoi utiliser qui te donne un texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

alors que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim DateAujourdHui As Date
DateAujourdHui = Date

Te donne une date

Enfin voila une idée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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