Сумма прописью - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д