Discussion :

[Rickhq]

Bonjour, je ne sais comment m'y prendre afin de calculer le temps de réponse entre deux temps fourni sur mon formulaire. je m'explique:

J'ai la date et l'heure de la prise d'appel et la date et l'heure du retour de l'appel. Je dois calculer le temps de réponse entre les deux...
Ex: 2014-06-02 08:00 et 2014-06-03 10:00 devrait donner 26h00

Merci

[ClaudeLELOUP]

Bonjour,

C'est dommage que dans ta table tu n'aies pas seulement 2 colonnes et non 4 : le calcul serait une simple soustraction.

Access stocke la date et l’heure sous la forme d’un nombre décimal.
La partie entière est le quantième jour depuis le 30/12/1899.
La partie décimale indique la fraction de ce jour écoulée depuis le matin, 0 heure.

vois ceci pour te documenter : http://mhubiche.developpez.com/vba/f...ions/datetime/

[Rickhq]

Merci pour le retour, Pas simple tout ça... Et si je concaténais ?

[ClaudeLELOUP]

Pas simple tout ça

Je suppose que tu as déjà vu pire !

Fais plutôt 3 opérations

- l'addition DateAppel + HeureAppel (1) ;
- l'addition DateRetour + HeureRetour (2) ;
- (2) - (1).

[Rickhq]

Problème de format je suppose...

[Rickhq]

J'avance mais il manque quelque chose car mon calcul ne prend pas en compte les journées de différence...

[ClaudeLELOUP]

Bonjour,

Voici un exemple




Le code de la fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Compare Database
Option Explicit
 
 
Public Function NbreToHMS(EnNombre As Double) As String
  Dim Separe() As String
  Dim Jours As Integer
  Jours = PartieEntiere(EnNombre)
  Separe = Split(CDate(EnNombre - Jours), ":")
  NbreToHMS = Separe(0) + (24 * Jours) & ":" & Separe(1) & ":" & Separe(2)
End Function
 
Public Function PartieEntiere(UnNombre As Double) As Integer
  If UnNombre < 0 Then
      PartieEntiere = Fix(UnNombre)
    Else
      PartieEntiere = -Fix(-UnNombre)
  End If
End Function

La BdD de test est ici : http://claudeleloup.developpez.com/&...0604Rickhq.mdb

[Rickhq]

Cela ne peut être plus complet! Je l'ajoute à mon livre de recette Access.

Vraiment reconnaissant!

Merci et Au plaisir!!

[Rickhq]

Re-Bonjour,

Il semble y avoir petit "BUG" pour ces deux conditions:

[ClaudeLELOUP]

Bonjour,

Désolé !
Merci de m’avoir signalé cette erreur.

C’est ma manière de séparer la partie entière d’avec la partie décimale qui était en cause.
J’ai corrigé mon billet n° 7.

Cette fois, on obtient ceci :



Toutes mes excuses pour ce contretemps.

[Rickhq]

Cette fois tout baigne!

Un immence MERCI!!!

[ClaudeLELOUP]

Bonjour,

Dans le cas que tu montres, la réponse précède d'un mois !

Par contre si la réponse vient après 24 heures, ça marche :

[Rickhq]

Pour la combinaison 08h00 08h00 cela fonctionne mais essayez ex: 13h55 13h55 à 1 jrs d'intervale, de mon coté çà bug...

[ClaudeLELOUP]

Ah les dates et heures, pas facile !

C'est un problème d'arrondi !

Comme ceci, on évite le problème : à la différence, on ajoute un chouïa (environ 1/1000e de seconde) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
 
Public Function NbreToHMS(EnNombre As Double) As String
  Dim Separe() As String
  Dim Jours As Integer
  EnNombre = EnNombre + 0.000000001
  Jours = Int(EnNombre)
  Separe = Split(CDate(EnNombre - Jours), ":")
  NbreToHMS = Separe(0) + (24 * Jours) & ":" & Separe(1) & ":" & Separe(2)
End Function

[Rickhq]

Effectivement pas évident tous ces calculs avec heure et date... Heureusement qu'il y a des "Pro" comme vous pour nous sortir d'embarras...

Merci encore et au plaisir d'un autre sujet j'espère...