dans intervalle

Bonjour,

Tu peux utiliser dateSerial() voir l'explication en l'écrivant dans
l'éditeur + F1
OU
dim d_mini as date
dim d_maxi as date
dim d_date as date
d_mini = "j1/m1/aaa1"
d_maxi = "j2/m2/aaa2"
d_date = "j3/m3/aaa3"
if d_date < d_mini or d_date > d_maxi then msgbox "alerte!"

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"jer" <nospam@monmail.com> a écrit dans le message de
news:cihkp2$jon$1@news-reader4.wanadoo.fr...

Bonjour

Comment savoir si une date se trouve bien dans l'intervalle entre deux

date

?
Par exemple :
Comment savoir si le 25/09/04 se trouve bien dans l'intervalle de date
12/09/04 et 12/10/04 ?

Merci pour votre aide
Jer

"jer" <nospam@monmail.com> a écrit dans le message de
news:cihkp2$jon$1@news-reader4.wanadoo.fr...

Bonjour

Comment savoir si une date se trouve bien dans l'intervalle entre deux

date

?
Par exemple :
Comment savoir si le 25/09/04 se trouve bien dans l'intervalle de date
12/09/04 et 12/10/04 ?

Hello,
comme ça:
'
' D1 = borne inférieure, d2 = borne supérieure, d3 = date à tester entre d1
et d2
'
Public Function isBetween(d1 As String, d2 As String, d3 As String) As
Boolean

If (CDate(d1) <= CDate(d3)) And (CDate(d2) >= CDate(d3)) Then
isBetween = True
End If
End Function

et l'appel comme ça par exemple:
Private Sub Command1_Click()
Dim d1 As String, d2 As String, d3 As String

d1 = Text1.Text
d2 = Text2.Text
d3 = Text3.Text
If IsDate(d1) And IsDate(d2) And IsDate(d3) Then
If isBetween(d1, d3, d2) Then
MsgBox d2 & " est entre " & d1 & " et " & d3
Else
MsgBox d2 & " n'est pas entre " & d1 & " et " & d3
End If

Else
MsgBox "une des valeurs n'est pas une date valide"
End If

End Sub

--
Jean-marc

Merci à vous deux

jer

"Jean-Marc" <nospamjean_marc_n2@yahoo.fr> a écrit dans le message de
news:414c65d5$0$4153$ba620e4c@news.skynet.be...

"jer" <nospam@monmail.com> a écrit dans le message de
news:cihkp2$jon$1@news-reader4.wanadoo.fr...
> Bonjour
>
> Comment savoir si une date se trouve bien dans l'intervalle entre deux
date
> ?
> Par exemple :
> Comment savoir si le 25/09/04 se trouve bien dans l'intervalle de date
> 12/09/04 et 12/10/04 ?

Hello,
comme ça:
'
' D1 = borne inférieure, d2 = borne supérieure, d3 = date à tester entre

d1

et d2
'
Public Function isBetween(d1 As String, d2 As String, d3 As String) As
Boolean

If (CDate(d1) <= CDate(d3)) And (CDate(d2) >= CDate(d3)) Then
isBetween = True
End If
End Function

et l'appel comme ça par exemple:
Private Sub Command1_Click()
Dim d1 As String, d2 As String, d3 As String

d1 = Text1.Text
d2 = Text2.Text
d3 = Text3.Text
If IsDate(d1) And IsDate(d2) And IsDate(d3) Then
If isBetween(d1, d3, d2) Then
MsgBox d2 & " est entre " & d1 & " et " & d3
Else
MsgBox d2 & " n'est pas entre " & d1 & " et " & d3
End If

Else
MsgBox "une des valeurs n'est pas une date valide"
End If

End Sub

--
Jean-marc