Discussion :

[jimbo13300]

SAlut, je voudrais calculer un temps entre deux champs date et heure dont le format est le suivant : dd/mm/aa hh:mm:ss
le calcul dépend de la plage d'ouverture soit 8 heures par jours par exemple. comment calculer par exemple entre le 20/06/07 08:00 et le 21/06/07 10:00 pour que le résultat soit égale à 10 heures et non à 26 heures. Merci à tous ceux qui pourront m'aider.

[MasterSleepy]

Salut,

Se bout de code devrait convenir, en parti du moins ;-)

Code :

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

1
2
3
4
5
6
7
Dim dteDate1 As Date
Dim dteDate2 As Date
 
dteDate1 = "20/06/07 08:00"
dteDate2 = "21/06/07 10:00"
 
Debug.Print DateDiff("h", dteDate1, dteDate2) - (DateDiff("d", dteDate1, dteDate2) * 16)

A+,
MasterSleepy.

[AlainTech]

Perso, je ne vois pas de solution correcte sans les paramètres de début et fin de journée ouvrée.

[jimbo13300]

tout d'abord merci à toi master sleepy. Ce bout de code m'a bien aider. Pour info je dévellope une GMAO pour mon travail.
Voici ce que j'essais de faire: je dois indexer le temps d'arrêt des machines en fonction de leur régime "2/9"; "3/8" "7/7" de façon à calculer ensuite leur potentiel de disponibilitée. j'ai intergré ton bout de code et fais deux trois modifs mais sans succé.

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
Private Sub date_de_fin_Exit(Cancel As Integer)
Dim dteDate1 As Date
Dim dteDate2 As Date
dteDate1 = [date_de_debut]
dteDate2 = [date_de_fin]
If REGIME_MACHINE = "2/9" Then '18 heures de fonctionnement par jour
arrêt_total_machine = DateDiff("h", dteDate1, dteDate2) - (DateDiff("d", dteDate1, dteDate2) * 16)
End If
If REGIME_MACHINE = "3/8" Then '24 heures de fonctionnement par jour
arrêt_total_machine = DateDiff("h", dteDate1, dteDate2) - (DateDiff("d", dteDate1, dteDate2) * 24)
End If
If REGIME_MACHINE = "7/7" Then '24 heures de fonctionnement par jour
arrêt_total_machine = DateDiff("h", dteDate1, dteDate2) - (DateDiff("d", dteDate1, dteDate2) * 24)
End If
End Sub

le multiplicateur *24 ne fonctionne pas.! je vais chercher un peu ce soir. Si vus voyez une soluce, merci d'avance ce serait vraiment cool.

[AlainTech]

Je me répète...

Perso, je ne vois pas de solution correcte sans les paramètres de début et fin de journée ouvrée.

Sans les heures de début et de fin il n'est pas possible de déterminer quand commence et quand finit une journée.

[random]

pour ne pas que AT se fatigue

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
 
Function ecarth(x As Date, y As Date, hdeb As Date, hfin As Date, Optional forme As String) As Variant
Dim deb As Date
Dim fin As Date
Dim tempo As Variant
If x < y Then
deb = x
fin = y
Else
deb = y
fin = x
End If
If deb - Int(deb) < hdeb Then deb = CLng(deb) + hdeb
If deb - Int(deb) > hfin Then deb = CLng(deb) + hdeb + 1
If fin - Int(fin) < hdeb Then fin = CLng(fin) + hfin - 1
If fin - Int(fin) > hfin Then fin = CLng(fin) + hfin
If Int(deb) = Int(fin) Then
tempo = (fin - Int(fin)) - (deb - Int(deb))
ElseIf Int(deb) + 1 = Int(fin) Then
tempo = hfin - (deb - Int(deb)) + fin - (Int(fin) + hdeb)
Else
tempo = hfin - (deb - Int(deb)) + fin - (Int(fin) + hdeb) + ((Int(fin) - Int(deb) - 1) * (hfin - hdeb))
End If
If UCase(forme) = "S" Then
ecarth = (Int(tempo) * 24 + Hour(tempo)) & " heures " & Minute(tempo) & " minutes " & Second(tempo) & " secondes"
Else
ecarth = tempo
End If
End Function

[AlainTech]

pour ne pas que AT se fatigue

Ta bonté te perdra