un peu de logique

2 réponses

gérard

12/03/2006 à 15:09

Bonjour
peut on me confirmer si c'est bien vrai

Mydate est egale a une date du calendrier

Range("K1").Value = " 04/03/2005"

If Range("K1").Value + 365 < MyDate Then ' travaille depuis plus d'un an
MsgBox "travail depuis plus d'un an"
..............

ElseIf Range("K1").Value + 90 > MyDate Then ' travail depuis moins
de 3 mois
................................

Else ' travail depuis + de 3 mois mais moins d'un an
............................
End If

es ce la bonne solution n'y a til pas mieux que 365 ou 90

merci

2 réponses

Clément Marcotte

12/03/2006 à 15:26

Bonjour,

Regarde du côté de la fonction DatePart(). Il y a sans doute moyen de t'en
sortir.

(Si personne n'ajoute rien et que j'ai un peu de temps cet après-midi, je
regrderai dans mes vieilles affaires, si je n'ai pas quelque chose.)

"gérard" a écrit dans le message de news:
44142b62$0$19715$

Bonjour
peut on me confirmer si c'est bien vrai

Mydate est egale a une date du calendrier

Range("K1").Value = " 04/03/2005"

If Range("K1").Value + 365 < MyDate Then ' travaille depuis plus d'un an
MsgBox "travail depuis plus d'un an"
..............

ElseIf Range("K1").Value + 90 > MyDate Then ' travail depuis moins
de 3 mois
................................

Else ' travail depuis + de 3 mois mais moins d'un an
............................
End If

es ce la bonne solution n'y a til pas mieux que 365 ou 90

merci

Jean-François Aubert

12/03/2006 à 15:47

Salut Gérard,

Plus précis que 360 et 90:

' If Range("K1").Value + 365 < Mydate Then
If DateSerial(Year([K1]) + 1, Month([K1]), Day([K1])) < Mydate Then

' ElseIf Range("K1").Value + 90 > Mydate Then
ElseIf DateSerial(Year([K1]), Month([K1]) + 3, Day([K1])) > Mydate Then

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}

"gérard" a écrit dans le message de news:
44142b62$0$19715$

Bonjour
peut on me confirmer si c'est bien vrai

Mydate est egale a une date du calendrier

Range("K1").Value = " 04/03/2005"

If Range("K1").Value + 365 < MyDate Then ' travaille depuis plus d'un an
MsgBox "travail depuis plus d'un an"
..............

ElseIf Range("K1").Value + 90 > MyDate Then ' travail depuis moins
de 3 mois
................................

Else ' travail depuis + de 3 mois mais moins d'un an
............................
End If

es ce la bonne solution n'y a til pas mieux que 365 ou 90

merci

un peu de logique

2 réponses

Veuillez sélectionner un problème