KDPoid
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ctrl клик на функции пытается открыть в редакторе исходник с ней...
Смотрим TimeStampToDateTime:
Код:
function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;
var
Temp: Int64;
begin
ValidateTimeStamp(TimeStamp);
...
|
Первое, что она делает, проверяет корректность.
Смотрим ValidateTimeStamp:
Код:
procedure ValidateTimeStamp(const TimeStamp: TTimeStamp);
begin
if (TimeStamp.Time < 0) or (TimeStamp.Date <= 0) or
(TimeStamp.Time >= IMSecsPerDay) then
ConvertErrorFmt(@SInvalidTimeStamp, [TimeStamp.Date, TimeStamp.Time]);
end;
|
Попытка задать в Time количество милисекунд больше, чем бывает в сутках, вызовет ConvertError, что вы и наблюдаете 
Если пляски с конвертацией в TimeStamp и обратно были только ради сдвига на 3 минуты,
то TDateTime - это дробное число. Сутки - единица. Час - 1/24
Time1 := Time1 + 3/24/60; // Увеличит Time1 на 3 минуты.
|
Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 13:18 08-10-2015 | Исправлено: KDPoid, 13:18 08-10-2015 |
|
