[SQL-Injector]

Никак не разберусь, как можно определить текущие дату и время. Подскажите плzzzzzzzzz!

[SQL-Injector]

Всем спасибо =). Уже разобрался =). Моя реализация следующая:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
t:TTime;
d:TDate;
begin
t:=time;
d:=date;
label1.Caption:=DateToStr(d)+'_'+TimeToStr(t);
end;

[VladimirD]

А как к текущей дате прибавить часы (надо прибавить 38 часов)?

[Рудольф]

Ну можно написать так:

Код:

var a:TDateTime;
begin
a:=time;
a:=a+strtotime('38:00:00');
end;

[VladimirD]

Вылитает с такой ошибкой Project raised exception class EConvertError with message "38:00:00' is not a valid time'.

[:S.p.a.m.]

а ты уверен что бывает 38 часов 0 минут и 0 секунд? помойму максимум 23:59:59

[Рудольф]

Да, там надо вычитать 24, пока меньше 24 не станет, а потом прибавить соотв. число дней. Тока так.

[Karsh]

Используйте модуль DateUtils:

Код:

uses
  DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b: TDateTime;
begin
  a:= Now;
  b:= IncHour(a, 38);
  ShowMessage(DateTimeToStr(a) + #13#10 + DateTimeToStr(b));
end;