Différence entre deux dates

Version imprimable

11/03/2016, 12h12
UARG25

Différence entre deux dates

Bonjour

Sur une feuille de calcul j'ai plusieurs colonnes dont deux avec date et heures je calcule la différence entre ces deux colonnes.
J'applique la règle suivante : ActiveCell.FormulaR1C1 = "=RC[+2]-RC[-1]" qui me donne un nombre d'heures minutes et secondes sous le format suivant : 216:14:34 je veux dans cette règle de calcul exclure les dimanches et certaines heures de la journée .
Merci à tous

Bonjour,

Une solution possible avec cette fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Function DureeEntreDeuxDates(ByVal DateDebut As Date, ByVal DateFin As Date) As Date
 
Dim JourEnCours As Date
Dim HeuresARetrancher As Double
 
         Application.Volatile
 
 
         DureeEntreDeuxDates = 0
         HeuresARetrancher = 0
 
         If DateDebut > DateFin Then Exit Function
 
         For JourEnCours = DateDebut To DateFin
             Select Case Weekday(JourEnCours, 2)
                    Case 1 ' Lundi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 2.3888
                    Case 2 ' Mardi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 2.5666
                    Case 3 ' Mercredi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 2.15555
                    Case 4 ' Jeudi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 2.1111
                    Case 5 ' Vendredi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 2.5555
                    Case 6 ' Samedi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 1.333
                    Case 7 ' Dimanche
 
             End Select
         Next JourEnCours
 
        DureeEntreDeuxDates = DureeEntreDeuxDates - (HeuresARetrancher / 24)
 
End Function

Les heures à retrancher pour chaque journée sont bien entendu à redéfinir.

Le format personnalisé des cellules contenant la fonction est "[h]:mm:ss"

Cordialement.

19/03/2016, 18h13
Invité

Bonjour,
Tu soustrait la date fin a la date de début Ok,

Si tu ajoute à la date de début le nombre d'heures trouvé mais en utilisant la fonction qui va bien pour le jours ouvrables tu dois trouver la même valeur!

Suite

Citation:

Envoyé par Eric KERGRESSE

Bonjour,

Une solution possible avec cette fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Function DureeEntreDeuxDates(ByVal DateDebut As Date, ByVal DateFin As Date) As Date
 
Dim JourEnCours As Date
Dim HeuresARetrancher As Double
 
         Application.Volatile
 
 
         DureeEntreDeuxDates = 0
         HeuresARetrancher = 0
 
         If DateDebut > DateFin Then Exit Function
 
         For JourEnCours = DateDebut To DateFin
             Select Case Weekday(JourEnCours, 2)
                    Case 1 ' Lundi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 2.3888
                    Case 2 ' Mardi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 2.5666
                    Case 3 ' Mercredi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 2.15555
                    Case 4 ' Jeudi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 2.1111
                    Case 5 ' Vendredi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 2.5555
                    Case 6 ' Samedi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 1.333
                    Case 7 ' Dimanche
 
             End Select
         Next JourEnCours
 
        DureeEntreDeuxDates = DureeEntreDeuxDates - (HeuresARetrancher / 24)
 
End Function

Les heures à retrancher pour chaque journée sont bien entendu à redéfinir.

Le format personnalisé des cellules contenant la fonction est "[h]:mm:ss"

Cordialement.

Bonjour

Tout d'abord merci pour cette aide mais une petite spécification et pas des moindre la différence de date se fait sur des dates antérieur à aujourd'hui donc comment dois je spécifier dans ma macro ?
Merci par avance .

21/03/2016, 08h32
Invité

Bonjour,
Si je soustrais la date de début a la date de fin je trouve un certain nombre d'heures!

Si additionne la date de début avec le nombre d'heures mais en utilisant la fonction de jours ouvrés, je retrouve la date de fin plus les dimanches!

Si je prend la date deb + 7 jours ouvrés ca me donne 8 jours.

