الاخ العزيز
كما قال الاخ ابو اكرم
وعند التفقيط ان كان البرنامج به تفقيط يتم عمل الاتي
في برنامج المصدر وفي دالة التفقيط
ابحث عن السطر التالي
b = Val(Right(Format(x, "0000000000000000.00"), 2))
واستبدله بالتالي
b = Val(Right(Format(x, "0000000000000000.000"), 3))
عندها سيتم قراء ثلاثة خانات
وكلما اضفت واحد وصفر بعد العلامة سيزداد المقروء
هاشم
لكم تحياتي