Discussion :

[sinifroth]

Bonjour à toutes et à tous,

Je sèche sur une formule dans le générateur de requêtes Access.

Je suis en présence de deux dates/heure, par exemple :
02/02/2010 10:20:00
03/02/2010 12:40:00

Je souhaite calculer la différence entre ces deux dates en heures/minutes, à savoir : 26:20:00.

Le problème est que Access me renvoie comme résultat de la différence : 31/12/1899 02:20:00

En fait, pour tout résultat supérieur à 24h, il m'extrait le nombre de jours qu'il écrit en format d'une date complète farfelue, et il garde le reste sous le bon format hh:nn:ss.

J'ai essayé plusieurs choses: la simple soustraction, la fonction diffdate, l'ajout d'un format "hh:nn:ss", etc. Mais rien ne solutionne mon problème.

Une précision : mon temps calculé doit rester dans un format date (et non une chaine de caractères) afin de pouvoir calculer des statistiques (min, max, moyenne,...) et dessiner des graphes.

Voila, si quelqu'un pouvait éclairer ma lanterne, je vous en serais extrêmement reconnaissant.

Merci.

[nico84]

Bonjour,

J'ai développé cette petite fonction qui doit répondre à ton besoin :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'convertit des jours en heures:mn:sec
Public Function HMS(d) As String
Dim x As Double
HMS = ""
x = d * 24 'conversion en heures
If x >= 1 Then HMS = Int(x) & "h "
x = (x - Int(x)) * 60 'solde en minutes
If x >= 1 Then HMS = HMS & Int(x) & "' "
x = (x - Int(x)) * 60 'solde en sec
If x >= 1 Then HMS = HMS & Int(x) & "''"
HMS = Trim(HMS)
End Function

Si elle est dans un module elle peut être appelée partout y compris dans une requête

PS : c'est à utiliser uniquement à l'affichage car en réalité ta variable contient la bonne valeur !

Variante : tu multiplies par 24 et ainsi tu stockes le nombre d'heures dans un réel...

[helas]

bonjour,
dans une requete ceci conviendrait, peut être avec le formatage de la date rn plus

Code :

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

1
2
 
datediff("n",#02/02/2010 10:20:00#,#02/03/2010 12:40:00#)\60 & ":" & datediff("n",#02/02/2010 10:20:00#,#02/03/2010 12:40:00#)mod 60

[sinifroth]

Cela ressemble pas mal à ce que j'avais trouvé de mon côté (en plus simple cela dit) :

Code :

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

(DiffDate("s";[date1];[date2]))/3600) & " h " & Ent(((Moyenne(DiffDate("s";[date1];[date2]))/3600)-Ent(Moyenne(DiffDate("s";[date1];[date2]))/3600))*60) & " m"

J'ai quand même utilisé la fonction de nico84 qui me permet d'alléger mes requêtes et en plus de l'utiliser dans mon code vba ! Je ne savais pas qu'une fonction vba pouvait être appelée dans une requête, merci du tuyau

Après je vais tâcher de me débrouiller pour mes statistiques car comme tu l'as dit cette solution n'est valable que pour de l'affichage (puisque le résultat est dans un format string).

Merci à vous deux pour votre aide !

[nico84]

C'est pas ce que j'ai dit !!!

Code :

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

Le problème est que Access me renvoie comme résultat de la différence : 31/12/1899 02:20:00

Access renvoie la différence en nombre de jours et comme il affiche les dates à partir de 1899 cela donne cet affichage bizarre mais c'est bien le bon calcul

S'il faut stocker le résultat, le mieux est de le faire dans une date (ou un réel après multiplication par 24 pour l'avoir en heures) et ma fonction ne sert qu'à afficher le résultat