[Вовка]

Сообщение от lmikle

Код:

const
  OneMinute = 1/24/60;
var
  MyTime : TDateTime;
begin
  MyTime := DateTimePicker1.Time; // инициализация, типа считали время с контрола
  MyTime := MyTime + OneMinute*3; // +3 минуты
end;

Так?

PS. Есть еще спец. функции в модуле DateUtils, типа IncMinute. Но они делают примерно ровно тоже самое.

спасибо использовал спец функции

Код:

procedure TForm1.Button3Click(Sender: TObject);
var t:tdatetime;
Hour, Min, Sec, MSec: Word ;
begin
t:=Now;
  DecodeTime(t, Hour, Min, Sec, MSec);
t:= incMinute(t,3)  ;
Caption := 'Сегодня '+IntToStr(Min);
end;

Админ: Пользуемся тегами при оформлении кода!