wqweto

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)

wqweto

'=====================================================================================================================
'
'   Конвертиране на число в словом с думи за VBA за Microsoft Excel
'   Copyright (c) 2012-2018 Unicontsoft (wqweto@gmail.com)
'
' ОПИСАНИЕ
'
'   По подразбиране конвертира левове (в мъжки род), но може да се използва и за мярка в женски род (например метро
'   единици) или среден род (например евро).
'