Datediff

Bonjour,



Merci de corriger les erreurs de cette macro que j'ai sur internet
on met dans EX:
Textbox1==>01/01/2000
Textbox2==>01/01/2010
affichage sur textbox3 ==>annee
textbox4==>mois
texbox5==>jour

on calcul cette difference de date
ca bloque quand je met ce code
If Me.TextBox1 or Me. textbox2 = "" Then Exit Sub

si j'introduis rien dans textbox1 et 2 ca bloque
Merci de voir
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub CommandButton1_Click()



If Me.TextBox1.Value = "" Then
MsgBox ("please inter a value")
ElseIf Me.TextBox2.Value = "" Then
MsgBox ("please inter a value")


Me.TextBox3 = Evaluate("datedif(" & "datevalue(""" & cvDate(Me.TextBox1) & """)" & ",datevalue(""" & cvDate(Me.TextBox2) & """),""y"")")
Me.TextBox4 = Evaluate("datedif(" & "datevalue(""" & cvDate(Me.TextBox1) & """)" & ",datevalue(""" & cvDate(Me.TextBox2) & """),""ym"")")
Me.TextBox5 = Evaluate("datedif(" & "datevalue(""" & cvDate(Me.TextBox1) & """)" & ",datevalue(""" & cvDate(Me.TextBox2) & """),""md"")")
End If





End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Function cvDate(d)
p1 = InStr(d, "/")
P2 = InStr(p1 + 1, d, "/")
cvDate = Mid(d, p1 + 1, P2 - p1) & Left(d, p1) & Mid(d, P2 + 1)
End Function