ارجو المساعدة فى هذا الفانكشن

[محمد سعيد]

السلام عليكم اخوانى الكرام فى هذا المنتدى الجميل
اريد المساعدة او الفكرة لعمل فانكشن نعطيها الاسم تعمله ريترن معكوس يعنى مثلا اديلها اسم ali
ترجعة ILA
,وعلى فكرة كان سؤال فى احد المقابلات وليس اختراعا

[egyhamada]

الكود ده انا عملتة و جربيتة و النتيجة تمام

FUNCTION FN_REVERSE (P_NAME VARCHAR2 )RETURN CHAR IS
vR VARCHAR2(100);
vName VARCHAR2(100);
vTemp VARCHAR2(1);
BEGIN 
vName := P_NAME;
FOR I IN 1 .. LENGTH(P_NAME) LOOP
 SELECT SUBSTR(vName,-1) INTO vTemp FROM DUAL;
 vR := vR||vTemp;
vName :=  SUBSTR(vName,1,LENGTH(vName)-1);
END LOOP;

RETURN(vR);


END;

[محمد سعيد]

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