| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сравнение дат [D7, WinXP]

D@Nger ©   (2006-06-08 12:46:00) 

Всем привет! Сравниваю две даты, но условие не срабатывет, хотя точно уверен что должно сработать. Перед сравнением вывожу на экран сравниваемые даты.

Как правильно сравнивать даты, может я что то не так делаю?

procedure TFRepSettings.DataPeriod(start,finish:TDate);
var data:Tdate;
begin
 ....
data:=fieldbyname('data').AsDateTime;
showmessage('data= '+datetostr(data)+' start= '+datetostr(start_date)+'  finish= '+datetostr(finish_date));
 if (data>=start)and(data<=finish) then
 begin
      showmessage('Условие сработало');
 end;
 ....
end;

---

D@Nger   (2006-06-08 13:06:00) [1]

Большое спасибо! Помогло.

---

antonn   (2006-06-08 13:03:00) [2]

trunc() уберет время:)

---

Sam Stone   (2006-06-08 12:49:00) [3]

Наверняка мешает время.
function CompareDate(const A, B: TDateTime): TValueRelationship;
function CompareDateTime(const A, B: TDateTime): TValueRelationship;

---

Наверх