Calcul du temps entre deux heures

Version imprimable

02/09/2014, 10h27
j0joo

Bonjour,

Je rencontre un problème pour le calcul de temps entre deux heures.

Je m'explique :

Je possède dans une colonne une heure de départ et dans une autre colonne une heure d'arrivée. Malheureusement mes heures ne sont pas on bon format.
Par exemple pour 4h du matin j'ai 400, pour 15h j'ai 1500, pour 20h30 j'ai 2030, pour 1h du matin j'ai 2500....

J'aimerai faire une fonction qui permet de calculer le temps en minute entre l'heure de départ et l'heure d'arrivée. Par exemple entre 400 et 500, la fonction me retourne 60 minutes.

Si vous avez une piste...

Merci de votre aide.

J'ai oublié de préciser, l'heure minimum est 4h du matin et maximum 4h du matin du jour suivant.

Ma plage horaire va donc de 400 à 2799.
02/09/2014, 10h42
bboy-eazy

Bonjour,

et pourquoi ne pas changer le format des cellules de facon a ce que les heures et minutes apparaissent. Après le calcul se fait tout seul par une formule

Ou peut être faut il absolument que ce soit dans votre format spécial?

Bonjour,

Adapte :

Code:

1
2
3
4
5
    Dim Deb As Range, Fin As Range
    Set Deb = [A1]
    Set Fin = [B1]
    [C1] = (Fin - Deb) / 2400
    [C1].NumberFormat = "hh:mm"

02/09/2014, 11h06
j0joo
Je ne peux pas changer les formats, il faut que je les garde tel quel.

Merci pour ce code j'ai adapté j'ai bien un résultat en retour mais il n'est pas bon.
Code:

1 2 3 4 5 6 7 Sub test() Dim Deb As Range, Fin As Range Set Deb = Range("A1") Set Fin = Range("B1") Range("C1") = (Fin - Deb) / 2400 Range("C1").NumberFormat = "hh:mm" End Sub
Par exemple si j'ai 550 et 610 il me renvoi 36 minutes or j'en ai 20.
02/09/2014, 11h41
Philippe Tulliez

Bonjour,

Citation:

Par exemple si j'ai 550 et 610 il me renvoi 36 minutes or j'en ai 20.

Désolé mais pour moi le calcul proposé par Daniel est correct.
Tu dis que 100 = 1 heure donc 50 est égal à 30 minutes et 10 qui est 10 fois moins que 100 est égal à 6 minutes soit 10 fois moins que 60 minutes
Donc 6h06 - 5h30 est égal à 36 minutes
02/09/2014, 15h35
j0joo

Bonjour,

Non par exemple 5h30 = 530 et 550 = 5h50, c'est pour sa entre 550 et 610 j'ai 20 minutes et non 36 minutes. En sachant que je n'aurai jamais de plage d'horaire finissant par 60, 70,80 ou 90...
Une fois arrivée à 459, la minute suivante est 500.

Désolé pour le manque de compréhension.
02/09/2014, 18h32
Daniel.C

Et 2799, c'est quoi ? (cf. ton premier message).
02/09/2014, 18h37
Theze

Bonsoir,

Citation:

Par exemple pour 4h du matin j'ai 400, pour 15h j'ai 1500, pour 20h30 j'ai 2030, pour 1h du matin j'ai 2500....

Comment peux tu avoir 400 pour 4h du matin et 2500 pour 1h du matin alors que logiquement tu devrais avoir 100, non ?

Hervé.

Code:

1
2
3
4
5
    Dim Deb As Range, Fin As Range
    Set Deb = [A1]
    Set Fin = [B1]
    [C1] = TimeSerial(Int([B1] / 100), [B1] Mod 100, 0) - TimeSerial(Int([A1] / 100), [A1] Mod 100, 0)
    [C1].NumberFormat = "hh:mm"

03/09/2014, 06h55
Theze
Bonjour,

En A1 l'heure de début, en A2 l'heure de fin et la formule :
Code:

1 2 =ABS((A1-A2)/100)*1/24
et la cellule au format heure.

Hervé.
03/09/2014, 09h15
j0joo

Citation:

Envoyé par Daniel.C

Et 2799, c'est quoi ? (cf. ton premier message).

Je me suis mal exprimé toutes mes excuses, j'aurai du écrire 2759.

Citation:

Comment peux tu avoir 400 pour 4h du matin et 2500 pour 1h du matin alors que logiquement tu devrais avoir 100, non ?

Hervé.

La journée va de 4h du matin à 4h du matin du jour suivant, on commence à 400 jusque 2759 qui correspond à 3h59. Puis on recommence une nouvelle journée.

Merci Daniel C ton code marche parfaitement et merci aux autres personnes d'avoir pris le temps pour mon problème.
Bonne journée.