create domain DURATION   -- Длительность
double precision^

create procedure FORMAT_TIME_INTERVAL(        -- Выдает кол-во часов и минут в формате HH ч MM мин
  TIME_INTERVAL type of DURATION              -- Временной интервал
)
returns (
  RESULT varchar(40)                          -- Результат
)
as
declare variable AH integer;
declare variable AM integer;
begin
 if ( (TIME_INTERVAL is null) or (TIME_INTERVAL < 0) )
    then RESULT = '';
    else begin
          if (TIME_INTERVAL > 0.000000009)
             then AH = TIME_INTERVAL*24 - 0.5;
             else  AH = 0;
          AM = (TIME_INTERVAL - cast(AH as double precision)/24)*1440;
          if (AM = 60)
             then begin
                  AH = AH + 1;
                  AM = 0;
                  end
          if (AH < 10)
             then RESULT = '0'||AH||' ч ';
             else RESULT = AH||' ч ';
          if (AM < 10)
             then RESULT = RESULT||' 0'||AM||' мин ';
             else RESULT = RESULT||' '||AM||' мин ';
         end
 suspend;
end^