просуммировать время

[Serge_Bliznykov]

согласен с Аватар.

Сообщение от fobass

time_count: 30.12.1899 0:00:08

fobass, а что Вы хотели увидеть?

я же сразу сказал, найти сумму разниц - не проблема, важно то, как Вы потом заходите её интерпретировать.

для вашего случая, например, можете почитать тему тут - FormatDateTime - вывод времени

пример использования для ваших дат:

implementation
uses DateUtils;

{$R *.DFM}

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);
var 
  dt1, dt2 : TDateTime;
begin
  DateSeparator := '.';
  dt1 := StrToDateTime('21.09.2012 12:48:27');
  dt2 := StrToDateTime('22.09.2012 12:48:35');

  Edit1.Text := 
      FormatDateTime ('dd:hh:nn:ss',
          OldTimeStampToDateTime( MSecsToTimeStamp( MilliSecondsBetween(dt1, dt2) ) ));


end;