This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'===================================================================================================================== | |
' | |
' Конвертиране на число в словом с думи за VBA за Microsoft Excel | |
' Copyright (c) 2012-2018 Unicontsoft (wqweto@gmail.com) | |
' | |
' ОПИСАНИЕ | |
' | |
' По подразбиране конвертира левове (в мъжки род), но може да се използва и за мярка в женски род (например метро | |
' единици) или среден род (например евро). | |
' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Module ToWordsModule | |
Public Function ToWords(ByVal dblValue As Double, Optional Measure As Object = Nothing, Optional Gender As String = Nothing) As String | |
Dim vDigits As Object | |
Dim vGenderDigits As Object | |
Dim vValue As Object | |
Dim lIdx As Long | |
Dim lDigit As Long | |
Dim sResult As String = "" | |
Dim sString As New String("0", 18) |