فى طريقه اكتب اليوم والشهر ..  يظهر السنه اتومتيك فى الفورمه 

لو فرضنا أن لديك الأيتى التالي MNTHTXT   لكتابة الشهر  والأيتم التالي   DAYTXT لكتابة اليوم 

فإنك بالكود التالي ستحصل على السنة الحالية تلقائياً :

:GTYEARS :=  :DAYTXT || '/' || :MNTHTXT || '/' || TO_CHAR(sysdate, 'YYYY');

وشكراَ

تم تعديل 3 مارس 201412 سنة بواسطة Faisal Matari

السلام عليكم

 

SELECT TO_CHAR (SYSDATE, 'yyyy') YEAR
  INTO :YEAR
  FROM DUAL

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

 

 

متشكر جداااااااا  يا اخوانى ع الاهتمام والرد 

ممتاز ولكن اذا اردنا اضهار

الشهر الحالي والسنة الحالية اوتوماتيك عند تشغيل الفورمه

 

تحياتي للجميع

على مستوى الفورم

WHEN-NEW-FORM-INSTANCE

ندخل التالي :

select TO_CHAR(SYSDATE,'YYYY') INTO :YEARS FROM SYS.DUAL;
select TO_CHAR(SYSDATE,'mm') INTO :MON  FROM SYS.DUAL;

شرح
بحيث اسم الحقل للسنة YEARS 
واسم الشهر MON  

الحمد لله تم حل المشكلة بهذه الطريقة

function to_date_part(indate varchar2)

return date is

  st varchar2(10) :='';

  st_len number;

  cur_date date := sysdate;

  p varchar2(1) := '.';

  fmt varchar2(10) := 'DD.MM.YYYY';

  dd varchar2(2);

  mm varchar2(2) := to_char(cur_date,'MM');

  yyyy varchar2(4) := to_char(cur_date,'YYYY');

  m1 number;

  m2 number;

  delim number := 0;

begin

  for i in 1..NVL(length(indate), 0) loop

    if substr(indate,i,1) in ('0','1','2','3','4','5','6','7','8','9') then

      st := st||substr(indate,i,1);

    else

      st := st||p;

      delim := delim+1;

    end if;

  end loop;

  st_len := nvl(length(st),0);

--ONLY DELIMETER, NO DIGITS -> CURRENT DATE

  if delim>0 and st_len=1 then

    return cur_date;

  end if;

--ONLY DIGITS, NO DELIMETERS

  if delim=0 then

--  FORMAT 'DD'

    if st_len<3 then

      dd := st;

--  FORMAT 'DDMM'

    elsif st_len=4 then

      dd := substr(st,1,2);    

      mm := substr(st,3);

--  FORMAT 'DDMMY | YY | YYY | YYYY'

    elsif st_len>4 then

      dd := substr(st,1,2);    

      mm := substr(st,3,2);

      yyyy := substr(yyyy,1,4-NVL(length(substr(st,5)), 0)) || substr(st,5);

    end if; 

--ONE DELIMETER, FORMAT 'DD/MM'

  elsif delim=1 then

--    dd := substr(st,1, st_len-instr(st,p));

    m1 := instr(st,p);

    dd := substr(st,1, m1 - 1);

    mm := substr(st,m1+1);

--TWO DELIMETERS, FORMAT 'DD.MM.Y | YY | YYY | YYYY'

  elsif delim=2 then

    m1 := instr(st,p);

    m2 := instr(st,p,1,2);

    mm := substr(st, m1+1, m2-m1-1);

    dd := substr(st,1, m1-1);    

    yyyy := substr(yyyy,1,4-NVL(length(substr(st,m2+1)), 0)) || substr(st, m2+1);

  else

    raise no_data_found;

  end if;

  return to_date(dd||p||mm||p||yyyy, fmt);

exception

  when others then

    raise no_data_found;

end;

/*

--post-text-item

 :DATE_FIRST := to_char(to_date_part(:DF),'DD-MM-YYYY');

--طريقة استخدام الوضيفة

*/