Discussion :

[Philippe608]

Bonsoir,

Comment faire pour calculer l'écart entre deux dates, concernant
l'enregistrement précédent et le dernier d'un domaine (sous formulaire)

Par exemple :
01/01/08
05/01/08
15/01/08
20/01/08

On calcul sur ce domaine 20/01/08 - 15/01/08 = 5 j

J'espére avoir bien expliquer.
Merci.

[Gabout]

Bonjour,

Pour calculer la différence entre deux date, tu peux utiliser la fonction DateDiff. Tu peux jeter un oeil sur la à cet endroit http://access.developpez.com/faq/?page=dates#DateDiff

Bon courage

[Philippe608]

Merci Gabout, mais ça ne va pas m'aider beaucoup car le plus dur est de sélectionner l'enregistrement précédent le dernier dans une requête par exemple.

@+

[vodiem]

salut à tous,

Philippe608,
il faut que tu utilise une requete avec une sous requete imbriquée si tu veux faire en requete mais si tu es dans un form ce que te conseil Gabout est plus simple à mettre en oeuvre.

[Invité]

Bonjour

Une solution est d'utiliser les fonctions de domaines, tu pourras récupérer tes données, et ensuite utiliser la fonction DateDiff.

Pour l'utilisation des fonctions de domaine : Les Fonctions de Domaine dans Access

Starec

[philben]

bonjour,

Voici la formule de base qui peut être simplifiée selon le contexte :

Code :

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

1
2
 
DateDiff("d", dMax("MaDate", "MaTable", "MaDate <" & CDbl(dMax("MaDate", "MaTable"))), dMax("MaDate", "MaTable"))

cordialement,

Philippe

[francishop]

Bonjour,

Vodiem n'est pas dans le coin? Non?...Il dort encore? Alors j'en profite pour poster :

Code :

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

1
2
3
4
5
6
SELECT DISTINCT TOP 1 MaTable_1.MaDate AS AvantDerniereDate, MaTable.MaDate AS DerniereDate,
            DateDiff("d",[MaTable_1].[MaDate],[MaTable].[MaDate]) AS Difference
FROM MaTable, MaTable AS MaTable_1
WHERE (((MaTable_1.MaDate)=DLast("[MaDate]","[MaTable]")) AND 
    ((DateDiff("d",[MaTable].[MaDate],[MaTable_1].[MaDate]))<>0))
ORDER BY MaTable.MaDate DESC;

Cordialement.

[vodiem]

salut à tous,
et oui il y a aussi les fonctions de domaines cher à Starec, le Dmax m'avait échappé philben merci de me rafraichir la mémoire, c'est dur après les fêtes...

francishop: dormir, dormir... pas tout à fait, je dirais plutot que je dînais...

ps:j'en profite de vous avoir sous la main pour vous souhaitez une bonne année Starec et Philben , francishop ayant déjà eu ses voeux plus tot il sera privée cette fois ci (mais le coeur y est).

[philben]

bonjour Vodiem,

Merci et meilleurs voeux à toi aussi !

Au pied du lit, Francishop a écrit une requête qui ne fonctionne pas très bien , après le petit déjeuner il va probablement nous faire une petite correction...

Amicalement,

Philippe

[Philippe608]

Merci à vous tous, vous êtes vraiment trés sympathique.

@+
Philippe

[francishop]

Bonjour,

Au pied du lit, Francishop a écrit une requête qui ne fonctionne pas très bien ,

Je le savais...Vodiem a fait des émules.

Quoi Ma Requête! Qu'est-ce qu'elle a ma requête? (Je connais Johnny, non mais.)
AvantDerniereDate DerniereDate...Difference
15/01/2008...........20/01/2008.......5

Il s'en trouve qui préfèrent "y" à "d"? Comprends pas.
Pièce jointe 24341

Cordialement.

Hum... Peut-être :

Code :

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

1
2
3
4
5
6
SELECT DISTINCT TOP 1 MaTable_1.MaDate AS AvantDerniereDate, MaTable.MaDate 
     AS DerniereDate, DateDiff("d",MaTable.MaDate,MaTable_1.MaDate) AS Difference
FROM MaTable, MaTable AS MaTable_1
   WHERE (((MaTable_1.MaDate)=DLast("[MaDate]","[MaTable]")) And 
                 ((DateDiff("d",MaTable.MaDate,MaTable_1.MaDate))<>0))
ORDER BY MaTable.MaDate DESC;

[Invité]

Bonjour

et oui il y a aussi les fonctions de domaines cher à Starec, le Dmax m'avait échappé philben merci de me rafraichir la mémoire, c'est dur après les fêtes...


ps:j'en profite de vous avoir sous la main pour vous souhaitez une bonne année Starec et Philben , francishop ayant déjà eu ses voeux plus tot il sera privée cette fois ci (mais le coeur y est).

Je sais que je peux être C****T avec ces fonctions, mais leur utilité pour des petites volumes n'est plus à démontrer, surtout pour les débutants en VBA, elles sont faciles à comprendre.

Mes meilleurs vouex à vous aussi (on a jusqu'au 31 il me semble).

Starec