Сумма прописью - 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