this is my solution:
declare
vFecIni date;
vFecFin date;
vInicio number;
vFinal number;
function milisegundos return number is
vRes number;
begin
select round(
( (horas * 3600000000)
+ (minutos * 60000000)
+ (segundos * 1000000)
+ microsegundos ) / 1000 )
into vRes
from ( select to_number(substr(tiempo, 1,2)) as horas,
to_number(substr(tiempo, 4,2)) as minutos,
to_number(substr(tiempo, 7,2)) as segundos,
to_number(substr(tiempo, 10)) as microsegundos
from ( select to_char(ct, 'HH24:MI:SS.FF') as tiempo
from (select current_timestamp as ct from dual) ) );
return vRes;
end milisegundos;
function ms_to_char(pMs number) return varchar2 is
CMILIS constant number:= 1000;
CMINSEC constant number:= 60;
CHORMIN constant number:= 60;
vHoras number:= 0;
vMinutos number:= 0;
vSegundos number:= 0;
vMilisegundos number:= 0;
vResto number:= 0;
vRes varchar2(32767);
begin
--
-- Milisegundos
vMilisegundos:= pMs;
--
-- Segundos
if CMILIS < vMilisegundos then
vResto:= mod(vMilisegundos, CMILIS);
vSegundos:= (vMilisegundos - vResto) / CMILIS;
vMilisegundos:= vResto;
--
-- Minutos
if CMINSEC < vSegundos then
vResto:= mod(vSegundos, CMINSEC);
vMinutos:= (vSegundos - vResto) / CMINSEC;
vSegundos:= vResto;
--
-- Horas
if CHORMIN < vMinutos then
vResto:= mod(vMinutos, CHORMIN);
vHoras:= (vMinutos - vResto) / CHORMIN;
vMinutos:= vResto;
end if; -- Horas
end if; -- Minutos
end if; -- Segundos
--
-- Resultado en formato texto: HH24:MI:SS.FF
vRes:= lpad(vHoras, 2, '0') || ':'
|| lpad(vMinutos, 2, '0') || ':'
|| lpad(vSegundos, 2, '0') || '.'
|| lpad(vMilisegundos, 3, '0');
return vRes;
end ms_to_char;
procedure parada_de(de number) is
CSEGUNDO constant number:= 1000;
vFec date:= sysdate;
vIni number:= milisegundos;
vFin number;
vMax number:= de * CSEGUNDO;
vTot number;
begin
vFecIni:= vFec;
loop
vFin:= milisegundos;
vTot:= vFin - vIni;
exit when vTot > vMax;
end loop;
vFecFin:= sysdate;
end parada_de;
begin
vInicio:= milisegundos;
parada_de(2);
vFinal:= milisegundos;
dbms_output.put_line( 'Inicia en ' || to_char(vFecIni,'hh24:mi:ss') || ' (' || vInicio
|| '), finaliza en ' || to_char(vFecFin,'hh24:mi:ss') || ' (' || vFinal
|| '), duró ' || ms_to_char(vFinal - vInicio)
);
end;