ADOQuery : ajouter une différence de date comme condition

Version imprimable

bonjour,
je souhaite créer une requête pour calculer l'expérience (nombre d'années) des agents
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 decodedate(now(),y,m,d); //y:=2016 annee:=inputbox('Veuillez entrer l''anée ','Année ','31/12/'+inttostr(y)); with adoquery1 do begin close; sql.clear; sql.Add('SELECT perso.nompren, perso.nbrean,'); sql.Add(' Int(('+annee+'-[dtentree])/365) AS IEPCDIC,'); sql.add(' from perso;'); prepared; open; end;
sa me donne le résultat -95 au lieu de 22(ans)
Merci

Avec quel SGBD tu travail ? Pourquoi ne pas le faire directement en SQL avec par exemple un DATEDIFF ?

Un exemple pris de stackoverflow :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CREATE FUNCTION [dbo].[fnCalAge] (@DiffFrom DATE, @DiffTo DATE) RETURNS INT
AS
BEGIN
    DECLARE @NumOfYears INT
    SET @NumOfYears = (SELECT 
                         DATEDIFF(YEAR, @DiffFrom, @DiffTo) + 
                         CASE 
                           WHEN MONTH(@DiffTo) < MONTH(@DiffFrom) THEN -1 
                           WHEN MONTH(@DiffTo) > MONTH(@DiffFrom) THEN 0 
                           ELSE 
                             CASE WHEN DAY(@DiffTo) < DAY(@DiffFrom) THEN -1 ELSE 0 END 
                         END)
    IF @NumOfYears < 0
    BEGIN
        SET @NumOfYears = 0;
    END
 
    RETURN @NumOfYears;
END

Bonsoir, je vous remercie retwas pour la réponse mais je l'ai résolu d'une autre façon. je n'utilise pas le sql.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
var annee:string;
y,m,d:word;
 Date1, Date2 : TDateTime; 
  Diff : Extended; 
  Jour1, Mois1, Annee1 : Word; 
  Jour2, Mois2, Annee2 : Word;
begin
decodedate(now(),y,m,d);
annee:=inputbox('Veuillez entrer l''anée ','Année  ','31/12/'+inttostr(y));
Date1 := EncodeDate(y, M, d);
Annee2:=strtoint(copy(annee,7,4));
 Mois2:=strtoint(copy(annee,4,2));
 Jour2:=strtoint(copy(annee,1,2));
  Date2 := EncodeDate(Annee2, Mois2, Jour2);
  Diff := Date2 - Date1;
  diff:=-1*diff;
 
with dm.ADOQIEP do
begin
close;
sql.Clear;
sql.Add('SELECT perso.nompren, perso.nbrean,');
sql.Add(' Int((Now()-'+floattostr(diff)+'-[dtentree])/365) AS IEPCDIC,');
sql.Add(' perso.dtentree, perso.Num');
sql.Add(' FROM perso');
...

ça a donné le bon résultat .
Merci.