السلام عليم ورحمة الله وبركاتة

هذا بروسيجر يقوم بعرض تقويم Calendar ، لشهر الذي تطلبه. وكل ماعليك ان تدخل له رقم الشهر والسنة ليطبعه لك

create or replace procedure calendar(month varchar,year varchar) as type weeks
is varray(6) of varchar2(21); 
l_weeks weeks := weeks(); 
l_last_day number;
l_w_day number; 
begin l_weeks.extend(6); 
l_w_day := to_number(to_char(to_date(month||year,'MMYYYY'),'D'));
l_last_day := to_number(to_char(last_day(to_date(month||year,'MMYYYY')),'DD'));
for i in 1..l_last_day loop
l_weeks(trunc((i+l_w_day-2)/7)+1) := l_weeks(trunc((i+l_w_day-2)/7)+1)||' '||rpad(to_char(i),2); 
end loop;
dbms_output.put_line('----- '||month||'-'||year||' -----'); 
dbms_output.put_line('--------------------');
dbms_output.put_line('Su Mo Tu We Th Fr Sa'); 
dbms_output.put_line(lpad(l_weeks(1),20,'-'));
for i in 2..6 loop
dbms_output.put_line(l_weeks(i));
end loop;
dbms_output.put_line('--------------------');
end;

وللامانة العلمية فلست من عملة . انما وضعته هنا للاستفادة.



تم إضافة الملف بالمرفقات
إدارة المنتدي

show_calendar.txt

الف شكر كود رهيب

مشكور على الكود و جزاك الله الف خير

شكرا لك...

شكرا اخى على الكود الرائع والناقل للخير كمن صنعه

هاجروب ونرد عليك
وطبعا الرد
جزاك الله 100000000000000000000000 خير

مشكور وجزاك الله خيرا

على الكود الرائع

شكراً اخي ابو صالح

THANK YOU ABU SALEH VERY MUCH ..............

thank for you
abu salih

والله فكرة جميلة
جزاك الله خيرا عليها

جزاك الله خيراً أخي الكريم ولكن كنت إريد أن أعرف طريقة تشغيلها لأنها لم تتضح لي .... وجزاك الله خيراً على هذا الجهد الرائع .

جزاك الله الخير على نشر هذا الموضوع وشكرا لك على صراحتك

جزاكم الله خيرا على هذا الكود
وللعلم تم تجربته على الـ SQL prompt ولكن يجب اجراء هذا الأمر قبل تشغيله

SET SERVEROUTPUT ON

جزاك الله خير

راااااااااااااااائع
مشكوووووووووووووور

مشكووووووووووووووووووووووووور

thanks

جزاك الله خيرا يا اخى

الف شكر ياغالى

للحصول على التاريخ الهجري بإمكانك كتابة

alter session set nls_calendar = 'arabic hijrah';

او

alter session set nls_calendar = 'English Hijrah';

ومشكور يا اخوي على المشاركة الطيبة

جزاك الله خيرا