منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ممكن تعديل في كود التفقيط للارقام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن تعديل في كود التفقيط للارقام (/showthread.php?tid=47733)

ممكن تعديل في كود التفقيط للارقام - melad2002 - 31-12-23

السلام عليكم 


اريد تعديل في الكود

اذا كان المبلغ 

1500.250
ألف وخمسائه دينار و مائتان وخمسون درهم  فقط لا غير


اريدها تظهر هكذا  Rolleyes
ألف وخمسائه دينار و (250) درهم  فقط لا غير

RE: ممكن تعديل في كود التفقيط للارقام - Kamil - 01-01-24

يرجى الدخول هنا لمشاهدة الحل 

http://vb4arb.com/vb/thread-47736.html


عذرا لم انتبه لهذا الجزء
ألف وخمسائه دينار و (250) درهم فقط لا غير

RE: ممكن تعديل في كود التفقيط للارقام - melad2002 - 01-01-24

(01-01-24, 11:29 AM)3sem كتب :
(31-12-23, 10:25 PM)melad2002 كتب : السلام عليكم 


اريد تعديل في الكود

اذا كان المبلغ 

1500.250
ألف وخمسائه دينار و مائتان وخمسون درهم  فقط لا غير


اريدها تظهر هكذا  Rolleyes
ألف وخمسائه دينار و (250) درهم  فقط لا غير

جرب التعديل في الكلاس ClassConvertNO

احذف السطرين
If Frac <> Nothing Then Frac = Get_IntStr_A(Frac)
If Frac.Length = 1 Then Frac += "0"

واضف الاقواس في السطر If Frac <> Nothing Then Result &= "و (" & Frac & ") درهم  "
مبدع كالعادة عصام وفقك الله