Réponse acceptée !
plus précis :
uses
Math;
procedure TForm1.MaxiDateClick(Sender: TObject);
var
Tab: array of integer;
GrandMax : integer;
Final : TDateTime;
const
nbreDate = 3;
begin
with MonQuery1.SQL do
begin
Clear;
Add('SELECT Max(Date1) AS MaxiDate1, ');
Add('Max(Date2) as MaxiDate2, ');
Add('Max(Date3) as MaxiDate3');
Add('FROM MaTable ');
MonQuery1.Open;
end;
SetLength(Tab, nbreDate);
tab[0] := trunc(MonQuery1.FieldByName('MaxiDate1').AsDateTime);
tab[1] := trunc(MonQuery1.FieldByName('MaxiDate2').AsDateTime);
tab[2] := trunc(MonQuery1.FieldByName('MaxiDate3').AsDateTime);
Final := StrToDateTime(DateTimeToStr(MaxIntValue(tab)));
ShowMessage(DateTimeToStr(Final));
end;
cantador