Maintenant si je compte date deb + 8 jours ouvrés je trouve 9 donc 1 dimanche

En conclusion tu calcul le nombre de jours entre deux date puis tu calcul un autre date de fin en tenant compte des jours ouvrés. Si dt compares les deux date de fin tu as le nombre de dimanche

Bonjour Eric
En fait je fais une extraction Business Object et j'obtiens un fichier EXCEL avec différentes colonnes j'insére une colonne via VBA et je calcule la différence entre deux dates et heures précises (colonne + 2 - colonne _1) ce qui me donne un nombre d'heure seulement je désire supprimer les dimanches et un certain nombres d'heures dans ce résultat (EX: je veux supprimer les dimanches plus tous les jours de 02h15 à 06h15 et pour le samedi en plus de 19h45 à minuit)
Merci pour votre aide
Code:

1 2 3 4 5 6 7 8 9 10 Sub Incident() Dim DerCel As String DerCel = Range("J4").End(xlDown).Address Columns(10).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("J4").Select ActiveCell.FormulaR1C1 = "Difference" Range("J5").Select ActiveCell.FormulaR1C1 = "=RC[+2]-RC[-1]" Selection.NumberFormat = "[hh]:mm:ss " Selection.AutoFill Destination:=Range("J5:" & DerCel)

21/03/2016, 11h27
Invité

1 pièce(s) jointe(s)

Pièce jointe 204506
21/03/2016, 11h56
UARG25

Merci Rdurupt

Mais y a t il cette formule directement sous VBA car je veux qu'elle s'execute quand j'active ma requête ! Sorry mais je patoge un peu !!!
21/03/2016, 12h03
Invité
j'ai pas cherché ,mais elle existe toutes alors tu peux les imbrique dans un seule formule!

de plus il y à a fonction evaluate!
Code:

1 2 Range("C3").FormulaR1C1 = "=NETWORKDAYS.INTL(R[-1]C[-2],R[-1]C[-1])" ]Range("C3").value=]Range("C3").value

Bonjour à tous,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Function DureeEntreDeuxDates(ByVal DateDebut As Date, ByVal DateFin As Date) As Date
 
Dim JourEnCours As Date
Dim HeuresARetrancher As Double
 
         Application.Volatile
 
         If DateDebut > DateFin Then Exit Function
         DureeEntreDeuxDates = 0
         HeuresARetrancher = 0
 
         For JourEnCours = DateDebut To DateFin
             Select Case Weekday(JourEnCours, 2)
                    Case 1 ' Lundi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 4
                    Case 2 ' Mardi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 4
                    Case 3 ' Mercredi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 4
                    Case 4 ' Jeudi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 4
                    Case 5 ' Vendredi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 4
                    Case 6 ' Samedi
                         DureeEntreDeuxDates = DureeEntreDeuxDates + 1
                         HeuresARetrancher = HeuresARetrancher + 4 + 4.25
                    Case 7 ' Dimanche
 
             End Select
         Next JourEnCours
 
        DureeEntreDeuxDates = DureeEntreDeuxDates - (HeuresARetrancher / 24)
 
End Function

Attention la date début est prise à 00:00:00 h et la date fin à 24:00:00

Pièce jointe 204508

Citation:

Pour rdurupt

Avais-tu vu qu'il y avait des heures à retrancher dans chaque journée ? Sans cela, on est bien d'accord que c'est ta formule qu'il fallait prendre.

Cordialement.

21/03/2016, 12h16
Invité

oui je l'avais vue mais le coup de tournevis on l'active quand le raisonnent est assimilé!

deux chose l'une soit nous disposons des heures pour chaque journée, dan ce cas la date fin on sans fiche,

soit nous disposent de la date et l'heure de début et la date et l'heur de fin la ma méthode fonctionne si on oubli pas de prendre la différence des heure soit un jour si + 1 minute + nbHeures!