Discussion :

[cornet04]

Bonjour,

Dans une requete je souhaite calculer le nombre d'heures entre deux dates.
j'utilise la fonction diffdate.
voici l'expression de mon champ calcule dans ma requete :

Code :

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

Expr2: DiffDate("h";[T_publi_rc]![date_debut_session];[T_publi_rc]![date_fin_session])

les champs [date_debut_session] et [date_fin_session] sont dans la même table.
le résultat obtenu est 0:00 pour tous les enregistrements ?

quelqu'un a t il une idée sur l'erreur commise ?
Par avance merci

[Malick]

Avez-vous essayer ceci :

Code :

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

Expr2: DiffDate("h";[date_debut_session];[date_fin_session])

?

Test :

[cornet04]

Bonjour merci cela fonctionne.

j'ai tout de même un petit problème (encore un) comment faire pour avoir le resultat au format hh:mm ?


encore merci de votre aide

[marot_r]

En fait tu ne peux pas.

Je te propose le code suivant :

Code :

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

1
2
3
4
5
6
7
8
public function CalculerDuree(prmDateDebut as date, prmDateFin as date) as string
   dim result as string
   dim nbSeconde as double:nbSeconde=datediff("s", prmDateDebut, prmDateFin)
   dim nbHeure as double:nbHeure=int(nbSeconde/60)
   result=format(nbHeure, "00") & ":"
   result=result & format(nbSeconde - (60*nbHeure),"00")
   CalculerDuree=result
end function

A+

[marot_r]

J'ai oublié de préciser qu'il faut l'appeler ainsi :

Code :

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

Expr2: CalculerDuree([T_publi_rc]![date_debut_session]; [T_publi_rc]![date_fin_session])

A+

[cornet04]

Merci
cela fonctionne très bien.
j'ai adapté le code pour compter les heures et minutes et non les secondes et minutes.
par ailleurs la journée de travail type étant de 8 heures j'ai divisé par 3.
voici le code avec mes petites corrections

Code :

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

1
2
3
4
5
6
7
8
Public Function CalculerDuree(prmDateDebut As Date, prmDateFin As Date) As String
   Dim result As String
   Dim nbSeconde As Double: nbSeconde = DateDiff("n", prmDateDebut, prmDateFin)
   Dim nbHeure As Double: nbHeure = Int(nbSeconde / 60) / 3
   result = Format(nbHeure, "00") & ":"
   result = result & Format(nbSeconde / 3 - (60 * nbHeure), "00")
   CalculerDuree = result
End Function

[Malick]

Super;

Marot_r Merci pour l'astuce de la fonction

cornet04 : si vous pensez que le problème est réglé, n'oubliez pas de cliquer sur le bouton . Cela pourrait être utile à d'autres qui seraient dans la même situation.

Cordialement,
Malick

[marot_r]

Oopps désolé pour l'erreur d'unité

Code :

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

1
2
3
4
5
6
7
8
Public Function CalculerDuree(prmDateDebut As Date, prmDateFin As Date) As String
   Dim result As String
   Dim nbMinute As Double: nbMinute = DateDiff("n", prmDateDebut, prmDateFin)
   Dim nbHeure As Double: nbHeure = Int(nbMinute / 60 / 3)
   result = Format(nbHeure, "00") & ":"
   result = result & Format((nbMinute / 3) - (60 * nbHeure), "00")
   CalculerDuree = result
End Function

J'ai changé les noms pour une meilleur compréhension du code et j'ai intégré le /3 dans la conversion en entier Int(nbMinute / 60 / 3)A+