Депресняк или здравый смысл?

← →
Skyle © (2005-11-25 12:39) [80]

> [79] Ega23 © (25.11.05 12:33)
Очень интересно знать, где он это взял...
У меня не получилось....

procedure TForm1.Button1Click(Sender: TObject);
var
D : TDateTime;
begin
D := Now;
ShowMessage(FormatDateTime("h:n:s:z", D));
D := D + 15/60/24;
ShowMessage(FormatDateTime("h:n:s:z", D));
end;

← →
Ega23 © (2005-11-25 12:41) [81]

> Очень интересно знать, где он это взял...
> У меня не получилось....

Он какую-то аппаратуру адаптирует. Не знаю толком.
Если сильно интересно - могу спросить...

← →
Skyle © (2005-11-25 12:44) [82]

> [81] Ega23 © (25.11.05 12:41)
Чисто из академического интереса, если не сложно.

← →
Ega23 © (2005-11-25 12:52) [83]

> Чисто из академического интереса, если не сложно.

Блин, что-то нету его. Может на обед ушёл.

Но я бы сделал так:
function Today8AM: TDateTime; begin Result := IncHour(Trunc(GetSQLServerDateTime), 8); end;

Депресняк или здравый смысл? Найти похожие ветки