اريد ان اعمل جمع لساعات

فمثلا جمع ('to_char(start_time,'hh24:mi'

و عمل insert into other table

by loop in forms

فممكن المساعدة

اريد ان اعمل جمع لساعات
فمثلا جمع ('to_char(start_time,'hh24:mi'
و عمل insert into other table
by loop in forms
فممكن المساعدة

------------------------------------------------------------------------------
الرد على هذا السؤال
1- هو ان تعمل حقل جديد ويسمى الerr_time من النوع NUMBER


begin
if :abs_kind='2'
then

DECLARE
X NUMBER;
Y NUMBER;
Z NUMBER;
T NUMBER;
H NUMBER;
MI NUMBER;
BEGIN
BEGIN
SELECT (DEF_VALUE) INTO T FROM SYS_OPTIONS
WHERE VAR_NAME ='ARR_TIME';
EXCEPTION WHEN NO_DATA_FOUND THEN T:=0;
END ;
H :=TRUNC(T);
MI:=(T- TRUNC(T)) * 100;


X :=TO_NUMBER(TO_CHAR(:ARRIVAL_TIME,'HH')) - H;
Y :=TO_NUMBER(TO_CHAR(:ARRIVAL_TIME,'MI')) - MI;

Z:= (X* 60) + Y;
IF Z > 0 THEN :ERR_TIME:=Z;
ELSE
:ERR_TIME:=0;
END IF;
END;
else
---==========================================================
if :abs_kind ='3'
then
DECLARE
X NUMBER;
Y NUMBER;
Z NUMBER;
T NUMBER;
H NUMBER;
MI NUMBER;
BEGIN
BEGIN
SELECT (DEF_VALUE) INTO T FROM SYS_OPTIONS
WHERE VAR_NAME ='ARR_TIME';
EXCEPTION WHEN NO_DATA_FOUND THEN T:=0;
END ;
H :=TRUNC(T+7);
MI:=((T+7)-TRUNC(T+7)) * 100;


X :=H- TO_NUMBER(TO_CHAR(:ARRIVAL_TIME,'HH24'));
Y :=MI-TO_NUMBER(TO_CHAR(:ARRIVAL_TIME,'MI'));

Z:= (X* 60) + Y;
IF Z > 0 THEN :ERR_TIME:=Z;
ELSE
:ERR_TIME:=0;
END IF;
END;
else
null;
end if;
end if;
end;
------------------
وتتابع بعد ذالك عمل ما تريد
اعتقد انه بعد ذلك يكون سهلا