Discussion :

[piloob]

Bonjour,

Je cherche à calculer le temps de rétablissement d'un incident sous certaines contraintes, qui me posent quelques problèmes.
On doit prendre en compte 4 arguments :
dateIncident : date à laquelle l'incident a été signalé
dateCloture : Date à laquelle l'incident a été clôturé
hOuverture : heure à partir de laquelle on ne peut intervenir
hFermeture : heure à partir de laquelle on peut de nouveau intervenir

(Pour info, hFermeture-hOuverture = 3h)
La date est au format J/M/A h/m/s

Les contraintes sont : Si l'incident est signalé pendant la plage où il n'est pas possible d'intervenir alors on retranche cette plage ie :
La plage de non-intervention est entre 2h et 5h du matin, si l'incident est signalé à 2h01 et résolu à 5h30, la durée de rétablissement est de 30 minutes.
De même si l'incident est signalé à 1h et résolu à 5h30, la durée de rétablissement est de 1h30

Donc le code ci-dessous est censé faire ça, seulement il ne prend pas en compte le jour. C'est à dire que si l'incident est à 23h et qu'il est résolu à 1h -> ne fonctionne pas.
Aussi, si l'incident est signalé à 23h le 5 du mois et est résolu à 23h30 le 6 du mois, il va donner une durée de rétablissement de 30 minutes (bien sûr si je donne une heure de rétablissement avant 23h il ne fonctionne pas non plus )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function dureeIncident(dateIncident, dateCloture, hOuverture, hFermeture)
 
Dim hIncident, hCloture, dureeJour, debugage As Double
 
hIncident = dateIncident - Int(dateIncident)
hCloture = dateCloture - Int(dateCloture)
 
If Day(dateIncident) < Day(dateCloture) Then
dureeIncident = (24 - (hFermeture - hOuverture)) + (hCloture - hIncident)
Else
If hIncident < hOuverture And hCloture > hFermeture Then
dureeIncident = (hCloture - hIncident) - (hFermeture - hOuverture)
 
Else
If hIncident > hOuverture And hIncident < hFermeture And dateCloture > hFermeture Then
dureeIncident = hCloture - hFermeture
 
 
Else: dureeIncident = hCloture - hIncident
End If
End If
End If
End Function

Voilà mon problème, j'aimerai que mon code prenne correctement en compte ces contraintes simples mais je suis un grand débutant en info...
Merci pour votre aide éventuelle.

Bien cordialement.

[piloob]

Pas résolu en fait.

Le fichier en PJ :

[danixdb]

Bonjour piloob, Le Forum,

Bien que cette discussion soit fermée, je te donne le code que j'aurais utilisé dans ce cas de figure.
Le code peut être amélioré.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
42
43
 
Public Sub dureeIncident()
 
  Dim dIncident As Date, hIncident As Date
  Dim intNbJours As Integer, strJours As String
  Dim dCloture As Date, hCloture As Date
  Dim hOuverture As Date, hFermeture As Date, hDay As Date
 
  Cells(2, 1).Select
  Do While Not IsEmpty(ActiveCell.Value)
    dIncident = Cells(ActiveCell.Row, 1).Value
    dCloture = Cells(ActiveCell.Row, 3).Value
    hIncident = Format(dIncident, "hh:mm:ss")
    hCloture = Format(dCloture, "hh:mm:ss")
    hOuverture = Cells(2, 7).Value
    hFermeture = Cells(2, 8).Value
    hDay = Cells(2, 9).Value
 
    intNbJours = dCloture - dIncident
 
    If hIncident < hOuverture Then
      Cells(ActiveCell.Row, 5).Value = Format(hOuverture - hIncident + hCloture - hFermeture, "hh:mm:ss")
    ElseIf hIncident > hOuverture And hIncident < hFermeture Then
      Cells(ActiveCell.Row, 5).Value = Format(hCloture - hFermeture, "hh:mm:ss")
    ElseIf hIncident > hFermeture Then
      If hIncident > hCloture Then
        Cells(ActiveCell.Row, 5).Value = Format(hDay - Abs(hCloture - hIncident), "hh:mm:ss")
        intNbJours = intNbJours - 1
      Else
        Cells(ActiveCell.Row, 5).Value = Format(hCloture - hIncident, "hh:mm:ss")
      End If
    End If
 
    If intNbJours >= 2 Then
      strJours = intNbJours & " jours et "
    ElseIf intNbJours = 1 Then
      strJours = intNbJours & " jour et "
    Else
      strJours = ""
    End If
    Cells(ActiveCell.Row, 5).Value = strJours & Format(Cells(ActiveCell.Row, 5).Value, "hh:mm:ss")
    ActiveCell.Offset(1, 0).Select
  Loop

En pièce jointe, le fichier excel donnant le résultat.

Slts