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

Вниз

Сравнение дат   Найти похожие ветки 

 
DN   (2004-06-02 11:58) [0]

Подскажите, плз, есть ли функция для сравнения дат?


 
Vlad ©   (2004-06-02 12:00) [1]


> DN   (02.06.04 11:58)  

Есть знак "=" этого мало ?


 
Vlad ©   (2004-06-02 12:02) [2]

... а так же "<" и ">"


 
jack128 ©   (2004-06-02 12:05) [3]


> Есть знак "=" этого мало ?
иногда мало.

const
 Tochnost = 0.00001;

function CompareDate(d1, d2: TDateTime): integer;
var
 delta: double;
begin
 delta := d1 - d2;
 if delta > Tochnost then Result := 1
 else if delta < -Tochnost then Result := -1
      else Result := 0;
end;


 
Anatoly Podgoretsky ©   (2004-06-02 12:11) [4]

Почти все операторы отношений применимы



Страницы: 1 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
14-1085419845
Lm
2004-05-24 21:30
2004.06.13
shell+XP


1-1085933762
ilnarab
2004-05-30 20:16
2004.06.13
после запуска диалог появился в центре формы?


3-1084950254
zorik
2004-05-19 11:04
2004.06.13
Сортировка


3-1085388083
NewUser
2004-05-24 12:41
2004.06.13
Система безопасности в IB6


14-1085644540
syte_ser78
2004-05-27 11:55
2004.06.13
два систрея