Traitements d'une période (date à date) [Résolu]

Signaler
Messages postés
27
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
14 décembre 2007
-
Messages postés
27
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
14 décembre 2007
-
Bonjour,

Désolé pour le titre pas très explicite... mais je ne sais pas trop comment présenter mon soucis.

Alors... Dans mon projet, j'ai une période définie par l'utilisateur identifiée par datedébut et datefin.
Et selon ces 2 dates, je dois afficher à l'écran un tableur (SPREAD) avec en entête les jours ouvrés entre ces 2 dates...

Et je ne sais pas trop par où commencer pour identifier les jours ouvrés.
Si vous avez des pistes, n'hésitez pas !!! ;)

Merci d'avance !!!

2 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
WeekDay pour samedi ou dimanche
pour les jours fériés, referes toi aux sources du site les concernant

For maDate = DateDepart To DateFin
      ...
Next maDate

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
27
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
14 décembre 2007

Hello,

Merci :)

J'ai trouvé des choses sympas sur le net après quelques recherches :)

Je me suis inspiré de ce code pour effectuer mes traitements :
Public Function nombre_jour_ouvre(ByVal date1 As String, ByVal date2 As String) As Double
    Dim nb, nb_ouvre As Integer
    Dim jour, date3 As String
   
    nb = DateDiff("d", date1, date2)
    nb_ouvre = 0
   
    For i = 0 To nb
        date3 = DateAdd("d", i, date1)
        jour = Format(date3, "dddd")
       
        If jour <> "samedi" And jour <> "dimanche" Then
            nb_ouvre = nb_ouvre + 1
        End If
    Next
   
    nombre_jour_ouvre = nb_ouvre
End Function

Voili, voilou...

Merci en tout cas ;)