Форум: "Начинающим";
Текущий архив: 2009.02.22;
Скачать: [xml.tar.bz2];

Вниз

tdatetime   Найти похожие ветки 

← →
SAVA   (2009-01-08 16:31) [0]

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

---

← →
{RASkov} ©   (2009-01-08 16:35) [1]

> [0] SAVA   (08.01.09 16:31)

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

---

← →
{RASkov} ©   (2009-01-08 16:51) [2]

если просто без учета времени, то наверное можно так:
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;

---

← →
SAVA   (2009-01-08 17:11) [3]

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

---

← →
Игорь Шевченко ©   (2009-01-10 01:37) [4]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.02.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c