Calcul entre 2 dates et heures

[philmaure]

bonjour,

Après une recherche vaine sur les post je dépose mon pb.

Je cherche la bonne formule pour calculer le nombre d'heures écoulées entre deux dates et heures.
il me faut décompter les jours non ouvrés (samedi et dimanche)
Sur le fichier joint que j'ai pu réaliser avec ce que j'ai trouvé sur le forum, je me retrouve avec un décompte d'une journée en trop et je ne parviens pas à trouver d'ou provient l'erreur.
Merci pour votre aide
Cdlt
Philippe

 

[Fred0o]

Re : Calcul entre 2 dates et heures

Bonjour,

Voici les 2 corrections à apporter pour que cela fonctionne :

Function diff(debut, fin, feries)
'debut = Range("A1")
'fin = Range("B1")
    Set feries = Range("H1:H2")
    For n = debut To fin
      If Weekday(n) = 1 Or Weekday(n) = 7 Or ferie(n, feries) Then
        jad = jad + 1
      End If
    Next n
    diff = fin - debut - jad
End Function

Il faut en lever le commentaire devant l'attribution de la plage feries et enlever le +1 après diff = fin - debut - jad.

A+

 

[philmaure]

Re : Calcul entre 2 dates et heures

bonjour et merci fred.
Ca marche super.
Bonne soirée
Philippe

 

[philmaure]

Re : Calcul entre 2 dates et heures

Re bonjour,

Reste un petit problème : si le traitement se fait le jour meme le calcul est incorrect.

Merci pour votre aide
Philippe

 

[Fred0o]

Re : Calcul entre 2 dates et heures

En effet philaure,

Le 24/04/2011 est un dimanche et le 23/04/2011 est un samedi. Or, comme tu veux ne pas compter, les samedi ni les dimanche, le calcul est un peu perdu.

Testes avec un jour ouvré et tu verras que ça marche. Maintenant, tu peux aussi tenter d'afficher "" ou un message lorsque le début ou la fin est un jour de we.

A+

 

[philmaure]

Re : Calcul entre 2 dates et heures

re Fred
autant pour moi. J'ai changé les dates initiales pour tester les fériés et suis resté fixé sur une mauvaise date.
Je crois qu'il est tard pour mes neuronnes 🙂
encore un grand merci
Philippe