OVH Cloud OVH Cloud

calcul de temp écoulé

2 réponses
Avatar
lou
bonjour
besoin d aide pour résoudre ce probleme

j'ai 3 champs au format heure,abregé
1)heure de départ
2)heure arrivée
3)total en heures et minutes
ex:
départ 10:37 arrivée 12:03
je voudrais afficher dans 3eme champ disons(x)
le temps écoulé y a t-il une formule ou un bout de code pour faire cela
merci de votre aide

ps: un autre probleme se pose ex

départ 23:37 arrivée 01:03 (du matin) que faire dans ce cas
??????merci de votre aide
lou

2 réponses

Avatar
Eric
Bonjour,
Avec ceci peut-être, à copier dans un module global:

Function fnTempsEcoule(Debut, Fin) As Date
If IsNull(Debut) Or IsNull(Fin) Then
fnTempsEcoule = 0
Exit Function
End If
Dim intHeure As Integer, intMinute As Integer, intLaps As Integer
intLaps = DateDiff("n", [Debut], IIf([Fin] < [Debut], DateAdd("n",
1440, [Fin]), [Fin]))
intHeure = intLaps 60
intMinute = intLaps Mod 60
fnTempsEcoule = intHeure & ":" & intMinute
End Function

fonction que tu peux appeler dans une requête par:
Durée de la tache: fnTempsEcoule([Depart];[Arrivee])

bonjour
besoin d aide pour résoudre ce probleme

j'ai 3 champs au format heure,abregé
1)heure de départ
2)heure arrivée
3)total en heures et minutes
ex:
départ 10:37 arrivée 12:03
je voudrais afficher dans 3eme champ disons(x)
le temps écoulé y a t-il une formule ou un bout de code pour faire cela
merci de votre aide

ps: un autre probleme se pose ex

départ 23:37 arrivée 01:03 (du matin) que faire dans ce cas
??????merci de votre aide
lou





--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
lou
C EST PARFAIT !!!!!

merci ERIC


"Eric" a écrit dans le message de news:

Bonjour,
Avec ceci peut-être, à copier dans un module global:

Function fnTempsEcoule(Debut, Fin) As Date
If IsNull(Debut) Or IsNull(Fin) Then
fnTempsEcoule = 0
Exit Function
End If
Dim intHeure As Integer, intMinute As Integer, intLaps As Integer
intLaps = DateDiff("n", [Debut], IIf([Fin] < [Debut], DateAdd("n",
1440, [Fin]), [Fin]))
intHeure = intLaps 60
intMinute = intLaps Mod 60
fnTempsEcoule = intHeure & ":" & intMinute
End Function

fonction que tu peux appeler dans une requête par:
Durée de la tache: fnTempsEcoule([Depart];[Arrivee])

bonjour
besoin d aide pour résoudre ce probleme

j'ai 3 champs au format heure,abregé
1)heure de départ
2)heure arrivée
3)total en heures et minutes
ex:
départ 10:37 arrivée 12:03
je voudrais afficher dans 3eme champ disons(x)
le temps écoulé y a t-il une formule ou un bout de code pour faire cela
merci de votre aide

ps: un autre probleme se pose ex

départ 23:37 arrivée 01:03 (du matin) que faire dans ce cas
??????merci de votre aide
lou





--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr