Skip to content

Instantly share code, notes, and snippets.

Avatar

Vladimir Vissoultchev wqweto

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