[SK]

Это несколько сложнее. Но...

Во вкладку "Код" между глобальным объявлением переменных и глобальной процедурой вставить функцию определения длины временного интервала по его началу и концу TimeMinus(Начало, Конец):

Нажмите для просмотра содержимого...

function TimeMinus(TimeBegin: String; TimeEnd: String): String;
var      
TEnd: TDateTime = 0;
TBegin: TDateTime = 0;
TRes: TDateTime = 0;
TResStr: String;
begin
    TBegin := StrToDateTime(TimeBegin);
    TEnd   := StrToDateTime(TimeEnd);
TRes := TEnd - TBegin;                     
if TRes >= 1 then
   begin
      TResStr := DateTimeToStr(TRes);
      TResStr := IntToStr(Trunc(TRes)) + ' сут. ' + Copy(TResStr, Length(TResStr) - 7, 8);
   end
else
   begin
      TResStr := DateTimeToStr(TRes);
      TResStr := Copy(TResStr, Length(TResStr) - 7, 8);
   end;
result := TResStr;
end;

Должно получиться что-то типа:

Затем в нужной ячейке вызвать эту функцию, передав в качестве параметров начало и конец временного отрезка, длину которого надо вычислить.

В Вашем случае:

[TimeMinus(<Dataset1."I1_S_TIME">,<Dataset1."I1_E_TIME">)]

всё...