[Ahmed_Mansoor]

أهلا أخي الكريم ، جرب الكود التالي :

PHP كود :

Dim zValue As String
Dim zTotal As String
Dim I As Integer

zValue = "2015"
zTotal = "00"

Do While Len(zTotal) > 1
      
      zTotal = "00"

      For I = 1 To Len(zValue)
            zTotal = Val(zTotal) + Val(Mid$(zValue,I,1))
      Next

     zValue = zTotal

Loop

MsgBox zTotal