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

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

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

TDateTime [D7]

аа2 © (2008-02-04 21:15:00)
Как следует правильно сравнивать две переменные TDateTime? Необходимо узнать, какая из дат "больше" - "т.е. ближе к Now".

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

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

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

Семеныч (2008-02-06 12:15:00) [2]
> Amoeba © (05.02.08 02:10) [4]

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

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

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

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

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

Германн (2008-02-05 02:15:00) [3]

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

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

Amoeba (2008-02-05 02:10:00) [4]

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

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

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

Семеныч (2008-02-04 23:49:00) [5]
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;

palva (2008-02-04 23:00:00) [6]

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

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

Amoeba (2008-02-04 21:18:00) [7]
Так и сравнивай - как два обычных числа, поскольку
t ype TDateTime = type Double;

Наверх

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