Skip to content

Instantly share code, notes, and snippets.

View wqweto's full-sized avatar

Vladimir Vissoultchev wqweto

View GitHub Profile
@wqweto
wqweto / NumberToWords (Bulgarian)
Last active March 13, 2016 18:06
Конвертиране на число в словом с думи за VB.NET. По подразбиране работи за левове в мъжки род, но може да се използва и за мярка в женски род (например метро единици) или среден род (например евро)
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)