Форум: "Начинающим";
Текущий архив: 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.45 MB
Время: 0.005 c
