Datediff
odinateurs!
-
odinateurs! -
odinateurs! -
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
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
1 réponse
Bonjour,
textbox vide ou pas une date
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
oui ca marche merci pour ton aide