Работа с Датой и Временем

← →
DDi (2002-09-07 05:12) [0]

Приветствую, уважаемые!
У меня есть два вопроса по использованию 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 ...

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

← →
MBo © (2002-09-07 06:39) [1]

1.
>Почему не работает такой код
Да работает он, но не совсем так, как задумано.
Вещественные числа представляются с ограниченной точностью, поэтому сравнивать их нужно осторожно, например, чтобы модуль разницы была в пределах некоего допуска.
При приведении к строке происходит округление, поэтому вероятность совпадения выше ;)

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

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

Дело в том, что функция time возвращает только время, т.е. ее результат всегда меньше 1. А функция Date возвращает целое число, т.е. число дней без часов минут и т.д.
А вы смотрели чему равно DateTimePicker1.Time и DateTimePicker2.Date? Если нет то проверьте и сделайте выводы.

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

Работа с Датой и Временем Найти похожие ветки