Текущий архив: 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.039 c