Discussion :

[lumpys]

Bonjour,

Comment faire pour réaliser une soustraction de temps dans une reqête ? (Exemple : 106:30 - 7:00)

Merci

[pc75]

Bonjour,

En utilisant la fonction DateAdd()

[ClaudeLELOUP]

Bonjour,
Si tu veux comprendre comment fonctionnent les champs de type « Date » dans Access vois :
Les Fonctions Date/Heure
http://mhubiche.developpez.com/vba/f...ions/datetime/

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.

Dans l’exemple que tu donnes, si les durées dont tu parles sont logées dans une table,
« 106 heures 30 » correspond en fait à 4.4375
et « 7 heures » à 0.291666.
Donc la différence donnera 4.1458334.

Voici une fonction qui te permet d’afficher une durée sous la forme
h HEURES m MINUTES s SECONDES.

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
20
21
22
23
24
25
26
27
Public Function hms(Duree As Double) As String
Dim Entiere As Integer
Dim Negatif As Boolean
'Inverser si négatif
If Duree < 0 Then
   Duree = Duree * -1
   Negatif = True
End If
'on ajoute une demi-seconde pour arrondir
Duree = Duree + (1 / 86400) / 2
'Traduire le Nbre de jours en heures
Entiere = Int(Duree)
hms = Entiere * 24
'Traduire la partie décimale en minutes
Duree = Duree - Entiere  'Duree = partie décimale
Entiere = Int(Duree * 24)
hms = hms + Entiere & " heures "
'Traduire le reste en minutes
Duree = Duree - (Entiere / 24) 'ce qui reste à convertir
Entiere = Int(Duree * 1440)
hms = hms & Entiere & " minutes "
'Traduire le reste en secondes
Duree = Duree - (Entiere / 1440) 'ce qui reste à convertir
hms = hms & Int(Duree * 86400) & " secondes."
'Affecter le signe
If Negatif Then hms = "- " & hms
End Function