مساعده فی حساب الاعداد

[zozzz]

السلام علیکم جمیعا احبایی الکرام

فی هذا المنوذج   ارید احسب عدد 672 بهذه الطریقه : 2 + 7 + 6 و الرقم یساوی 15

وشکرا جزیلا

 

Numberic.accdb

[Barna]

تفضل <><><><><><><>

 

Numberic.accdb

[zozzz]

احسنت   احسنت  احسنت 👍

[zozzz]

طیب اخی Barna هل من الممکن نستمر بهذه الطریقه حتی یصبح العدد ، رقم واحد؟؟

مثلا 672 => 2 + 7 + 6 = 15    و ایضا 15 => 5 + 1 = 6

وشکرا لاستمرار مساعدتک

[Barna]

5 ساعات مضت, zozzz said:

طیب اخی Barna هل من الممکن نستمر بهذه الطریقه حتی یصبح العدد ، رقم واحد؟؟

مثلا 672 => 2 + 7 + 6 = 15    و ایضا 15 => 5 + 1 = 6

وشکرا لاستمرار مساعدتک

طيب استبدل بهذا ......

Public Function CountNumberic() As Integer
    Dim StringToSearch As String, ms As Integer, ms1 As Integer
    Dim i As Integer
If Len(Me.Text4) <= 1 Or IsNull(Me.Text4) Then
    StringToSearch = Me.Text1
Else
StringToSearch = Me.Text4
End If
    ms = 0
    ms1 = 0
    For i = 1 To Len(StringToSearch)
        ms = Mid(StringToSearch, i, 1)
        ms1 = ms1 + ms
    Next i
Me.Text4 = ms1
End Function

 

[zozzz]

كلك ذوق 

شکرا و جزاک الله خیر و عافیه