مهم جدا للجميع

اذا كنت انها موجودة فانا لا اعرف ولكني اعرف اني سوبتها في فيجوال بيسك وطبعا وصلت الى حتى 9 ارقام بالعربي والانجليزي واللانجليزي اسهل وطبعا عقدتني لين صارت بس الحمد لله صارت وهي تعتمد على ادخال كل عدد خانات الى اجراء لاعطاء الرقم على حسب خانة الاحاد والعشرات والميئات

أخي العزيز محمد هل تسطتيع أن ترسلها لي ؟

أقصد التي نفذتها بواسطة الفيجول بيسك

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

___________________________

ولن ترضى عنك اليهود ولا النصرى حتى تتبع ملتهم

شكرا للاخ moh على السؤال لان الجميع يحتاجه

مند 8سنوات كتبت هذا البرنامج بلغة الكوبول وهو يشتغل منذ ذلك الوقت في أكثر المنظومات إنتشارا في بلادنا وهي منظومة جباية الكهرباء ويصل التفقيط إلى 12 رقم وهو برنامج معقد كثيرا لو أردت هذا البرنامج ارسل لك نسخة منه

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

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

خذ هذه الامثله شف تنفع

المثال الاول

المثال الثاني

الأخ العزيز أبو فيصل

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

أخوك محمد المتولي

ـــــــــــــــــــــــــــــــــــــ

ولن ترضى عنك اليهود ولا النصرى حتى تتبع ملتهم

أخي العزيز في قسم الادوات انا حاط اداة عرض ولكنها ليست كامله لانني قمت ببيعها لشركه لتسويقها واعذرني ولا كان فتحت الكود

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

الاخوه الافاضل

بالنسبه للموضوع الذي قد صرح من قبل الاخ moh

انا عندي نفس السؤال ولكن هل يمكن تنفيذ نفس

الشي عن طريق ال developer الخاص ب Oracle او لا؟

وكيف يتم ذلك ؟

وشكرا

إخوتي، جربوا هذه الطريقة مع تغيير المعطيات حسب ما لديكم، من الفرضيات الآتيه

1. إسم العملة (ريال)

2. إسم الجزء من العملة (فلس) وهي ثلاثة خانات عشرية

3. الحقل الذي به القيمة المراد تحويلها إلة مبلغ بالحروف net_amt

4. إسم ملف البيانات DATA_TAB

SELECT TO_CHAR(TO_DATE(TRUNC(net_amt),'J'),'JSP')

,'RIALS, AND',

TO_CHAR(TO_DATE(((((net_amt) - TRUNC(net_amt)) * 1000),'J'),'JSP'), 'FILS'

FROM data_tab

WHERE NVL(net_amt,0) > 0

مع مراعاة تغيير القيمة من 1000 إلى قيمة تتساوى فيها الأصفار مع عدد الخانات العشرية في الكسر من العملة المحلية. كما أرجو نسخ هذه الرسالة ولصقها في وورد حتى تظهر الأوامر بشكلها الصحيح. وسأبحث في إمكانية إظهار هذه العبارة بالعربية كما هي ستظهر هنا باللغة الإنجليزية.

مع تحياتي

أخي السني ...

آسف حقيقة لم أتمكن من فهم ما تفضلت به في ردك على هذا الموضوع ،، فأرجو التوضيح ...

++++++++++++++++++

وأرجو من كل من يريد هذه الدالة أن يراسلني على البريد التالي

فلدي نسخة منها بالأوراكل وسأرسلها له إن شاء الله ..

+++++++++++++++++++++=

FAR7075@HOTMAIL.COM

الأمر في غاية البساطة

المعطيات المذكورة هي لتسهيل الشرح لشرح

تحديد العملة بالريال والجزء منها بالفلس، لا لشئ سوى كتابتها في النص. أما تحديد غسم الملف والحقل، فذلك للربط بين المثال وكيفية فهمة.

1. تقوم الدالة TRUNC بأخذ الجزء الصحيح من القيمة، وترك الجزء العشري.

2. نحول الرقم إلى حروف مقروءة بإستخدام SP وهي تفيد تحويل الأرقام إلى حروف هجائية. فالرقم 15 عند قرائته بالصيغة SP تقوم أوراكل بتحويله الى (Fifteen)، وقد إستفدت من هذه الخاصية بتحويل الجزء الأول الصحيح إلى رقم مقروء حرفيا (تفنيط)، ثم استخلصت الرقم العشرى بطرح الجزء الصحيح من القيمة الكلية، ثم تطبيق نفس الدالة على الجزء العشرى، مع وضع التمميز لكل (ريال أو فلس). وما الأوامر TO_CHAR, TO_DATE, J إلا صيخ تحويلية ليتكون الرقم بالشكل الذي تستطيع الدالة المحولة إلى حروف، من قراءة هذا الرقم وتفنيطه.

أرجو أن لا أكون قد فسرت الماء بعد جهد بالماء.