Nombre de jours ouvrés [Résolu]

Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Dernière intervention
11 décembre 2007
- - Dernière réponse : masterpopeye
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Dernière intervention
11 décembre 2007
- 5 déc. 2007 à 15:16
Bonjour,
Je voudrais créer une fonction sur vb6 qui calcule le nombre de jour ouvrés entre deux dates ( en gros qui ne compte pas les samedi et les dimanche)
Pour cela j'aimerais savoir comment ajouter un jour à une date, En gros 05/12/2007 + 1 = 06/12/2007
Merci de vos réponses.

Masterpopeye
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
797
Date d'inscription
mardi 7 juin 2005
Dernière intervention
23 février 2011
5
3
Merci
La fonction DateAdd répondra à ton besoin : pour ajouter un jour dateAdd("d",1,Tadate)

Molenn

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Molenn
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Dernière intervention
11 décembre 2007
3
Merci
Merci beaucoup
Je mettrais la fonction finale, un peu plus tard pour ceux que ça pourrait intéresser.
@+

Masterpopeye

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Commenter la réponse de masterpopeye
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Dernière intervention
11 décembre 2007
3
Merci
Comme promis voici la fonction finale.

Public Function nombre_jour_ouvre(ByVal date1 As String) As Double
    Dim nb, nb_ouvre As Integer
    Dim jour, date2 As String
    nb = DateDiff("d", date1, Format$(Now, "dd/mm/yyyy"))
    nb_ouvre = 0
    For i = 0 To nb
        date2 = DateAdd("d", i, date1)
        jour = Format(date2, "dddd")
        If jour <> "samedi" And jour <> "dimanche" Then
            nb_ouvre = nb_ouvre + 1
        End If
    Next
    nombre_jour_ouvre = nb_ouvre
End Function

Masterpopeye

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Commenter la réponse de masterpopeye

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.