Discussion :

[priest69]

Hello everybodies,

J'ai un petit pb pour calculer la différence entre deux dates + heures.
sur mon système j'ai :
un champ HeureFinTravail et HeureDebTravail
J'ai appliqué la formule suivante pour avoir comme différence un format d'heure :
Malheureusement, je n'ai pu activer que le format Nombre, car le format Heure ne fonctionne pas du tout !

Code :

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

=(([HeureFinTravail]-[HeureDebTravail])*24)

Ca fonctionne correctement, mais a l'affichage j'aimerai retrouver le masque suivant :

Code :

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

26H30 au lieu de 26,50

Existe-t-il un moyen de passer outre ?

merci

[DMboup]

essai

Code :

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

=format((([HeureFinTravail]-[HeureDebTravail])*24);"00,00")

[GAGNON]

Attention,

tu risques d'avoir qq problème si ta différence est >24h
ex: 01:30 affiché pour 1 j ET 01:30 réel

il faut à mon avis tenir compte de ce cas de figure

[priest69]

Effectivement GAGNON a raison ! Si la différence est > 24 H, je ne vois apparaitre que les différences d'heure et non de date

L'erreur provient a coup sûr du format !!! n'existe-t-il pas un format pour ce genre de calcul ?

Car il faudrait qu'il soit en Jour-Heure-Minutes.

De plus avec la formule, il continu à me donner :

Code :

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

1
2
3
4
19/05/2005 09:00:00
20/05/2005 12:30:00
 
Durée : 27,50 (alors qu'il devrait donner  27H30M ou au pire : 1J 3H 30M)

Gracias

Merci !

[Tofalu]

Dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function CalculDiffDate(Date1 As Date, Date2 As Date, AffichageJour As Boolean) As String
Dim intMinute As Long
Dim intnbJour As Integer, intnbHeure As Integer, intnbMinute As Integer
intMinute = DateDiff("n", Date1, Date2)
intnbMinute = intMinute Mod 60
intnbHeure = intMinute \ 60
If Not AffichageJour Then
  CalculDiffDate = intnbHeure & " H " & intnbMinute & " M"
Else
  intnbJour = intnbHeure \ 24
  intnbHeure = intnbHeure Mod 24
  CalculDiffDate = intnbJour & " J " & intnbHeure & " H " & intnbMinute & " M"
End If
End Function

Code :

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

=CalculDiffDate([HeureDebutTravail];[HeureFinTravail];True)

Affiche 1J 3H 30M

Code :

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

=CalculDiffDate([HeureDebutTravail];[HeureFinTravail];False)

Affiche 27H 30M