Odliczanie do konkretnej daty

Jak sprawdzic ile dni zostalo do konkretnie wprowadzonej daty?

nothin napisał(a)

Jak sprawdzic ile dni zostalo do konkretnie wprowadzonej daty?

http://4programmers.net/Delphi/Faq/Jak_obliczyć_różnicę_dat_[ilość_dni,_miesięcy,_lat]

Wpisz w helpa dateutils

Sorry

Trzeba skopiować cały adres do przeglądarki : )

Generalnie DaysBeetween itd...

Dzieki jestescie niezastapieni! WirtualnyBeer dla Was ;)

Ale jest problem, bo jesli roznica jest pomiedzy kilkoma miesiacami to to juz nie dziala :/

Zalozmy mam date dzisiejsza i date za 5 miesiacy (ten sam dzien) i chce by program pokazal ze roznica wynosi 5 miesiacy.</email>

Unit 
DateUtils 

Syntax 


[Delphi] function MonthsBetween(const ANow: TDateTime; const AThen: TDateTime): Integer;

Zrobilem tak i MonthsBetween daje 0 ;o

var
  OldDate, Date: TDateTime;
  wYear, wYear2, wMonth, wMonth2, wDay, wDay2 : Word;
  fYear, fMonth, fDay : Word;
begin
  OldDate := Now;   // pobieranie dziesiejszej daty
  DecodeDate(OldDate, wYear, wMonth, wDay);

  Date := StrToDate('2007-09-29');
  DecodeDate(Date, wYear2, wMonth2, wDay2);
  Memo1.lines.add(DateToStr(OldDate));
  Memo1.Lines.Add(DatetoStr(Date));
  Memo1.Lines.Add('_____________');
  //Memo1.lines.add(fMonth);

  fMonth := MonthsBetween(wMonth, wMonth2);       //ile roznicy miesiecy
  Memo1.Lines.Add(inttostr(fMonth));               //ile roznicy miesiecy
  fDay := DaysBetween(wDay, wDay2);               //    ile roznicy dni
  Memo1.Lines.Add(inttostr(fDay));                //    ile roznicy dni

  Memo1.Lines.Add(inttostr(DaysInMonth(OldDate)));  // ile dni w miesiacu

wynik jest taki:

2007-06-26
2007-09-29
_____________
0
3
30

O kurcze ale tepy jestem :) Mozna przeciez w DaysBetween mozna porownac OldDate i Date.... ops ;p