• kolja
  • Восстановленный участник
  • На форуме с 3 июня 2006г.
  • Сообщений: 1
  • Спасибо: 0

Тема: задача

Как найти сумму цифр числа.

  • Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Re: задача

Function СуммаЦифрЦелогЧисла(strЧисло As String) As Double
Dim intНомЦифры As Integer, lngСуммаЦифр As Long
   For intНомЦифры = 1 To Len(strЧисло)
      lngСуммаЦифр = lngСуммаЦифр + CInt(Mid(strЧисло, intНомЦифры, 1))
   Next intНомЦифры
   СуммаЦифрЦелогЧисла= lngСуммаЦифр
End Function