create procedure T
returns (
  Time_Current    timestamp,
  Time_NOW    timestamp
)
as
begin
  Time_Current = current_timestamp;
  Time_NOW = timestamp 'NOW';

  suspend;
end

TIME_CURRENT	        TIME_NOW
19.08.2018 18:14:59.643	19.08.2018 18:14:56.739

create procedure TS
returns (
  Start_Time    timestamp,
  Stop_Time    timestamp,
  All_Time  numeric(15,6)
)
as
begin
  Start_Time = current_timestamp;

-- Здесь тело процедуры которое выполняется секунд пять, ну по крайней мере так говорит IBEXPERT
  Stop_Time = timestamp 'NOW';

  All_Time = (Stop_Time - Start_Time) * 24 * 60 * 60;
  suspend;
end

Start_Time = current_timestamp;

Start_Time = timestamp 'NOW';