cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
30 mai 2005 à 18:15
philgriadmin
Messages postés6Date d'inscriptionvendredi 16 juin 2006StatutMembreDernière intervention 9 février 2007
-
29 sept. 2006 à 13:00
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
philgriadmin
Messages postés6Date d'inscriptionvendredi 16 juin 2006StatutMembreDernière intervention 9 février 2007 29 sept. 2006 à 13:00
A propos du commentaire de JACK qui soit dit en passant est bien vu il faut ajouter à son rappel quel les jours ouvrés ne prennent bien évidement pas en compte les jours fériés.
Donc il ne manque plus à Xyo (ou à tous ceux que ce code intéressent) de rajouter une fonction qui renvoie le n° du jour testé pour savoir s'il appartient ou non à la plage de jour ouvrés que l'on désire.
La boucle est bouclée et le titre du post est respecté !
Ciao Tutti
sosodef88
Messages postés78Date d'inscriptionjeudi 17 février 2005StatutMembreDernière intervention26 décembre 2005 31 mai 2005 à 14:36
bien vu jack
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 30 mai 2005 à 18:15
Détails :
Dim A, b, c, d, e, f, g, h, i, k, l, m, n, p As Integer
ne signifie pas que A, b, c ... soient des Integers.
Il faut le préciser pour chaque variable, sinon elle seront de type Variant (pas terrible)
Détails :
Si ta fonction renvoie qqchose, il serait souhaitable de lui préciser le type de données :
Public Function Jour_Ouvrable(PDate As Date) As Boolean
Détails :
Les "Exit function" dans les "Case" ne servent à rien puisque tu ne fais rien derrière le "End Select"
Rappel :
Les jours ouvrables sont du Lundi au Samedi (6 jours)
Les jours ouvrés sont définis du Lundi au Vendredi, ou de Mardi à Samedi (5 jours)
En fait, ta source détermine si jour est férié.
29 sept. 2006 à 13:00
Donc il ne manque plus à Xyo (ou à tous ceux que ce code intéressent) de rajouter une fonction qui renvoie le n° du jour testé pour savoir s'il appartient ou non à la plage de jour ouvrés que l'on désire.
La boucle est bouclée et le titre du post est respecté !
Ciao Tutti
31 mai 2005 à 14:36
30 mai 2005 à 18:15
Dim A, b, c, d, e, f, g, h, i, k, l, m, n, p As Integer
ne signifie pas que A, b, c ... soient des Integers.
Il faut le préciser pour chaque variable, sinon elle seront de type Variant (pas terrible)
Détails :
Si ta fonction renvoie qqchose, il serait souhaitable de lui préciser le type de données :
Public Function Jour_Ouvrable(PDate As Date) As Boolean
Détails :
Les "Exit function" dans les "Case" ne servent à rien puisque tu ne fais rien derrière le "End Select"
Rappel :
Les jours ouvrables sont du Lundi au Samedi (6 jours)
Les jours ouvrés sont définis du Lundi au Vendredi, ou de Mardi à Samedi (5 jours)
En fait, ta source détermine si jour est férié.