Programme vb avec objet date

re,
oui moi aussi j'ai pensé à ça mais comment roconnaitre les et dimanches des autres jours c'était ça mon blem
mais dans ton exemple la date saisie c'est 2001/1/1 alors du coup c'est facile de reconnaitre les samedi et dimanche avec 7 et 6 en ajoutant toujours 7
je veux dire quand on donne comme debut 2009/2/12 et fin 2009/3/25 ça marche comme m alors vb6 comprends automatiquement ?
j'attand ta réponse

re,
j'ai essayée avec deb=12/2/2009 et fin=25/3/2008 mais il m'affiche 0
voici mon prog
Private Sub Command1_Click()
Dim dat1 As Date
Dim date2 As Date
Dim i As Date
Dim c As Long
date1 = Text1.Text
Date = Text2.Text
If date1 < date2 Then
MsgBox "la date de début est supérieur à la date de fin"
Else
c = 0
For i = date1 To date2
If (Weekday(i) <> 7) And (Weekday(i) <> 6) Then
c = c + 1
End If
Next
Text3.Text = c
End If
End Sub



peut être que j'ai mal saisie les dates
jattend ta réponse

re,
j'ai esssayer ça marche pas aussi
voici prog modifié
Option Explicit
Private Sub Command1_Click()
Dim dat1 As Date
Dim date2 As Date
Dim i As Date
Dim c As Long
date1 = Text1.Text
Date = Text2.Text
If date1 < date2 Then
MsgBox "la date de début est supérieur à la date de fin"
Else
c = 0
For i = date1 To date2
If (Weekday(i) <> 7) And (Weekday(i) <> 6) Then
c = c + 1
End If
Next
Text3.Text = c
End If
End Sub

re,
voila j'ai fait qq modification ça devrait marcher comme ça sans doute mais ça m'affiche toujours 0 comme résultat

Private Sub Command1_Click()
Dim date1 As Date
Dim date2 As Date
Dim i As Date
Dim c As Long
date1 = CDate(Text1.Text)
date2 = CDate(Text2.Text)
If date1 < date2 Then
MsgBox "la date de début est supérieur à la date de fin"
Else
c = 0
For i = date1 To date2
If (Weekday(i) <> 7) And (Weekday(i) <> 6) Then
c = c + 1
End If
Next
Text3.Text = c
End If
End Sub

re,
j'ai fais l'affichage ça marche
et en plus j'ai fais quelques modif et voici le nouveau pgm

Private Sub Command1_Click()
Dim date1 As Date
Dim date2 As Date
Dim i As Long
Dim c As Long
date1 = CDate(Text1.Text)
date2 = CDate(Text2.Text)
MsgBox date1
MsgBox date2
If date1 > date2 Then
MsgBox "la date de début est supérieur à la date de fin"
Else
c = 0
For i = 0 To date1 - date2
If (Weekday(date2 + i) <> 7) And (Weekday(date2 + i) <> 6) Then
c = c + 1
End If
Next
Text3.Text = c
End If
End Sub
mais ça m'affiche toujours 0 comme résultat
je commence à devenir fou de ce truc

re,
voici le nouveau pgm
il marche
Private Sub Command1_Click()
Dim date1 As Date
Dim date2 As Date
Dim i As Long
Dim c As Long
Dim x As Long
date1 = CDate(Text1.Text)
date2 = CDate(Text2.Text)
If date1 > date2 Then
MsgBox "la date de début est supérieur à la date de fin"
Else
c = 0
x = DateDiff("D", date1, date2)
For i = 0 To x
If (Weekday(i) <> 7) and (weekday(i)<>6) Then
c = c + 1
End If
Next
Text3.Text = c
End If
End Sub
il me reste juste à ajouter de soustraire les jours ferriers

re,
oui c vrai c pas à 100% correcte quand je test sur une période vaste c correcte mais quand je fais avec des dates proches il y a pas toujours mais parfois un jour qui manque
je comprends plus rien moi