بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتهلدي متغير عام على طول البرنامج اسمه
My_No_Digits
يحمل هذا المتغير احد القيم الثلاث
اما 0 بمعنى انه لا توجد ارقام عشرية بعد الفاصلة اي الرقم مظهره 125,315
او 2 بمعنى انه يوجد رقمان عشريان بعد الفاصلة اي الرقم مظهره 345,000.45
او 3 بمعنى انه يوجد ثلاث ارقام عشرية بعد الفاصلة اي الرقم مظهرة 185,000.425
انا اريد ان انسق الرقم الموجود بالتكست بوكس، وفق قيمة المتغير My_No_Digits
قمت بانشاء وحدة نمطية Module
وانشأت فيها function
ارسل من خلاله قيمة التكست بوكس، ويعمل الفانكش على فحص الحالة المناسبة ومن ثم يرجع القيمة المرسلة له منسقة حسب حالة المتغير my_No_Digits
كود :
Module My_function
Public Function format_my_Number(ByVal st As String) As String
Dim val As Double
If Trim(st) = "" Then st = 0
val = st
Select Case My_No_Digits
Case 0
format_my_Number = val.ToString("##,###,###")
Case 2
format_my_Number = val.ToString("##,###,###.##")
Case 3
format_my_Number = val.ToString("##,###,###.###")
End Select
End Function
End Module
الا ان هناك رسالة خطأ ظهرت، لا ادري ماسببها
ارجو المساعدة في تصويب الامر
والف شكر