Change decimal format to time format ie 1.5 to 1:30

Question

Hi I need to create a field such that when you enter a value in decimal format it gets converted to time format.
Eg change 1.5 to 1.3 ..... Can any one help cheers.... any light on how to do this would be much appreciated.

Answer 1

create table num_to_time (seq number, val number, dtvl date);
insert into num_to_time
select 1 seq, 1.5 val, null dtvl from dual
union all
select 2, 2.25, null from dual;
commit;
create or replace procedure p_numtotime is
v_seq num_to_time.seq%type;
v_val num_to_time.val%type;
v_date num_to_time.dtvl%type;
cursor c1 is select * from num_to_time;
begin
open c1;
loop
fetch c1 into v_seq,v_val,v_date;
exit when c1%notfound;
update num_to_time set
dtvl = to_date(to_char(trunc(sysdate)) ||
' 0'||trunc(v_val)||':'||to_char(mod(v_val,trunc(v_val))*60)||':00',
'dd/mm/yyyy hh24:mi:ss')
where seq = v_seq;
end loop;
commit;
close c1;
end;
exec p_numtotime;
drop table num_to_time;
drop procedure p_numtotime;