[Mishko]

Подскажите плиз, возникает ошибка при преобразовании ниже , когда время 23.57 или 23.58 или 23.59. Когда время 23.09, например, все хорошо.

Код:

var
T: TTimeStamp;
...
  Time1:=strtodatetime('08.10.2015 23:59');
  //Time1:=strtotime('23:09');
  T := DateTimeToTimeStamp(Time1);
 // T := DateTimeToTimeStamp(Time);
  inc(T.Time, Timer.Interval);
  fNextTime      := TimeStampToDateTime(T);
  Timer.Enabled := True;  // Включить таймер

Timer.Interval равен 3 мин, получается переход через сутки

[NumLock]

Код:

var
  t1, t2: TDateTime;
begin
  t1:=StrToDateTime('08.10.2015 23:59');
  t2:=t1+3/(24*60);
  Edit1.Text:=DateTimeToStr(t1);
  Edit2.Text:=DateTimeToStr(t2);
end;

в Edit1 будет "08.10.2015 23:59:00", а в Edit2 "09.10.2015 0:02:00". так?

[Mishko]

вместо inc(T.Time, Timer.Interval);
IncMilliSecond(Time, Timer.Interval);