Bonjour, j'aimerai compter les jours d'un datediff compris dans une combobox
j'ai le code ci-dessous mais ca ne fonctionne pas car je compare les dates d'une combobox avec le datediff qui est un chiffre et pas des dates, il faudrait comparer le datediff en date avec la combobox qui est en dates mais je ne vois pas comment?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Dim h6, h7 As DateTime Dim diff2 As String h6 = TextBox6.Text h7 = TextBox7.Text diff2 = DateDiff("d", CStr(DateAdd(DateInterval.Day, 1, h6)), CStr(DateAdd(DateInterval.Day, 4, h7))) For i = 0 To ComboBox4.Items.Count - 1 If ComboBox4.Items(i).ToString = diff2 Then diff2 = diff2 - 1 End If Next
Partager