Цитата:
Сообщение от 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;
Админ: Пользуемся тегами при оформлении кода!