TDateTime

← →
аа2 (2008-02-04 21:15) [0]

Как следует правильно сравнивать две переменные TDateTime? Необходимо узнать, какая из дат "больше" - "т.е. ближе к Now".

← →
Amoeba © (2008-02-04 21:18) [1]

Так и сравнивай - как два обычных числа, поскольку
type TDateTime = type Double;

← →
palva © (2008-02-04 23:00) [2]

> Необходимо узнать, какая из дат "больше" - "т.е. ближе к Now".

ближе к Now не всегда бывает больше.

← →
Семеныч (2008-02-04 23:49) [3]

function SelectNearestDate(Date1, Date2: TDateTime): TDateTime;
var
D: TDateTime;
begin
D := Now;
if Abs(Date1 - D) < Abs(Date2 - D) then
Result := Date1
else
Result := Date2
end;

← →
Amoeba © (2008-02-05 02:10) [4]

> Семеныч (04.02.08 23:49) [3]

Ну ты и альтруист! Зачем молодежь развращаешь? Да и собственных пальцев тебе не жаль.

P.S. Не тот это случай, чтобы вместо удочки давать рыбу. Ведь сей отрок и оборзеть может.

← →
Германн © (2008-02-05 02:15) [5]

> Amoeba © (05.02.08 02:10) [4]

Через пару месяцев он "остынет". :)
Такое уже было много-много раз.

← →
Семеныч (2008-02-06 12:15) [6]

> Amoeba © (05.02.08 02:10) [4]

> Ну ты и альтруист!
Отдаю долги.

> Зачем молодежь развращаешь?
Детский учебный примерчик для разбора и осмысления. Нормально.

> Да и собственных пальцев тебе не жаль.
Полминуты топтания клавы - не в лом. Ты в "прочее" загляни... как там с курением борются... гы... я тащусь...

> вместо удочки давать рыбу
Дать удочку тоже мало. Надо еще научить ею пользоваться. Странно, но об этой очевидной вещи обычно забывают.

> Ведь сей отрок и оборзеть может.
Это ни из чего не следует. Если оборзеет - огребет, здесь таких не любят (насколько я успел заметить). А пока что - презумпция невиновности.

← →
Правильный_Вася (2008-02-06 17:20) [7]

> ближе к Now не всегда бывает больше.

очень верное замечание
даже для будущего календарь уже расписан

TDateTime Найти похожие ветки