Discussion :

[ArthurDeLyon]

Bonjour,

Je suis à la recherche d'une solution en VBA pour avoir un résultat de durée en heure/minute.

Exposé:
Un champs date arrivée indique la date d'arrivée au format date abrégée
Un champs heure d'arrivée indique l'heure d'arrivée format heure abrégée

Un champs date départ indique la date de départ au format date abrégée
Un champs heure de départ indique l'heure de départ format heure abrégée

Un champs Temps passé indique le résultat attendu entre la date/heure d'arrivée et la date/heure de départ.

J'ai testé avec deux fonction DateDiff et Cdate qui fonctionnent avec des données statiques comme dans les exemples ci dessous:

MonChamps = DateDiff("n", "01/06/2018 23:00", "02/06/2018 01:00")
MonChamps = CDate((#06/01/2018 11:00:00 PM#) - (#06/02/2018 1:00:00 AM#))

Exemple de résultat que j'aimerai obtenir: arrivée le 01/06/2018 à 21h00 - Départ le 02/06/2018 à 03h30 Temps passé: 6.5

Ma problématique est que je souhaite utiliser les valeurs des champs des formulaires et que tous mes essais en syntaxe sont vains.

Es-ce qu'une personne pourrait me donner des exemples de syntaxes pour ma problématique?

Merci d'avance à tous les participants.

Arthur DeLyon

[hyperion13]

Salut, les 2 fonctionnent parfaitement via un form.
Il faut surtout ne pas oublier de diviser le tout par 1440 pour obtenir quelque chose de probant, et formater tes champs date ainsi jj/mm/aaaa hh:nn puisque tu veux calculer le temps écouler en heure.

[ArthurDeLyon]

Salut, les 2 fonctionnent parfaitement via un form.
Il faut surtout ne pas oublier de diviser le tout par 1440 pour obtenir quelque chose de probant, et formater tes champs date ainsi jj/mm/aaaa hh:nn puisque tu veux calculer le temps écouler en heure.

Merci beaucoup pour cette rapide réponse, je regarde la pièce jointe rapidement.

En fait, quelques minutes après mon post, j'ai essayé autre chose qui fonctionne et qui me convient.

Je met ci-dessous une p'tite partie de mon code (si cela peut servir à une personne...)

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
 
'Mes variables dates.
MemDA = rst![DateArrivee] ' Date arrivée
MemHA = rst![HeureArrivee] ' Heure arrivee
MemDD = rst![DateDepart] ' Date depart
MemHD = rst![HeureDepart] ' Heure Depart
 
 
Dim MemDebut As Date
Dim MemFin As Date
Dim Duree as Date
 
 
 
MemDebut = MemDA & " " & MemHA
MemFin = MemDD & " " & MemHD
Duree = Round((MemFin - MemDebut) * 24, 2) ' arrondi a 2 décimales
 
rst.Edit
rst![TempsPasse] = Duree
rst.Update
 
rst.MoveNext
 Loop