Nombre de jours ouvrés [Résolu]

masterpopeye 27 Messages postés lundi 8 octobre 2007Date d'inscription 11 décembre 2007 Dernière intervention - 5 déc. 2007 à 10:32 - Dernière réponse : masterpopeye 27 Messages postés lundi 8 octobre 2007Date d'inscription 11 décembre 2007 Dernière intervention
- 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
Molenn 797 Messages postés mardi 7 juin 2005Date d'inscription 23 février 2011 Dernière intervention - 5 déc. 2007 à 10:46
3
Merci
La fonction DateAdd répondra à ton besoin : pour ajouter un jour dateAdd("d",1,Tadate)

Molenn

Merci Molenn 3

codes-sources a aidé 82 internautes ce mois-ci

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

Masterpopeye

Merci masterpopeye 3

codes-sources a aidé 82 internautes ce mois-ci

Commenter la réponse de masterpopeye
Meilleure réponse
masterpopeye 27 Messages postés lundi 8 octobre 2007Date d'inscription 11 décembre 2007 Dernière intervention - 5 déc. 2007 à 15:16
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

Merci masterpopeye 3

codes-sources a aidé 82 internautes 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.