[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