Сумма прописью - VB

Узнай цену своей работы

Формулировка задачи:

Привет всем! Подскажите мне пожалуйста, как можно реализовать на Visual Basic написание прописью сумм. К примеру 2542 и так далее, то есть получается "Две тысячи пятьсот сорок два" или 13485 "Тринадцать тысяч четыреста восемьдесят пять".

Решение задачи: «Сумма прописью»

textual
Листинг программы
Function num2text_word(x As Long, Optional Lang As Long = 1049) As String
 
With CreateObject("word.document")
    .Range.LanguageID = Lang
    .Fields.Add .Range, Type:=-1, Text:="=" & x & " \* cardtext"
    num2text_word = Replace(.Range.Text, vbCr, "")
    .Close 0
End With
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.222 из 5
Похожие ответы