[AC-2007] Calculer l'écart entre 2 dates [Résolu]

[rch05]

Bonjour,

Comment calculer l'écart entre 2 dates qui sont dans la même colonne.
J'ai une table avec les champs suivants:
- DateRecp
- Journée
- CAP

Dans ma requête SQL, j'ai essayé DiffDate de la façon suivante:

Code :

1
2
 
Ecart:DiffDate("j";[DateRecp];[DateRecp])

j'ai comme résultat: 0, ce qui est logique.

Comment faire pour trouver l'écart entre les 2 dates?

Merci d'avance de votre aide.

[fbtsra]

Bonjour,

C'est réalisable en utilisant les fonctions de domaine, en l'occurrence RechDom me semble la plus adaptée d'après vos éléments.

Bcdt

[rch05]

Re bonjour,

J'ai trouvé dans le livre "SQL par l'exemple" de A. Molinaro un exemple.

C'est de "déterminer le nombre de jours séparant les dates de l'enregistrement courant et du suivant", que je n'arrive pas à appliquer pour ma problématique.

Code :

1
2
3
4
5
6
7
8
9
 
SELECT x.*, 
DateDiff("j",x.date_deb,x.de_suivante) AS Ecart
FROM (SELECT DateRecp, Journée,CAP,
(SELECT min(d.date_deb) from tblUnité
WHERE d.date_deb > DateRecp) de_suivante
from tblUnité
WHERE CAP = "A9"
)  AS x;

Quelqu'un a t-il une idée?
Merci de votre aide

[f-leb]

rebonjour Christian,

quelques idées à tester...

Code sql :

1
2
(SELECT min(d.date_deb) from tblUnité as d
WHERE d.date_deb > DateRecp) de_suivante

peut-être même:

Code sql :

1
2
(SELECT min(d.date_deb) from tblUnité as d
WHERE d.date_deb > DateRecp AND d.CAP="A9") de_suivante

[rch05]

Bonjour Fabien,

j'ai trouvé 2 solutions qui me donnent le résultat attendu.
Par-contre cela me bloque access (temps de réponse énorme quand je clic dans la feuille de donnée ou accéder au pgm )???
Peut-être est-ce du au nbr d'enregistrement (+ de 200 000)

La 1er solution est celle que j'ai posté, j'ai apporté ta modif et une autre.

Code :

1
2
3
4
5
6
7
8
9
10
 
SELECT x.*, 
DateDiff("D",x.DateRecp,x.de_suivante) AS Ecart
FROM (
SELECT DateRecp, Journée,CAP,
(SELECT min(d.DateRecp) from tblUnité as d
WHERE d.DateRecp > e.DateRecp) AS de_suivante
from tblUnité as e
WHERE CAP = "A9"
)  AS x;

Cette requête me créer 4 colonnes.
-La 1er date
-la date suivante
-la col Ecart (différence entre les deux dates)
-la col CAP (critère)

La 2ème solution qui donne le même résultat et le même souci (bloque access)

Code :

1
2
3
4
5
6
7
8
9
10
 
SELECT x.*, 
x.de_suivante – x.DateRecp AS Ecart
FROM (
SELECT DateRecp, Journée,CAP,
(SELECT min(d.DateRecp) from tblUnité as d
WHERE d.DateRecp > e.DateRecp) AS de_suivante
from tblUnité as e
WHERE CAP = "A9"
)  AS x;

Ma question est de savoir pourquoi Access a un temps de réponse énorme (même quand les requêtes sont terminées)

Ha, une autre question : Comment fais-tu la différence entre Code SQL: et le Code VBA:, dans la balise code

Merci

[rch05]

re Fabien,

Bon, après quelques tests, j'ai suis passé par une table intermédiaire.
C'est à dire, que selon le (les) critère(s) j'inserre mes données dans une table intermédiaire.
Puis, j'exécute l'une des 2 requêtes sur cette table.
Je n'ai plus le problème du temps de réponse et Access ne se bloque plus.

Je pense que je vais en rester là, sauf si il y a une autre solution
Qu'en penses-tu?

[f-leb]

Bonjour,

à part peut-être rajouter un index sur DateRecp et un autre sur CAP si ce n’est déjà fait, je ne vois pas mieux , désolé.

[rch05]

Bonjour Fabien,

Bon, je vais clore la discussion.
Pour l'instant, je vais continuer avec cette table intermédiaire.
Je reviendrai plus tard, afin de voir si cela est possible d'améliorer ce module.
Le "Chef" attend des résultats..........

Merci de ton aide
@+

[f-leb]

bonjour Christian,

je n'ai peut-être pas bien saisi l'objectif mais dans la sous-requête:

Code sql :

1
2
(SELECT min(d.DateRecp) FROM tblUnité AS d
WHERE d.DateRecp > e.DateRecp) AS de_suivante

tu vas rechercher les dates suivantes parmi toutes les occurences de tblUnité même parmi celles où CAP est différent de "A9"

par exemple: date=01/01/2011 (CAP="A9") et De_suivante=02/01/2011 (mais CAP="A10" par exemple pour cette date suivante)

C'est pour cela que j'avais proposé:

Code sql :

1
2
(SELECT min(d.DateRecp) from tblUnité as d
WHERE d.DateRecp > e.DateRecp AND d.CAP="A9") AS de_suivante

pour le coup, la requête devrait être plus rapide avec cette restriction mais peut-être me trompé-je dans le raisonnement avec ce champ CAP?