Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

COMPARER 2 DATES

3 réponses
Avatar
ipitos
Je veux comparer du date au format jj/mm/aaaa sur un état pour connaitre la
validité du document et faire changer un fond. j'ai écris ma commande comme
suit :
If .Validite < .Limite Then
.Validite_doc.BackColor = RGB(255, 151, 151) 'Rouge
Else
.Validite_doc.BackColor = RGB(151, 255, 151) 'Vert
End If

Ca ne marche pas !
Par contre la 1ère ligne avec If .validite < #28/12/2005# Then
Ca fonctionne, mais ça ne m'interesse pas, j'ai une date fixe qui est saisie
dans une table...

Merci.
A+

3 réponses

Avatar
RaphK34
Salut,
Essaye:
If .Validite < CDate(.Limite) Then
.Validite_doc.BackColor = RGB(255, 151, 151) 'Rouge
Else
.Validite_doc.BackColor = RGB(151, 255, 151) 'Vert
End If

car je pense qu'il ne reconnait pas limite comme une date.
Tiens nous au courant,

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"ipitos" a écrit dans le message de news:

| Je veux comparer du date au format jj/mm/aaaa sur un état pour connaitre
la
| validité du document et faire changer un fond. j'ai écris ma commande
comme
| suit :
| If .Validite < .Limite Then
| .Validite_doc.BackColor = RGB(255, 151, 151) 'Rouge
| Else
| .Validite_doc.BackColor = RGB(151, 255, 151) 'Vert
| End If
|
| Ca ne marche pas !
| Par contre la 1ère ligne avec If .validite < #28/12/2005# Then
| Ca fonctionne, mais ça ne m'interesse pas, j'ai une date fixe qui est
saisie
| dans une table...
|
| Merci.
| A+
|
Avatar
ipitos
CA MARCHE !!!!
Pourtant mes champs sont bien au format date.

Merci


Salut,
Essaye:
If .Validite < CDate(.Limite) Then
.Validite_doc.BackColor = RGB(255, 151, 151) 'Rouge
Else
.Validite_doc.BackColor = RGB(151, 255, 151) 'Vert
End If

car je pense qu'il ne reconnait pas limite comme une date.
Tiens nous au courant,

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"ipitos" a écrit dans le message de news:

| Je veux comparer du date au format jj/mm/aaaa sur un état pour connaitre
la
| validité du document et faire changer un fond. j'ai écris ma commande
comme
| suit :
| If .Validite < .Limite Then
| .Validite_doc.BackColor = RGB(255, 151, 151) 'Rouge
| Else
| .Validite_doc.BackColor = RGB(151, 255, 151) 'Vert
| End If
|
| Ca ne marche pas !
| Par contre la 1ère ligne avec If .validite < #28/12/2005# Then
| Ca fonctionne, mais ça ne m'interesse pas, j'ai une date fixe qui est
saisie
| dans une table...
|
| Merci.
| A+
|





Avatar
RaphK34
Tant mieux ;)

sinon, possède tu VB?

--
@+ Raph.

--------------------------------------------
Merci de répondre sur le NG
Toutes remarques bienvenues !

Pour un contact direct, utiliser:
en enlevant nospam.
--------------------------------------------



"ipitos" a écrit dans le message de news:

| CA MARCHE !!!!
| Pourtant mes champs sont bien au format date.
|
| Merci
|
|
| > Salut,
| > Essaye:
| > If .Validite < CDate(.Limite) Then
| > .Validite_doc.BackColor = RGB(255, 151, 151) 'Rouge
| > Else
| > .Validite_doc.BackColor = RGB(151, 255, 151) 'Vert
| > End If
| >
| > car je pense qu'il ne reconnait pas limite comme une date.
| > Tiens nous au courant,
| >
| > --
| > @+ Raph.
| >
| > --------------------------------------------
| > Merci de répondre sur le NG
| > Toutes remarques bienvenues !
| >
| > Pour un contact direct, utiliser:
| > en enlevant nospam.
| > --------------------------------------------
| >
| >
| >
| > "ipitos" a écrit dans le message de
news:
| >
| > | Je veux comparer du date au format jj/mm/aaaa sur un état pour
connaitre
| > la
| > | validité du document et faire changer un fond. j'ai écris ma commande
| > comme
| > | suit :
| > | If .Validite < .Limite Then
| > | .Validite_doc.BackColor = RGB(255, 151, 151) 'Rouge
| > | Else
| > | .Validite_doc.BackColor = RGB(151, 255, 151) 'Vert
| > | End If
| > |
| > | Ca ne marche pas !
| > | Par contre la 1ère ligne avec If .validite < #28/12/2005# Then
| > | Ca fonctionne, mais ça ne m'interesse pas, j'ai une date fixe qui est
| > saisie
| > | dans une table...
| > |
| > | Merci.
| > | A+
| > |
| >
| >
| >