Calcul du temps écoulé entre deux heures

Version imprimable

Bonjour tout le monde,

Je butte sur le problème suivant et j'espère trouver un peu d'aide :

Dans un fichier Excel j'ai deux cellules (C1 et C2) au format heure (HH:MM:SS). La première contient l'heure de fin d'une action, et la seconde celle du début d'une autre.

Mon script doit calculer les temps écoulé entre les deux action.

Le calcul du temps écoulé entre les deux action est simple si C1 < C2.

Par contre si l'on change de jour / date entre les deux (dans ce cas C2 > C1) ... je ne sais plus comment faire!

Si vous avez une idée, je suis preneur ... un GRAND Merci d'avance

voici ou en est mon script :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 If HeureSortieTiges < HeureDebutDiag Then TE = HeureDebutDiag - HeureSortieTiges TempEcoule = CDate (TE) HH = Split (TempEcoule, ":") (1) MM = Split (TempEcoule, ":") (2) TempEcoule = HH & " H " & MM End If 'C'est la que je n'y arrive pas! If HeureSortieTiges > HeureDebutDiag Then ????? End If

09/05/2013, 14h08
SfJ5Rpw8

Bonjour,

avant d'aller plus loin d'où viennent ces informations d'heure début et fin ? n'est-ce pas possible d'y rajouter la date ?

Question annexe : Pourquoi poster dans le forum VBScript ?
09/05/2013, 15h30
topor

Bonjour Bbill,

Je vais commencer à l'envers!

Je poste ici car cela fait parti d'un script qui me sert à faire fonctionner un programme. Je prend des données provenant d'un fichier Excel pour les y injecter.

Il est éventuellement possible d'y ajouter la date ... Mais! car il y a un mais! J'aimerais faire sans, pour éviter les erreurs ... qui sont fréquentes ici.

Je vais explorer l'idée en ajoutant de fausses dates (J et J-1), directement dans le script, et qui ne proviendront pas du fichier Excel.

Merci pour l'idée!

Bbil,

Voici ce que j'ai trouvé! Ce n'est sans doute pas ce qu'il y a de mieux, mais cela fonctionne et fait ce dont j'ai besoin.

Encore merci pour ton idée!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
	If HeureSortieTiges < HeureDebutDiag Then 
		TE = HeureDebutDiag - HeureSortieTiges
		TempEcoule = CDate (TE)
		HH = Split (TempEcoule, ":") (1)
		MM = Split (TempEcoule, ":") (2)
		TempsEcoule = HH & " H " & MM
	End If
 
	If HeureSortieTiges > HeureDebutDiag Then
		D1 = "01 janvier 2013"
		HST = CDate (D1) & " " & CDate(HeureSortieTiges)
		D2 = "02 janvier 2013"
		HDD = CDate (d2) & " " & CDate(HeureDebutDiag)
		DureeMin = DateDiff ("n", HST, HDD)
		HH = Int (DureeMin /60)
		if Len (HH) = 1 Then HH = "0" & HH
		MM = DureeMin - (60*HH)
		if Len (MM) = 1 Then MM = "0" & MM
		TempsEcoule = HH & " H " & MM
	End If