Discussion :

[priest69]

Bonjour,

Je dispose d'une date de début et une date de fin de contrat. Je dois pouvoir déterminer le nombre de jours ouvrables (samedi compris et dimanche NON compris) restant au jour d'aujourd'hui.

Comment intégrer le calcul du samedi de chaque semaine ?

Merci

[random]

en principe

tu fais (monjour-x)\7
ici x est une valeur entre 0 et 6
qui te renvoie le nombre de jours de type x écoulés depuis le 1 janvier
1900

le calcul va donc s'effectuer
avec y=((datefin-x)\7)-((datedébut-x)\7))
et datediff(début;fin)-y

et les jours fériés

[priest69]

Merci pour l'effort ... je ne pense pas avoir tout compris

mais j'ai tout de même appliqué ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
y = ((DateFin - 1) \ 7) - ((DateDebut - 1 \ 7))
TxtReste = DateDiff (DateDebut;DateFin)-y

Je ne vois pas comment determiner le X ? apparement, la synthaxe de la fonction Datediff() n'est pas correcte

Merci

[random]

pour samedi x vaut 0 pour dimanche 1

j'ai juste fait référence à la fonction pour te donner une indication
recherche dans l'aide

[priest69]

Merci en tout cas pour la précision.

Voila ce que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
y = ((DateFin - 0) \ 7) - ((DateDebut - 0 \ 7))
TxtReste = (DateFin - DateDebut) - y
ou bien
TxtReste = DateDiff("d", DateDebut, DateFin) - y

Voila ce que j'ai en réponse ... Soit un exemple :

Date début : 12/01/2005
Date de fin : 12/02/2005

06/12/1989 ou au format numérique : 32840

Y a qq chose qui cloche ?!

[cafeine]

il y a peut etre plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim i as Date
Dim compteur as Integer
 
For i = DateDeb to DateFin
 If WeekDay(i, vbMonday) <> 6 Then
   compteur = compteur + 1
 End If
Next i

[random]

Voila ce que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
y = ((DateFin - 0) \ 7) - ((DateDebut - 0 \ 7))

Voila ce que j'ai en réponse ... Soit un exemple :

Date début : 12/01/2005
Date de fin : 12/02/2005

06/12/1989 ou au format numérique : 32840

Y a qq chose qui cloche ?!

pas qq chose mais quelqu'un moi
pardon pardon-((datedebut-0)\7)
il n'est pas nécessaire de mettre moins 0

[priest69]

Okay, je vois mieux merci aussi Cafeine ... mais avec la soluce de Random .. pourrai je avoir 2 jours au lieu au lieu d'une seule entrée ? Ex. Samedi et Dimanche ?

[cafeine]

si c'est deux jours, il suffit d'adapter mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim i as Date
Dim compteur as Integer
 
For i = DateDeb to DateFin
 If WeekDay(i, vbMonday) < 6 Then
   compteur = compteur + 1
 End If
Next i

[Arkham46]

Sinon y a aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
[datefin] - [datedeb] _
   - (DateDiff("ww", [datedeb], [datefin], vbSunday) - (Weekday([datedeb]) = vbSunday)) _
   - (DateDiff("ww", [datedeb], [datefin], vbSaturday) - (Weekday([datedeb]) = vbSaturday))

pour enlever les WE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
[datefin] - [datedeb] _
   - (DateDiff("ww", [datedeb], [datefin], vbSunday) - (Weekday([datedeb]) = vbSunday))

pour n'enlever que les dimanches