Voila avec un calendrier renseigné date ;jour ;jr sem;année je voudrais
pouvoir par vba ou autreafficher sur form une recap des jours de semaine en
+ ou -sur mois par raport a An-1.Genre 1dimanche en plus 1samedi en moins.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jessy Sempere [MVP]
Bonjour
Voici une fonction qui te permettra de connaître le nombre d'un jour pour un mois d'une année précise. Pour connaître par exemple le nombre de vendredi pour le mois d'octobre 2005, il ta faudra l'appeler comme ça :
fNbDayInMonth, 10, 2005, vbFriday
Voici le code de la fonction à mettre dans un module standard de la base : ***************************************** Function fNbDayInMonth(intMonth As Integer, _ intYear As Integer, intDay As VbDayOfWeek)
Dim dtDeb As Date Dim dtFin As Date Dim dtAnalyse As Date
For dtAnalyse = dtDeb To dtFin If Weekday(dtAnalyse) = intDay Then _ fNbDayInMonth = fNbDayInMonth + 1 Next
End Function ***************************************** -- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "P.Manuel" a écrit dans le message de news:43553855$0$1450$
Voila avec un calendrier renseigné date ;jour ;jr sem;année je voudrais pouvoir par vba ou autreafficher sur form une recap des jours de semaine en
+ ou -sur mois par raport a An-1.Genre 1dimanche en plus 1samedi en moins.
Bonjour
Voici une fonction qui te permettra de connaître le nombre d'un
jour pour un mois d'une année précise.
Pour connaître par exemple le nombre de vendredi pour le mois
d'octobre 2005, il ta faudra l'appeler comme ça :
fNbDayInMonth, 10, 2005, vbFriday
Voici le code de la fonction à mettre dans un module standard
de la base :
*****************************************
Function fNbDayInMonth(intMonth As Integer, _
intYear As Integer, intDay As VbDayOfWeek)
Dim dtDeb As Date
Dim dtFin As Date
Dim dtAnalyse As Date
For dtAnalyse = dtDeb To dtFin
If Weekday(dtAnalyse) = intDay Then _
fNbDayInMonth = fNbDayInMonth + 1
Next
End Function
*****************************************
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"P.Manuel" <pjosem@noos.fr> a écrit dans le message de
news:43553855$0$1450$79c14f64@nan-newsreader-05.noos.net...
Voila avec un calendrier renseigné date ;jour ;jr sem;année je voudrais
pouvoir par vba ou autreafficher sur form une recap des jours de semaine
en
+ ou -sur mois par raport a An-1.Genre 1dimanche en plus 1samedi en moins.
Voici une fonction qui te permettra de connaître le nombre d'un jour pour un mois d'une année précise. Pour connaître par exemple le nombre de vendredi pour le mois d'octobre 2005, il ta faudra l'appeler comme ça :
fNbDayInMonth, 10, 2005, vbFriday
Voici le code de la fonction à mettre dans un module standard de la base : ***************************************** Function fNbDayInMonth(intMonth As Integer, _ intYear As Integer, intDay As VbDayOfWeek)
Dim dtDeb As Date Dim dtFin As Date Dim dtAnalyse As Date
For dtAnalyse = dtDeb To dtFin If Weekday(dtAnalyse) = intDay Then _ fNbDayInMonth = fNbDayInMonth + 1 Next
End Function ***************************************** -- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "P.Manuel" a écrit dans le message de news:43553855$0$1450$
Voila avec un calendrier renseigné date ;jour ;jr sem;année je voudrais pouvoir par vba ou autreafficher sur form une recap des jours de semaine en
+ ou -sur mois par raport a An-1.Genre 1dimanche en plus 1samedi en moins.
