Tri dans une DBGrid sur un champ date au format jj/mm

Bonjour à tous,

J'ai un petit problème pour trier des date sous le format jj/mm.
Mon application sort tous les anniversaires entre le 1er du mois et un jour sélectionner dans le mois, il est biensûr possible que plusieurs personnes soient né le même jour, cependant à l'affichage, j'ai par exemple ceci:
BIRTHDAY
-------------
1/10
1/10
1/10
...
10/10
10/10
11/10
12/10
12/10
...
19/10
19/10
puis ça recommence à
2/10
2/10
...
20/10
29/10
puis ça recommence à
3/10
4/10
5/10
...
9/10
et ainsi de suite.
J'aimerai que toutes les dates ce suivent
1/10
1/10
2/10
2/10
2/10
3/10
...
19/10
20/10
21/10
...
29/10
etc...
Voici mon code

Code :

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

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
28
29
30
31
32
33
34
35
36
37
 
procedure SetBirthdayBeforeADateInt;
const
  aBIRTHDAY : integer = 0;
var
  sMonthOfYearNow : string;
  sDayOfMonthNow  : string;
  sBirthday       : string;
begin
  ShortDateFormat := 'mm';
  sMonthOfYearNow := DateToStr(Now);
  ShortDateFormat := 'dd/mm/yyyy';
  sDayOfMonthNow  := '01';
  try
    with DataModule1 do
    begin
      IBQueryIntContact.Close;
      IBQueryIntContact.SQL.Clear;
      IBQueryIntContact.SQL.Add('SELECT NUM, NOM, PRENOM, BDA, TEL, TEL2,');
      IBQueryIntContact.SQL.Add('CANDIDAT, PRO, DISP, DAT, SEL,');
      IBQueryIntContact.SQL.Add('EXTRACT(day from BDA) || ''/'' ||');
      IBQueryIntContact.SQL.Add('EXTRACT(month from BDA) AS BIRTHDAY');
 
      IBQueryIntContact.SQL.Add('FROM INT');
      IBQueryIntContact.SQL.Add('where extract(month from BDA) * 100 + extract(day from BDA) >= '); //101');
      IBQueryIntContact.SQL.Add(QuotedStr(sMonthOfYearNow + sDayOfMonthNow));
      IBQueryIntContact.SQL.Add('and extract(month from BDA) * 100 + extract(day from BDA) <= '); //201');
      sBirthday := DateToStr(frmListeInt.DateTPAnnifInterim.Date);
      IBQueryIntContact.SQL.Add(QuotedStr(GetConvertDate(sBirthday, aBIRTHDAY)));
      IBQueryIntContact.SQL.Add('ORDER BY 12'); // 12 est la colonne BIRTHDAY
      IBQueryIntContact.Open;
      //IBQueryIntContact.Last;
 
    end;
  end;
  ShortDateFormat := 'dd/mm/yyyy';
end;

Quelqu'un aurait il une solution à me proposer
Merci d'avance
Jeankiki

Salut,

Je ne pense pas que cela va m'aider, car le mois sera toujours le mois courant. Je veux sortir les dates entre le premier du mois en cours et une autre dates données.

En fait j'ai le problème quand je passe par delphi, si je fais la même query avec IBConsole par exemple, je n'ai pas le problème.

Jeankiki

Envoyé par Amenofis

ton problème est "classique" et vient du fait que tu fais un tri sur une chaine de caractère... par sur une date

Tout a fait exacte !

Envoyé par Amenofis

tu devrais extraire via ta requête la date entière (et pas day et month), faire le tri sur le champ (je comprends pas cette histoire de colonne 12 ?!?!) et ensuite formater l'affichage du champ dans ton éditeur...

Non car un tri sur la date entière va donner

31/10/1920
1/10/1950
15/10/1950
2/10/1960


or si j ai bien compris il veut

1/10
2/10
15/10
31/10

