مقارنة بين تاريخين

[mahmoudmahmoud]

هذا فورم لحساب تاريخين
وهذا الموضوع منقول

[mahmoudmahmoud]

عفوا الملف لايمكن ارفاقة ولا اعرف اية هو السبب

[mahmoudmahmoud]

الكود

declare 
a number;
b number;
c number;
 d number;
 e number;
 from2 number;
 to2 number;
begin MESSAGE('؟؟ ؟؟؟؟؟؟؟ ؟؟ ؟؟؟؟؟؟ ؟؟؟؟؟ ');
MESSAGE('؟؟ ؟؟؟؟؟؟؟ ؟؟ ؟؟؟؟؟؟ ؟؟؟؟؟ ');
select months_between(:to1,:from1) into a from dual;
select trunc(a) into b from dual;
 select trunc(b/12) into :years from dual; 
select mod(b,12) into :months from dual;
---------
 if b=0 then
begin c:=substr(a,1,7);
   d:=to_number(c/0.03225806);
   select round(d) into :days from dual;
end;
 else
----------
 	if b>=1 and b<=9 then 
begin c:=substr(a,2,9);
   d:=to_number(c/0.03225806);
   select round(d) into :days from dual;
end;
 	else
----------
 			if b>=10 and b<=99 then 
begin c:=substr(a,3,9);
   d:=to_number(c/0.03225806);
   select round(d) into :days from dual;
end;
 	else
------- 		
			if b>=100 and b<=999 then 
begin c:=substr(a,4,9);
   d:=to_number(c/0.03225806);
   select round(d) into :days from dual;
end;
 
-----
			if b>=1000 and b<=9999 then 
begin c:=substr(a,5,9);
   d:=to_number(c/0.03225806);
   select round(d) into :days from dual;
end;


 end if;
 end if;
 end if;
 end if;
 end if;
------  
select to_char(to_date(:from1),'dd') into from2 from dual;
select  to_char(to_date(:to1),'dd') into to2 from dual; 
if  to2<from2 then 
	select :days-1 into :days from dual;
end if; 

end;
--go_block('mahmoud');
go_record('new');

[mustafagamiel]

السلام عليكم
أخي الكريم
قم بوضع الفورم +الجدول وضعهم في مجلد واضغطه باستخدام برنامج الضغط winrar ثم ارفعه للمنتدى
وستنجح معك العملية بإذن الله

[mahmoudmahmoud]

الملف

DATES.rar