compare date.... non funziona bene

[Narciso]

SAlve,
non so perche' ma non risco ad ordinare le date in una stringgrid....

in OnComparecells metto il seguente codice.....

ShortDateFormat:='dd/mm/yyyy';
case acol of
0,1:result :=trunc(strtointdef(stringgrid1.cells[acol,arow],0)-strtointdef(stringgrid1.cells[bcol,brow],0));
5..12:result:=trunc(strtofloatdef(stringgrid1.cells[acol,arow],0)-strtofloatdef(stringgrid1.cells[bcol,brow],0));
3: result :=comparedate(StrToDate(stringgrid1.Cells[ACol,ARow]),StrToDate(stringgrid1.Cells[BCol,BRow]));
else result:=comparetext(stringgrid1.cells[acol,arow],stringgrid1.cells[bcol,brow]);
end;
if stringgrid1.SortOrder = soDescending then
    result := -result;


il risultato che dà è questo...

31/12/2012
31/12/2012
07/01/2013
06/01/2013
06/01/2013
06/01/2013
06/01/2013
06/01/2013

come vedete non considera l'anno..... come mai?

Gia' che ci sono :BUON ANNOOOOOOOOOOOOOOOOOOO

[Stilgar]

Scusa Narciso, ma compareDate ... da che unit è esportata?
L'ho trovata solo in amigados.pp ... ma nemmeno con un prototipo di chiamata corretto ...

Codice: [Seleziona]

FUNCTION CompareDates(const date1 : pDateStamp;const date2 : pDateStamp) : LONGINT;
BEGIN
  ASM
    MOVE.L  A6,-(A7)
    MOVE.L  date1,D1
    MOVE.L  date2,D2
    MOVEA.L _DOSBase,A6
    JSR -738(A6)
    MOVEA.L (A7)+,A6
    MOVE.L  D0,@RESULT
  END;
END;

[Legolas]

E' in dateutils 

[bonmario]

il risultato che dà è questo...

31/12/2012
31/12/2012
07/01/2013
06/01/2013
06/01/2013
06/01/2013
06/01/2013
06/01/2013

Sembra quasi che ti sta facendo un ordinamento considerandole delle stringhe.

Ciao, Mario

[Stilgar]

Narciso, le date in delphi e freepascal sono una specie di numero a virgola mobile.
I numeri decimali sono il tempo e gli interi sono la data effettiva.
Questa è una premessa da fare per capire il codice delle funzioni che ti allego.

Codice: [Seleziona]

Function CompareDate(const A, B: TDateTime): TValueRelationship;
begin
  If SameDate(A,B) then
    Result:=EQualsValue
  else if A<B then
    Result:=LessThanValue
  else
    Result:=GreaterThanValue;
end;

Function SameDate(const A, B: TDateTime): Boolean; inline;
begin
  Result:=Trunc(A)=Trunc(B);
end;  

Come suggerisce bonmario, sembra che la compare avvenga tra stringhe e non numeri.
Nelle funzioni non viene messa nessuna logica o algoritmi classici per la gestione delle date. Fanno un banale "compare" numerico

[nomorelogic]

scusate ma ordinare come stringa con il formato "YYYYMMDD" vi fa schifo?

[Narciso]

in effetti il comparedate l'ho preso dal dateutils.....
ma come potete notare funziona male....

Mi faro' le funzioni adatte da solo..... prendendo spunto da quelle di Stilgar

[Legolas]

Uhm... Ho provato a mettere tre tedit e un  tbutton su un form per vedere se in effetti comparedate non funziona:

Codice: delphi [Seleziona]

procedure TForm1.Button1Click(Sender: TObject);
begin
  // shortdateformat è deprecato
  DefaultFormatSettings.ShortDateFormat:='dd/mm/yyyy';
  case CompareDate(strtodate(edit1.Text), strtodate(Edit2.Text)) of
   -1: edit3.Text:='data1 < data2';
    0: edit3.Text:='data1 = data2';
    1: edit3.Text:='data1 > data2';
  end;
end;   

Mi pare che funziona come dovrebbe 
L'errore a questo punto potrebbe essere da qualche altra parte.

[Stilgar]

Narciso, riesci a pubblicare il progettino che ti sta facendo rognare?
Legolas ha trovato che le funzioni funzionano (battutona d'inizio anno).
PS:
Il codice che ho messo sono di DateUtils ... non le ho mica inventate io
Io farei tutto un altro giro.

[Narciso]

A quale progetto ti riferisci? Ne ho due o tre per i polpastrelli!

[Stilgar]

Emmm, quello legato a questo post?

[Narciso]

MICA HO CAPITO.....
vuoi che ti pubblichi il codice della ruotine di ordinamento....( ma quella gia' l'ho messa).. oppure vuoi l'exe..... cosa intendi per pubblicare il progetto?
L'intero lpj? Bho?

[Stilgar]

Per riuscire a capire bene il problema, e quale sia il problema dell'ordinamento, avendo tutti i sorgenti è più facile aiutarti.
Sempre che non ci siano problemi di "copyright" o clausole di riservatezza che verrebbero infrante.

[Legolas]

Basta un esempio minimo che mostri il problema: una stringgrid con delle date e la procedura per ordinarli in un onClick di un button

[Narciso]

Ok.. ecco l'esempio... come vedrete, cliccando la fixed cell di una colonna... i dati vengono ordinati... bene.. tranne che per le date.....