لقد قمت بعمل ملف dll لدالة التفقيط الرقمي
يعني ترسل له رقم ويرجع لك قراءة الرقم بالنص مثلا نرسل له 1 يرجع لنا واحد ايضا يمكن كتابة النوع مثلا ريال دولار وايضا نرسل له 1,33
يرجع لنا واحد ريال وثلاثه وثلاثين فلس اذا حددنا ان يكون ريال وفلس علي حسب ماهو موضح بالمثال
ولنسخ الملف الملف في المرفقات
ولعمل الملف ادخل الي قائمة الرفرنس وحدد خيار استعراض ثم حدد الملف بعد نسخه الى جهازك
المف موجود في المرفقات
ثم ادخل الي الجنرال العام للفورم واكتب الكود التالي
Dim mafila As New filadll
طريقة عمل الدالة
موضحه بالمثال التالي
ryl=" ريال "
fel=" فلس "
( machr = mafila.Horof(12553663.22, " ryl" ,"fel
MsgBox machr
ويوجد دالة ثانيه للتقديرات
جربوها وقولوا لي رايكم
وجزاكم الله خير
اخوكم صالح فاضل