Média de horas - Firebird

select dateadd( minute, avg( datediff( minute, hora_chegada, date '1-Jan-2023' ) ), date '1-Jan-2023' )
from chegadas

    select Cast( AVG( 
              (CAST(SUBSTRING(hora_chegada FROM 1 FOR 2) AS INTEGER) * 60)  + 
              '(CAST(SUBSTRING(hora_chegada FROM 4 FOR 2) AS INTEGER)) 
              ) as float) / 60 as Retorno
         From chegadas
      //Procuro a posição do ponto decimal   
      p := Pos(',',retorno);
     //Se não tem o ponto decimal, se não tem pq é hora cheia, exemplo: 8
      if P = 0  then
      Begin
         Hr := retorno; //Hora vai ser o resultado
         mn := 0;      //Zero minutos
      End
      else
      begin
         //encontra o total de horas do numero inteiro. Ex. se o resultado for 7,066 vai buscar 7 horas
         Hr := Copy(retorno,1,p-1);
         //Acrescenta 0 no lugar das horas e busca os decimais. Ex. Se era 7,066  os minutos vão ficar 0,066 
         Parada := '0'+Copy(retorno,p,8);
         //Transforma a string em Float 
         mn  := StrToFloatDef(Parada,0);
         //multiplico os decimais por 60 minutos e arredondo o valor. Ex. 0,066 * 60 = 3,96
         mn  := RoundTo(mn * 60,-2);
      end;
     //Transformo o resultado de hr=hora e mn=minutos em  hh:mm.
     //Acrescentando zeros ao numero inteiro.  Ex. hr=7 mn 4  em 07:04
      hm := AcrescZero(hr,2) +':'+Copy(AcrescZero(FloatToStr(mn),2),1,2);