Dodawanie daty

Wie ktoś może jak dodać do daty z czasem, którą mam w stringu 30 dni i sprawdzic z obecnym czasem czy już mineło te 30 dni ?

typ TDateTime

O to Ci chodziło?

Pisałem z głowy, ale powinno działać...

var
  mojaData, aktualnaData, pododaniuData : TDateTime;
  ileDni : Double;
begin
  mojaData := StrToDate('05-04-02');
  ileDni := 3;
  pododaniuData := mojaData + ileDni;

  aktualnaData := Date;
  if pododaniuData = aktualnaData then
  ShowMessage('To dzisiaj');
end;

Dzięki za przykład, na pewno się przyda, ale ja używam DateTimeToStr a nie DateToStr, więc teraz <ort>niewiem </ort>jak doadc te 30 dni, bo mi dolicza do minut i godzin zamiast do dni :(

Nie wiem dokładnie o co Ci chodzi, ale myślę że o to: :)

var
  data1 : TDate;
  czas1: TTime;
  DataiCzas : TDateTime;
begin

   data1 := StrToDate('05-04-02');
   czas1 := StrtoTime('01:01:13');

   DataiCzas := Int(data1) + Frac(czas1) ;
   showmessage(DateTImeToStr(DataiCzas));

end;

OK, dzięki za pomoc już sobie poradziłem, <ort>po prostu </ort><ort>wyciołem </ort>ze stringu czas i została mi sama data :) Pozdrawiam.