Почему стало ломаться на D11? "739002.86400000' is not a

Question

Почему стало ломаться на D11? "739002.86400000' is not a

valid timestamp"
function IncDateTime(aStamp:TTimeStamp;aKind:TTriggerKind;aInterval:Integer):TDateTime;
//aStamp = 26.23:00, aInterval = 30 мин
procedure SetAlarmItem_;
var
Max_: integer;
begin
Max_ := 24 * 60 * 60 * 1000;
// if aStamp.Time > Max_ then //D7, ломалось в D11
if aStamp.Time >= Max_ then
begin
Inc(aStamp.Date);
Dec(aStamp.Time, Max_);
end;
end;
begin
case aKind of
tkMinute:
begin
Inc(aStamp.Time,(60*aInterval*1000));
SetAlarmItem_;
end;
...
Result:=TimeStampToDateTime(aStamp);
end;

#lazarus #programming #russian

0

27.04.2024

8 ответов

56 просмотров

Катерина Свиридова Автор вопроса

Михаил Усков
может, потому что это 3923 год? на нормальных зна...

Год просто не стала писать. Вчера все было. Как поняла 26.23:30+30 мин = 26.24:00, но такой даты нет, а есть 27.00:00. Неужели в D7 была, а теперь перестала? )

0

12 дней назад

Igor

86400000 как бы намекает

0

12 дней назад

Михаил Усков

Катерина Свиридова
Год просто не стала писать. Вчера все было. Как по...

Есть ведь IncSecond/IncMinute/IncHour и т.д., сразу с TDateTime без разделений на дату и время зачем нужны эти 24*60 и т.п.?

0

12 дней назад

Handatros