Dodawanie daty

0

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 ?

0

typ TDateTime

0

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;
0

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 :(

0

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;
0

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.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0