Function UzbPropLat$(c#) '(MCH) Dim st$, qp$, ed, des, razr, i&, m$ If c > 999999999999# Or c < 0 Then Exit Function ed = Array("", "bir ", "ikki ", "uch ", "to'rt ", "besh ", "olti ", "yetti ", "sakkiz ", "to'qqiz ") des = Array("", "o'n ", "yigirma ", "o'ttiz ", "qirq ", "ellik ", "oltmish ", "yetmish ", "sakson ", "to'qson ") razr = Array("milliard ", "million ", "ming ", "") st = Left(Format(c, "000000000000.00"), 12) qp = Right(Format(c, " 0.00"), 2) If CDbl(st) = 0 Then m = "nol " For i = 1 To Len(st) Step 3 If Mid(st, i, 3) "000" Then m = m & IIf(Mid(st, i, 1) = "0", "", ed(CInt(Mid(st, i, 1))) & "yuz ") m = m & des(CInt(Mid(st, i + 1, 1))) & ed(CInt(Mid(st, i + 2, 1))) & razr((i - 1) \ 3) End If Next i UzbPropLat = UCase(Left(m, 1)) & Mid(m, 2) & "so'm " & qp & " tiyin" End Function
Assalomu allaykum aka sizdan olloh rozi bo'lsin
Shuncha narsalar o'rgatyapsiz Rahmat yana bir bor
aka katta raxmat oma olloh rozi bo'lsin
Assalomu alekum aka raxmat shu narsani qidirib yurgandim. Ishizga omad
Function UzbPropLat$(c#)
'(MCH)
Dim st$, qp$, ed, des, razr, i&, m$
If c > 999999999999# Or c < 0 Then Exit Function
ed = Array("", "bir ", "ikki ", "uch ", "to'rt ", "besh ", "olti ", "yetti ", "sakkiz ", "to'qqiz ")
des = Array("", "o'n ", "yigirma ", "o'ttiz ", "qirq ", "ellik ", "oltmish ", "yetmish ", "sakson ", "to'qson ")
razr = Array("milliard ", "million ", "ming ", "")
st = Left(Format(c, "000000000000.00"), 12)
qp = Right(Format(c, " 0.00"), 2)
If CDbl(st) = 0 Then m = "nol "
For i = 1 To Len(st) Step 3
If Mid(st, i, 3) "000" Then
m = m & IIf(Mid(st, i, 1) = "0", "", ed(CInt(Mid(st, i, 1))) & "yuz ")
m = m & des(CInt(Mid(st, i + 1, 1))) & ed(CInt(Mid(st, i + 2, 1))) & razr((i - 1) \ 3)
End If
Next i
UzbPropLat = UCase(Left(m, 1)) & Mid(m, 2) & "so'm " & qp & " tiyin"
End Function
.
.
Rahmat aka
Kochirishni bilmadim
Kopiya bo'mayapti, menda tik tok yo'qda qanday qilib olsak bo'ladi shu kodlarni
0:33 0:35
Assalomu alaykum aka shuni kirilcha qilsa boʻladimi
Assalomu alaykum shu modullar bilan ishlash bo'yicha o'zbekcha manbalar bormi. Agar iloji bo'lsa tavsiya qilsangiz?
Assalomu aleykum shu narsani word da xam qilsa buladimi. Shu xaqida malumot topa olmayapman
Asalomaleykum aka siz aytgandek qildim nimadir notug'ri buldi yordam berolmaysizmi usha hammasi chixti xato beryapti
алгартим қани акам
Assalomu allaykum aka sizda ollahrozi bo'lsin rahmat, Akajon sizdan iltimos restrlarni tayorlashda birarta darsligingiz bormi agar telegram nomeringizni bersangiz bir hujjat tashab beraman shuni tayarlashga yordam bering iltimos oldindan rahmat
Qanaqa ishlaymiz
Assalomu alaykum tiktokdan qanday topamiz aka kodni
Tik tok yoʻqku
Tik tok sahifasni nomi nima qattan blsam boladi
exceldarslari