Et donc si vous voulez le faire en SQL il faut trier sur une autre colonne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
IBQueryIntContact.SQL.Add('SELECT NUM, NOM, PRENOM, BDA, TEL, TEL2,'); 
      IBQueryIntContact.SQL.Add('CANDIDAT, PRO, DISP, DAT, SEL,'); 
      IBQueryIntContact.SQL.Add('EXTRACT(day from BDA) || ''/'' ||'); 
      IBQueryIntContact.SQL.Add('EXTRACT(month from BDA) AS BIRTHDAY,'); 
      IBQueryIntContact.SQL.Add('EXTRACT(day from BDA) as DAYBDA,'); 
      IBQueryIntContact.SQL.Add('EXTRACT(month from BDA) AS MONTHBDA');
      IBQueryIntContact.SQL.Add('FROM INT'); 
      IBQueryIntContact.SQL.Add('where extract(month from BDA) * 100 + extract(day from BDA) >= '); //101'); 
      IBQueryIntContact.SQL.Add(QuotedStr(sMonthOfYearNow + sDayOfMonthNow)); 
      IBQueryIntContact.SQL.Add('and extract(month from BDA) * 100 + extract(day from BDA) <= '); //201'); 
      sBirthday := DateToStr(frmListeInt.DateTPAnnifInterim.Date); 
      IBQueryIntContact.SQL.Add(QuotedStr(GetConvertDate(sBirthday, aBIRTHDAY))); 
      IBQueryIntContact.SQL.Add('ORDER BY 14, 13'); // 14 est la colonne MONTHBDA (le mois de la date anniversaire) et 13 est DAYBDA le jour de la date anniversaire.

100% d'accord avec toi Amenofis 1er!
Le tri sur les dates entières devrait sortir les résultats dans l'ordre souhaité.

Envoyé par Amenofis

Re,

Hum

le tri sur une date veut dire tri sur une date, désolé...

Oui c'est vrai une tri sur date c'est un tri sur date. Et je vais surenchérir : Un tri sur chaine de caractères est un tri sur chaine de caractères.

Envoyé par Amenofis

ce que nous voyons comme, par exemple, 29/10/2004 est la retranscription, le décodage (voir fonctions EncodeDate et DecodeDate) d'un entier. Donc si on tri des dates elles seront dans l'ordre des jours.

Il est bien entendu que la donnée est stockée dans un champ de type DateTime, sinon on arrête la discussion...

@+

Oui et alors vous voulez prouvez quoi ? Qu'un tri sur date se fait bien dans l'ordre chronologique ?
Ce n'est pas moi qu'il faut convaincre et d'ailleur je n'ai jamais dit le contraire. Simplement c'est votre proposition qui n'est pas bonne car :
On a ici une personne qui a un probleme :

J'ai un petit problème pour trier des date sous le format jj/mm.

Premiere remarque à faire : jj/mm n'est pas une date donc veux t elle trier par date comme elle le dit au debut et tronquer juste l'année ?
Le probleme si on y refechi c'est qu'on optient pas le résultat voulu.
prennez comme exemple la liste des dates de naissances suivantes que je vais trier par date :

Code :

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

1
2
3
4
15/01/1920
01/01/1940
27/01/1940
24/01/1950

elles sont triées par date si je tronque les années celà donne :

Code :

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

1
2
3
4
15/01
01/01
27/01
24/01

Alors que le résultat qu'il attend c'est :

Code :

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

1
2
3
4
01/01
15/01
24/01
27/01

Si j'avais gardé les années :

Code :

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

1
2
3
4
01/01/1940
15/01/1920
24/01/1950
27/01/1940

Ce qui n'a rien à voir avec un tri sur date.


Donc lisont la suite de son message pour en savoir plus :

Mon application sort tous les anniversaires entre le 1er du mois et un jour sélectionner dans le mois,

Ok donc en regardant le code on s'apperçoit qu'il y a une liste de date de naissance et le but et de retrouver la date d'anniversaire...

Donc si on se contante d'un tri sur les dates de naissance on n'optient pas la même chose qu'un tri sur date d'anniversaire.

Donc deux solutions :
La compliqué (celle qu'il a adopté) :
Extraire jour et mois de la date de naissance et faire un tri sur ceux ci pour donner le résultat voulu (la solution que j'ai proposé)
Soit (la solution que j'aurai plutot mise en oeuvre) calcul de la date d'annisersaire et tri sur cette date.

Donc en conclusion merci de bien vouloir relire la question quand une personne vous dit que ce que vous avez repondu ne marchera pas...

Mais bon il n'y a rien de grave car si on résume :
Justme a aussi donné la bonne réponse il y a juste un probleme de compatibilité avec interbase au niveau des order by sur des colonnes calculées.
Toi tu as mal compris le probleme et du coup n'a pas pas proposé la bonne solution.
Mais il y a une bonne nouvelle quand meme dans cette histoire : tu as un fan inconditionnel :mariustrezor Il te soutient même quand tu te trompes

Sur ce bon week end et merci de vos participations !

mea culpa. disons qu'on a tous les deux fait la meme erreur

Salut à vous tous,
Un grand merci pour votre aide, maintenant ça fonctionne très bien.
Jeankiki