FormatDateTime - вывод времени

[flug]

Подскажите пожалуйста, у меня есть время в миллисекундах и я хочу вывести его в формате "количество дней:часы:минуты:секунды" Вот например имеется 140516988 миллисекунд и должно получится 01:15:01:56, но не получается и выходит 31:15:01:56. Делаю так FormatDateTime ('dd:hh:nn:ss', 140516988 / (1000 * 24 * 60 * 60)); Что не так делаю?

[evg_m]

Вот например имеется 140516988 миллисекунд

sorry не заметил

/ (1000 * 24 * 60 * 60)

Tdatetime F1

Following are some examples of TDateTime values and their corresponding dates and times:

0 12/30/1899 12:00 am
2.75 1/1/1900 6:00 pm
-1.25 12/29/1899 6:00 am
35065 1/1/1996 12:00 am

смотри что есть "нулевая" дата(выделено).

[Serge_Bliznykov]

FormatDateTime ('dd:hh:nn:ss',
          TimeStampToDateTime( MSecsToTimeStamp(140516988) ));

[flug]

Большое спасибо за ответы, но....

evg_m
Честно говоря я ничего не понял.

Serge_Bliznykov
Код работает, но не всегда, вот например почему-то если попытаться преобразовать 1179867 мсек. (это 19мин. 39 сек.), то вылетает ошибка "0.1179867 is not a valid timestamp". Совершенно не понятно в чём дело.

[Serge_Bliznykov]

если попытаться преобразовать 1179867 мсек. (это 19мин. 39 сек.), то вылетает ошибка "0.1179867 is not a valid timestamp". Совершенно не понятно в чём дело.

эти "мудрецы" в новых версиях Delphi добавили проверку на валидность даты...

там такое

procedure ValidateTimeStamp(const TimeStamp: TTimeStamp);
begin
  if (TimeStamp.Time < 0) or (TimeStamp.Date <= 0) then
    ConvertErrorFmt(@SInvalidTimeStamp, [TimeStamp.Date, TimeStamp.Time]);
end;

т.е. дата не может быть меньше или равна нулю...
зачем они это сделали?! Не знаю... видимо, где-то вылазили косяки...


Как вариант обхода, предлагаю Вам такое решение
(использовать старую процедуру преобразования, без проверки):

const
  FMSecsPerDay: Single = MSecsPerDay;
  IMSecsPerDay: Integer = MSecsPerDay;

function OldTimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;
asm
        MOV     ECX,[EAX].TTimeStamp.Time
        MOV     EAX,[EAX].TTimeStamp.Date
        SUB     EAX,DateDelta
        IMUL    IMSecsPerDay
        OR      EDX,EDX
        JNS     @@1
        SUB     EAX,ECX
        SBB     EDX,0
        JMP     @@2
@@1:    ADD     EAX,ECX
        ADC     EDX,0
@@2:    PUSH    EDX
        PUSH    EAX
        FILD    QWORD PTR [ESP]
        FDIV    FMSecsPerDay
        ADD     ESP,8
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := FormatDateTime ('dd:hh:nn:ss',
     OldTimeStampToDateTime( MSecsToTimeStamp(1179867) ) );

end;

[flug]

Serge_Bliznykov
Огромное вам спасибо за помощь и разъяснения!

[phomm]

Если кто-то ещё столкнётся, я решил подобную проблемку вот таким образом:

FormatDateTime('hh:nn:ss', TimeStampToDateTime(MSecsToTimeStamp(MSecsPerDay + endtime)));

т.е. просто добавив к количеству миллисекунд константу (она в SysUtils) соответствующую одним суткам

Обращаю внимание, что в этом случае (а именно когда выводим только в пределах меньше 1 суток, со строкой форматирования 'hh:nn:ss' и подобными, без дней и т.д.) всё ок, но при попытке работать с большими диапазонами надо учитывать, что вручную добавлены 1 сутки