Скачать: CL | DM;

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

← →
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;


---

← →
Skyle ©   (2005-11-25 13:10) [84]

> [83] Ega23 ©   (25.11.05 12:52)
А я не вижу разницы, если честно.....
По крайней мере в реализации.

---

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

Скачать: CL | DM;



Память: 0.58 MB
Время: 0.032 c