Accueil > > > CALCUL DU NOMBRE DE JOURS OUVRÉS ENTRE DEUX DATES
CALCUL DU NOMBRE DE JOURS OUVRÉS ENTRE DEUX DATES
Information sur la source
Description
Calcul le nombre de jours ouvrés entre 2 dates c'est à dire sans les Week-end et les jours. ce code marche avec mon code de décompte des jours fériés que j'ai dans la rubrique CODE / CATEGORIES des CODES/DATE/HEURE. En espérent que ça aide A+! les tits loups et bonne année 2005
Source
- '**********************************************
- 'Trouver les Weeks-end . *
- 'cette petite fonction n'est pas de moi *
- 'Et remercie la personne ça m'a permis d'aller plus vite *
- 'Pour ma fonction joursouvres(date1,date2) *
- '**********************************************
-
- Function SD(jour)
- Dim numjour
- numjour=Weekday(jour,vbMonday) 'fixe à 6 et 7 la valeur du samedi & dimanche
- If numjour=6 Or numjour=7 Then SD=true : Exit Function
- End Function
-
- '**********************************************
- 'Trouver le nombre de jours ouvrés. *
- 'Pour exemple:(recopier avant de faire appel à la fonction*
- 'Dim AA, Date1, Date2 *
- 'AA = Year(now) *
- 'Date1 = CDate ("01/05/" &AA ) *
- 'Date2 = CDate ("31/05/" &AA )
- 'Ensuite après avoir recopier la fonction faire ce qui suit *
- 'response .write joursouvres(date1,date2) *
- 'Fait par Jessie *
- '**********************************************
-
- Function joursouvres(date1,date2)
- Dim q, s, f ,m, r
-
-
- r = DateDiff("d",date1,date2)+1
- q = DateDiff("d",date1,date2)
-
-
- For s = 0 to q
-
- ladate = formatdatetime(date1+s,vbMonday)
- If SD(ladate) = true Then
- f = f+1
- m = r-f
- End If
-
- Next
-
- '**********************************************
- 'Pour enlever les jours fériés qui apparaissent ici avec la *
- 'fonction Decptejrsferie(date1,date2) *
- 'il faut utiliser ma source "décompte des jours fériés" que*
- 'j'ai sur ce site dans la rubrique *
- 'CODE / CATEGORIES des CODES/DATE/HEURE. *
- '*********************************************
- joursouvres = m-Decptejrsferie(date1,date2)
- End Function
'**********************************************
'Trouver les Weeks-end . *
'cette petite fonction n'est pas de moi *
'Et remercie la personne ça m'a permis d'aller plus vite *
'Pour ma fonction joursouvres(date1,date2) *
'**********************************************
Function SD(jour)
Dim numjour
numjour=Weekday(jour,vbMonday) 'fixe à 6 et 7 la valeur du samedi & dimanche
If numjour=6 Or numjour=7 Then SD=true : Exit Function
End Function
'**********************************************
'Trouver le nombre de jours ouvrés. *
'Pour exemple:(recopier avant de faire appel à la fonction*
'Dim AA, Date1, Date2 *
'AA = Year(now) *
'Date1 = CDate ("01/05/" &AA ) *
'Date2 = CDate ("31/05/" &AA )
'Ensuite après avoir recopier la fonction faire ce qui suit *
'response .write joursouvres(date1,date2) *
'Fait par Jessie *
'**********************************************
Function joursouvres(date1,date2)
Dim q, s, f ,m, r
r = DateDiff("d",date1,date2)+1
q = DateDiff("d",date1,date2)
For s = 0 to q
ladate = formatdatetime(date1+s,vbMonday)
If SD(ladate) = true Then
f = f+1
m = r-f
End If
Next
'**********************************************
'Pour enlever les jours fériés qui apparaissent ici avec la *
'fonction Decptejrsferie(date1,date2) *
'il faut utiliser ma source "décompte des jours fériés" que*
'j'ai sur ce site dans la rubrique *
'CODE / CATEGORIES des CODES/DATE/HEURE. *
'*********************************************
joursouvres = m-Decptejrsferie(date1,date2)
End Function
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
mise à jour champ date sur access par update (SQL) [ par caussieu ]
Bonjour,Voici le code utilisé pour mettre à jour la base de données Access sous ASP / SQL : sql = "Update animations Set animation='"&animation&"', li
boite alerte [ par rony ]
le message d'alerte suivant ne fonctionne pas pourquoi ?merci1/ tout d'abord je récupére ma variable "dates" de monformulaire.comme ceci<% dates
Exercices Excel [ par gwen ]
Bonjour, Dans le cadre de ma formation, je dois effectuer quelques exercices sur excel. Afin de savoir si je suis sur la bonne piste, je voudrais vous
recupération de la date du jour [ par suzy26 ]
J'ai crée des formulaires d'enregistrement, de modification et de suppression. Dans la cas d'un enregistrement, j'ai dans ma base de données un champs
Jour de la date [ par Bruto ]
Comment puis-je récupérer le jour d'une date de sorte que j'entre le 22/12/2003 et que je récupère Lundi ?Merci Bruto
pB date!!! [ par elky ]
Dans un report ASP j'affiche la différence entre les données du jour moins celles dela veille.Pour ce faire je sélectionne dans une liste la date de s
Date bizarre [ par nickadele ]
j'explique mon prob.j'ai une application asp sur une db access via un dsn ODBC, je navigue dans mes pages, je fait des ajouts d'enregistrements à ma b
date et heure du jour dans un textbox d'une formview en asp.net [ par caudette ]
bonjour,j'aimerai dans une formview avec plusieurs texbox affecté une date te heure du jour, à un autre texbox affecté le nom de l'utilisateur affecté
recuperer date de mise a jour [ par akimodo ]
AkimodoNewbieMaisPasPourLongtemps'lut,je voudrais indiquer la date de mise à jour des pages, la grosse partie des pages se trouve dans une base access
Detailsview et Calendar [ par herve_labenere ]
Bonjour,Je cherche à mettre à jour le champs date_prev_notif de ma table à partir de la date sélectionnée dans mon objet Calendar. - En faisant un Eva
|
Derniers Blogs
IMAGINE CUP 2012, MAKE A SIGN EN FINALEIMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg
Voilà qui est fait, la nouvelle est officielle ! L'équipe belge "Make a Sign" va au pays des kangourous défendre son projet dans la catégorie Software Design. http://www.imaginecup.com/CompetitionsContent/Competition/WorldwideFinalists.aspx V...
Cliquez pour lire la suite de l'article par junarnoalg KINECT 1.5 IS OUT !KINECT 1.5 IS OUT ! par Vko
La version 1.5 du Kinect For Microsoft vient tout juste de sortir ! Plein de nouveautés: Tracking de squelette en Near Mode Détection en position assise Détection faciale avec un SDK dédié Documentation et des guideline (enfin) Un out...
Cliquez pour lire la suite de l'article par Vko LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc
Mise à jour des Web API du 14 Mai
Réservez dès maintenant votre journée du 20 juin pour le Windows Azure Dev Camp 2012 à Paris
Mise à jour de Team Foundation Service
MechCommander 2 sur Windows 8
Entity Framework 5 Release Candidate e...
Cliquez pour lire la suite de l'article par richardc REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITERREACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc
Une mauvaise utilisation de rx lors de l'écriture d'une couche d'accès à des services peut conduire à des cas embarassants avec des erreurs mal gérées, des appels qui ne partent lorsqu'ils le devraient, et même des résultats incorrects . le tout nuis...
Cliquez pour lire la suite de l'article par Groc SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVESSHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg
Dernièrement, nous avons migré le site
myTIC
vers un nouveau serveur SharePoint 2010. Dans les contenus que nous vouloins récupérer, nous avions un certain nombre de blogs.
Nous avons utilisé les commandes Power...
Cliquez pour lire la suite de l'article par junarnoalg
Forum
GRIDVIEW CHECKBOXGRIDVIEW CHECKBOX par invent001
Cliquez pour lire la suite par invent001 OUTIL MYSQLOUTIL MYSQL par nobla
Cliquez pour lire la suite par nobla
Logiciels
sDEVIS-FACTURES vlPRO (8.1.0.3)SDEVIS-FACTURES VLPRO (8.1.0.3)sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa... Cliquez pour télécharger sDEVIS-FACTURES vlPRO 974 Application Server (12.2.4.6)974 APPLICATION SERVER (12.2.4.6)Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc... Cliquez pour télécharger 974 Application Server vPicture (1.4.2.1)VPICTURE (1.4.2.1)Avec vPicture, hébergez vos images facilement et rapidement.
vPicture est un utilitaire simple, ... Cliquez pour télécharger vPicture Easy-Planning (2.2.1.6)EASY-PLANNING (2.2.1.6)Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au... Cliquez pour télécharger Easy-Planning COM-BACKUP (2.0)COM-BACKUP (2.0)
COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...
Cliquez pour télécharger COM-BACKUP
|