Discussion :

[jeanjean0403]

Bonjour,
J'aimerais savoir si il existe une fonction en VB6 qui renvoi une date + 1 jour mais en jours ouvré. En gros je souhaite passé la date d'aujourd'hui par exemple et cette fonction me retournera la date de demain. Si demain est un jour ferié alors elle retourne le suivant ou si demain tombre un week-end, la fonction retourne la date du lundi suivant.

Merci pour vos avis et bonne année

[ucfoutu]

Bonjour,

Il te faut alors :
1) la définition des jours "chomés" normaux (pour les uns, ce sera les dimanche et pour les autres les samedi et les dimanche et pur d'autres, enfin (selon le pays) d'autres jours encore)
2) une liste des jours "fériés" officiels (également dépendant du pays, voire de la ville - depuis bientôt 2 ans en ce qui concerne une certaine journée - et pouvant varier d'une année à l'autre en fonction de nombreux facteurs, parmi lesquels un nombre maximum de jours)

Questions, fonc :

1) jours de la semaine retenus comme non ouvrables ?
2) dans quoi as-tu mémorisé les autres jours (autres qu'en 1) retenus comme fériés pour une année déterminée ?

[jeanjean0403]

En fait, aujourd'hui j'ai une fonction qui me retourne vrai ou faux pour un jour ferié mais pour les dimanche et samedi ? comment faire ? impossible à lister car non durable.
C'est pour cela que je demandais si il existait une fonction, propriété, procédure... spécial pour calculer ceci.

Merci

[ucfoutu]

Ben alors ...

Si ce n'est que pour éliminer les samedi et Dimanche, utilise donc Weekday !!!

genre, donc :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
   ladate = "04/01/2008"
   prochain_jour_ouvrable = DateValue(ladate) + 1
   While WeekDay(prochain_jour_ouvrable) = 7 Or WeekDay(prochain_jour_ouvrable) = 1
        prochain_jour_ouvrable = prochain_jour_ouvrable + 1
   Wend
   MsgBox "prochain jour ouvrable : " & prochain_jour_ouvrable
End Sub

[jeanjean0403]

Génial !!! c'est exactement ce dont j'avais besoin, merci