[أمجد وضاح]

(17-03-20, 09:57 PM)سامي محمد كتب : المسألة بسيطة 

كود :

 Dim i As String = "452d86ef321"
        Dim M As Long
        M = System.Text.RegularExpressions.Regex.Replace(i, "\D", "")
        MsgBox(String.Format("{0:###,###}", M * 1000) & vbNewLine & String.Format("{0:###,###}", M / 1000) & vbNewLine & String.Format("{0:###,###}", M + 1000))

هذا الكود لماذا؟


هذا ما أعمل عليه
شكراٍ عاصم ومادخل منتدانا في الكود
لك مني 1+