Vasya1879

Дата регистрации: 2010-08-03 20:09:59

Ник: Vasya1879

Комментариев: 1

Редактировать персональные данные

Его последние комментарии:

• Макрос преобразования числа в текст
  2010-08-03 20:09:59
  

  Есть макрос по преобразованию сумм в текст, с дополнительными данными (рубли, доллары, евро). Есть проблема, ноль не пишет.

  Word(1, 1) = "од": Word(2, 1) = "десять": Word(3, 1) = "сто"

  Word(1, 2) = "дв": Word(2, 2) = "двадцать": Word(3, 2) = "двести"

  Word(1, 3) = "три": Word(2, 3) = "òðèäöàòü": Word(3, 3) = "òðèñòà"

  Word(1, 4) = "÷åòûðå": Word(2, 4) = "ñîðîê": Word(3, 4) = "÷åòûðåñòà"

  Word(1, 5) = "ïÿòü": Word(2, 5) = "ïÿòüäåñÿò": Word(3, 5) = "ïÿòüñîò"

  Word(1, 6) = "øåñòü": Word(2, 6) = "øåñòüäåñÿò": Word(3, 6) = "øåñòüñîò"

  Word(1, 7) = "ñåìü": Word(2, 7) = "ñåìüäåñÿò": Word(3, 7) = "ñåìüñîò"

  Word(1, 8) = "âîñåìü": Word(2, 8) = "âîñåìüäåñÿò": Word(3, 8) = "âîñåìüñîò"

  Word(1, 9) = "äåâÿòü": Word(2, 9) = "äåâÿíîñòî": Word(3, 9) = "äåâÿòüñîò"

  в результате не пишет "ноль рублей (долларов)00 копеек (центов)", а по нормам заполнения это необходимо.

  В итоге добавил:

  Word(1, 0) = "ноль"

  на цифру 0,00 пишет "ноль рублей (долларов)00 копеек (центов)", а на цыфру 1780 пишет "одна тысяча восемьдесят ноль рублей (долларов)00 копеек (центов)"

  ХЭЛП