date in delphi

[pegaso22]

Ciao a tutti,
avrei bisogno di un suggerimento:
come posso fare per trovare la differenza fra due date, cioè i giorni che intercorrono fra una data(+ piccola) ed un altra(+ grande)?
Purtroppo non si può fare una data meno l'altra... che strano!!!

Fatemi sapere. Grazie.

[alka]

Certo che si può sottrarre una data da un'altra!

procedure TForm1.Button1Click(Sender: TObject);
var
  d1, d2: TDateTime;
begin
  d1 := StrToDate('01/01/2003');
  d2 := Now;
  d1 := d2 - d1;
  ShowMessage(FloatToStr(Trunc(d1)));
end;

Il tipo TDateTime è un derivato del tipo Double. La parte intera memorizza i giorni trascorsi dal 30/12/1899 mentre la parte decimale contiene un valore che indica quale porzione del giorno è trascorsa.

Quindi, si deduce che sottraendo la parte intera di due date si ottiene la differenza in numero di giorni.

[pegaso22]

Sei sempre il solito... grazie ho risolto.
Ciao, alla prossima.

[p87]

Potrebbe risultare più comodo utilizzare la funzione:
DaysBetween(primaData, secondaData);

[alka]

Originariamente inviato da p87
Potrebbe risultare più comodo utilizzare la funzione:
DaysBetween(primaData, secondaData);

Senz'altro.

Però non esiste in tutte le versioni di Delphi (alcune routine particolari di calcolo sono state introdotte dalla 6 in poi), ma penso che pegaso22 non abbia questo problema.

[p87]

Certo, ma era a titolo informativo.....

[alka]

Sì, sì, hai fatto benissimo perchè io non me la ricordavo nemmeno. :bubu: