Главная страница
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.014 c
4-1205732698
vi_RUS
2008-03-17 08:44
2009.02.22
Как вместо одного клика мыши генерить шесть?


2-1231601420
Lukos
2009-01-10 18:30
2009.02.22
Что предпочтительнее Table1.Append или Table1.Insert ?


2-1231824561
r900000
2009-01-13 08:29
2009.02.22
Работа с Мемо компонентами


3-1215427949
REA
2008-07-07 14:52
2009.02.22
Вложенный запрос с 2мя параметрами


15-1230106923
igan
2008-12-24 11:22
2009.02.22
Формат хранения времени в файле