محمد الشاهلي

ارجوا ان اكون قد افتكم بهذا الرد Function NoToTxt2(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim Myno As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My1…