[melad2002]

السلام عليكم 


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

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

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


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

[Kamil]

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

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


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

[melad2002]

(01-01-24, 11:29 AM)3sem كتب :

(31-12-23, 10:25 PM)melad2002 كتب : السلام عليكم 


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

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

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


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

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

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

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

مبدع كالعادة عصام وفقك الله