Discussion :

[-Space-]

Bonjour à tous!
Avec une requete, je souhaiterai afficher un calcul de différence de 2 dates.
Je m'explique, dans une table, j'ai les champs heures d'arrivée, heure de départ, et tps sur place. A l'aide d'une requete j'aimerai faire que le tps sur place soit égal a l'heure d'arrivée moins l'heure de départ.

Merci

[jujusoso]

Les dates sont stockées comme des nombres sous access donc tu peut simplement faire une addition ou une soustraction.

Si tes trois champs du formulaires sont défini en format date (que ce soit horaire ou date), il te suffit d'éxécuter le code suivant dans les actions after_update des deux premiers champs.

Code :

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

1
2
3
4
 
if (me.nomchamp1.value <> "" and me.nomchamp2.value <> "") then
me.nomchamp3.value = me.nomchamp1.value - me.nomchamp2.value 
end if

normalement si les formats sont bien défini il te mettra directement la valeur au format date choisi.

je reste disponilble si ca ne fonctionne pas

jujusoso

[-Space-]

niquel
merci

[Amanite]

Bonjour,

j'essai de faire la meme requete, mais le resultat me laisse perplexe..
dans ma table j'ai :
DateDebut -- Format : date, abrégé -- Val par defaut : Maintenant ()
DateHeureFin -- Format : date, abrégé
DureePanne -- Date/Heure

VB:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub HeureFin_AfterUpdate()
 
If (Me.DateFin.Value <> "" And Me.HeureFin.Value <> "") Then
DateHeureFin = Me.DateFin.Value & " " & Me.HeureFin.Value
End If
 
If (Me.DateHeureFin.Value <> "" And Me.DateDebut.Value <> "") Then
Me.DureePanne.Value = Me.DateHeureFin.Value - Me.DateDebut.Value
End If
End Sub

Dans mon formulaire la seule saisie possible est donc les champs DateFin et HeureFin.
Pour exemple :
DateDebut : 26/05/2008 15:23:02 (automatique)
DateHeureFin : 27/05/2008 13:24:00 (saisie)
DureePanneJour : 22:00:58 (résultat)

Jusque la ca marche, mais si l'heure de DateHeureFin est supérieur à l'heure de dateDebut alors ca m'envoi un résultat faux.
Pour exemple :
DateDebut : 26/05/2008 15:23:02 (automatique)
DateHeureFin : 27/05/2008 16:24:00 (saisie)
DureePanneJour : 31/12/1899 01:00:58 (résultat)

Quelqu'un a une idée?
Doit-on definir les dates en valeur absolu?

Merci d'avance.

[helas]

et en détail :
nombre de minutes entre les 2 dates
1 jour faisant 1440 mn (24 * 60), il suffit de faire quelques petits calculs

Code :

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

1
2
3
4
5
6
7
8
9
 
If IsDate(Me.DateHeureFin) And IsDate(Me.DateHeureDebut) Then
 mn = DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin)
 jours = Fix(mn / 1440)
 reste = mn - (jours * 1440)
 heures = Fix(reste / 60)
 minutes = reste - (heures * 60)
 Me!DureePanne = jours & " jours " & heures & ":" & minutes
End If

ou une seule ligne incompréhensible

Code :

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

1
2
3
4
 
If IsDate(Me.DateHeureFin) And IsDate(Me.DateHeureDebut) Then
  Me!DureePanne = Fix(DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) / 1440) & " jours " & Fix((DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) - (Fix(DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) / 1440)) * 1440) / 60) & ":" & (DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) - (Fix(DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) / 1440)) * 1440) - (Fix((DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) - (Fix(DateDiff("n", Me!DateHeureDebut, Me!DateHeureFin) / 1440)) * 1440) / 60) * 60)
End If

[Amanite]

Merci beaucoup helas.
Ca marche !
j'avais cru comprendre qu'acces savait soustraire 2 dates tout seul comme un grand.
Juste une petite remarque concernant ton code :
Le champ [DureePanne] devient du texte; si on veut le definir en tant que date il suffit d'enlever & " jours" &