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

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

tdatetime [D7, WinXP]

SAVA ©   (2009-01-08 16:31:00) 

Помогите пожалуйста.Как сравнить две даты равны они друг другу или нет.Причем одна вызывается из системы а другая вводится в edit1.Заранее спасибо

---

Игорь Шевченко   (2009-01-10 01:37:00) [1]

"Корректно оформляйте заголовок ветки, который должен кратко отражать суть вопроса"

---

SAVA   (2009-01-08 17:11:00) [2]

помогло спасибо

---

{RASkov}   (2009-01-08 16:51:00) [3]

если просто без учета времени, то наверное можно так:
procedure TForm1.Button1Click(Sender: TObject);
begin
 if Trunc(Now) < Trunc(StrToDate(Edit1.Text)) then Caption:='<' else
  if Trunc(Now) > Trunc(StrToDate(Edit1.Text)) then Caption:='>' else
   Caption:='=';
end;

---

{RASkov}   (2009-01-08 16:35:00) [4]

> [0] SAVA   (08.01.09 16:31)

Даты (TDate) = вещественное число.
по сравнению вещественных чисел есть статья на Королевстве....
Но и тут в ветках можно найти ответы...

---

Наверх