datediff Fermé

Question

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

f894009 · Answer

Bonjour,

textbox vide ou pas une date

Private Sub CommandButton1_Click()
    If Me.TextBox1.Value = "" Or Not IsDate(TextBox1.Value) Then
        MsgBox ("Please Enter a value Date")
        TextBox1.SetFocus
        Exit Sub
    ElseIf Me.TextBox2.Value = "" Or Not IsDate(TextBox2.Value) Then
        MsgBox ("Please Enter a value Date")
        TextBox2.SetFocus
        Exit Sub
    End If
    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 Sub

Datediff

1 réponse

Discussions similaires