[Mohamad Anan]

إضافة لما سبق

لتنسيق الرقم على انه عملة نكتب C متبوعا بعدد المنازل العشرية

كود :

       TextBox1.Text = CDbl("-1111111.11111").ToString("C2")
       If IsNumeric(TextBox1.Text) Then
           TextBox2.Text = CDbl(TextBox1.Text).ToString
       End If

و الدالة CDbl يمكنها ايضا التعامل مع تنسيق العملة الصحيح مثل الدالة IsNumeric مع ملاحظة التالي

رمز العملة يختلف من مستخدم لمستخدم حسب اعدادات النظام
و أيضا في حال السماح للمستخدم بإدخال الحروف قد يكتب تنسيق غير صحيح
أما اذا كان التنسيق يتم برمجيا فيمكن استخدام CDbl و الله اعلم