69-kun videosida ishlatilgan kodlar
Function NumberToWordUZ(ByVal Num As Double) As String
Dim integerPart As Double
Dim decimalPart As Integer
Dim result As String
' Manfiy sonlar
If Num < 0 Then
NumberToWordUZ = "minus " & NumberToWordUZ(Abs(Num))
Exit Function
End If
integerPart = Int(Num)
decimalPart = Round((Num - integerPart) * 100, 0)
result = NumberGroupToWord(integerPart) & " so‘m"
If decimalPart > 0 Then
result = result & " " & NumberGroupToWord(decimalPart) & " tiyin"
End If
NumberToWordUZ = Application. WorksheetFunction. Trim(result)
End Function
Private Function NumberGroupToWord(ByVal Num As Double) As String
Dim ones As Variant
ones = Array("", "bir", "ikki", "uch", "to‘rt", "besh", "olti", "yetti", "sakkiz", "to‘qqiz")
Dim tens As Variant
tens = Array("", "o‘n", "yigirma", "o‘ttiz", "qirq", "ellik", "oltmish", "yetmish", "sakson", "to‘qson")
Dim thousands As Variant
thousands = Array("", "ming", "million", "milliard", "trillion")
If Num = 0 Then
NumberGroupToWord = "nol"
Exit Function
End If
Dim result As String
Dim i As Integer
i = 0
Do While Num > 0
Dim part As Integer
part = Num Mod 1000
If part <> 0 Then
result = ConvertHundredsUZ(part) & " " & thousands(i) & " " & result
End If
Num = Int(Num / 1000)
i = i + 1
Loop
NumberGroupToWord = Application. WorksheetFunction. Trim(result)
End Function
Private Function ConvertHundredsUZ(ByVal Num As Integer) As String
Dim ones As Variant
ones = Array("", "bir", "ikki", "uch", "to‘rt", "besh", "olti", "yetti", "sakkiz", "to‘qqiz")
Dim tens As Variant
tens = Array("", "o‘n", "yigirma", "o‘ttiz", "qirq", "ellik", "oltmish", "yetmish", "sakson", "to‘qson")
Dim result As String
If Num >= 100 Then
result = ones(Int(Num / 100)) & " yuz "
Num = Num Mod 100
End If
If Num >= 10 Then
result = result & tens(Int(Num / 10)) & " "
Num = Num Mod 10
End If
If Num > 0 Then
result = result & ones(Num)
End If
ConvertHundredsUZ = result
End Function
