Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Работа с Датой и Временем [D6, WinXP]

DDi © (2002-09-07 05:12:00)
Приветствую, уважаемые!
У меня есть два вопроса по использованию Data и Time в Delphi.
1). Почему не работает такой код:
if (Time=DateTimePicker1.Time) and (Date=DateTimePicker2.Date) then ...
а, вот этот проходит без проблемм:
if (TimeToStr(Time)=TimeToStr(DateTimePicker1.Time)) and (DateToStr(Date)=DateToStr(DateTimePicker2)) then
...

2). Как сравнить текущее время/дату и время/дату из DateTimePicker? Т.к. такой код не работает:
if (Time>=DateTimePicker1.Time) or (Date>=DateTimePicker2.Date) then ...

Зараннее спасибо всем ответившим!

TTCustomDelphiMaster (2002-09-07 10:41:00) [1]
Дело в том, что функция time возвращает только время, т.е. ее результат всегда меньше 1. А функция Date возвращает целое число, т.е. число дней без часов минут и т.д.
А вы смотрели чему равно DateTimePicker1.Time и DateTimePicker2.Date? Если нет то проверьте и сделайте выводы.

ShowMessage(floattostr(time)+#13#10+
floattostr(DateTimePicker1.Time));
ShowMessage(floattostr(date)+#13#10+
floattostr(DateTimePicker2.Date));

MBo (2002-09-07 06:39:00) [2]
1.
>Почему не работает такой код
Да работает он, но не совсем так, как задумано.
Вещественные числа представляются с ограниченной точностью, поэтому сравнивать их нужно осторожно, например, чтобы модуль разницы была в пределах некоего допуска.
При приведении к строке происходит округление, поэтому вероятность совпадения выше ;)

2. такой код тоже работает с теми же ограничениями

Статья А.Григорьева на delphi.Vitpc.com Helloworld
Неочевидные особенности вещественных чисел

Наверх

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