Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.02.22;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
2-1231824561
r900000
2009-01-13 08:29
2009.02.22
Работа с Мемо компонентами


2-1231656525
pavelkq
2009-01-11 09:48
2009.02.22
Пропорциональный ресайз картинки под Imagelist и DrawGrid


10-1152894438
TStas
2006-07-14 20:27
2009.02.22
Как вписывать что-то в вордовскую таблицу?


15-1230521035
Slider007
2008-12-29 06:23
2009.02.22
С днем рождения ! 29 декабря 2008 понедельник


15-1230290011
GEN++
2008-12-26 14:13
2009.02.22
Есть вакансия программиста С для микроконтроллеров ATMEL