Bonsoir le forum
J' ai récupréré sur le net une fonction qui calcule le nbre de jour ouvré entre deux dates.j' ai crée deux champs independants sur un formulaire avec chacun un controle calendrier pour insere la date, et un bouton de commande pour lancer le calcul
Début du code de la fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Private Function Nb_Jours_Ouvrables(Date_Début As Date, Date_Fin As Date) As Single
Le code de mon test
Code : Sélectionner tout - Visualiser dans une fenêtre à part
MsgBox Nb_Jours_Ouvrables(#1/1/2010#, #12/31/2010#)
J' essaye de creer une fonction que je lancerai par le bouton de commande apres avoir rempli les deux champs
Voila la code du test
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim DateDebt As Date
Dim DateFn As Date
Dim Date_Début As Date
Dim Date_Fin As Date
Date_Debut = Me.DateDebt
Date_Fin = Me.DateFn
MsgBox Nb_Jours_Ouvrables(Date_Début, Date_Fin)
End Function
DateDebt et DateFn sont les nom des 2 champs independants
j' ai un résultat de 28860.

Merci d' avance pour toute aide
Aladin