[ahmedfa71]

السلام عليكم ورحمة الله وبركاته
وجدت مشكل في هذه الدالة هو أنه

كود :

Private Function GetFormatNumber(ByVal a As String) As String
       Dim b = ""
       For Each c As Char In a.ToCharArray
           If Char.IsNumber(c) Then b &= c
       Next
       Return CULng(b).ToString("D13")
   End Function

المشكل أن عندما يكون لديك رقم مثل 18622,70
تقوم هذه الدالة بجعله 0000000186227
أي أن 70 التي بعد الفاصلة جعلتها 7 فقط
وعند إعادة جلب هذا الملف يصبح الرقم هكذا  1862,27 مما يعقد الأمر أكثر
وعندما مثلا يكون مثلا الرقم بعد الفاصلة 77 أو 22 أو غير ذلك فهي تعمل بشكل عادي وجيد
المشكلة فقط في 10 و 20 و 30 و 40 و 50 و 60 و 70 و 80 و 90
وبارك الله فيكم