Excelda sonlarni so’z ko’rinishda yozib beradigan funksiya

Поделиться
HTML-код
  • Опубликовано: 9 ноя 2024

Комментарии • 28

  • @thebest6031
    @thebest6031 3 года назад +1

    Assalomu allaykum aka sizdan olloh rozi bo'lsin
    Shuncha narsalar o'rgatyapsiz Rahmat yana bir bor

  • @mixviner
    @mixviner 5 месяцев назад

    aka katta raxmat oma olloh rozi bo'lsin

  • @XUSANXUSAN-s4t
    @XUSANXUSAN-s4t Год назад

    Assalomu alekum aka raxmat shu narsani qidirib yurgandim. Ishizga omad

  • @IxlosiddinUrmanov
    @IxlosiddinUrmanov  3 года назад +25

    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

  • @BahromBoatonov
    @BahromBoatonov 5 месяцев назад

    0:33 0:35

  • @shavkatbekanvarov2819
    @shavkatbekanvarov2819 Год назад +1

    Assalomu alaykum aka shuni kirilcha qilsa boʻladimi

  • @bahriddinqambarov9153
    @bahriddinqambarov9153 2 года назад +1

    Assalomu alaykum shu modullar bilan ishlash bo'yicha o'zbekcha manbalar bormi. Agar iloji bo'lsa tavsiya qilsangiz?

  • @Piligrim-v1s
    @Piligrim-v1s 2 месяца назад

    Assalomu aleykum shu narsani word da xam qilsa buladimi. Shu xaqida malumot topa olmayapman

  • @xamitxa2053
    @xamitxa2053 11 месяцев назад

    Asalomaleykum aka siz aytgandek qildim nimadir notug'ri buldi yordam berolmaysizmi usha hammasi chixti xato beryapti

  • @saidahrorkhanbahodirov350
    @saidahrorkhanbahodirov350 2 года назад

    алгартим қани акам

  • @АбдумаликИбодов-с3ж

    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

  • @ПийшенбайАжимуратов
    @ПийшенбайАжимуратов 8 месяцев назад

    Qanaqa ishlaymiz

  • @NurbekChoriyev-x7u
    @NurbekChoriyev-x7u Год назад +1

    Assalomu alaykum tiktokdan qanday topamiz aka kodni

  • @musayevislombek5091
    @musayevislombek5091 4 месяца назад +1

    Tik tok yoʻqku

  • @aygermnizamatdinova2787
    @aygermnizamatdinova2787 2 года назад

    Tik tok sahifasni nomi nima qattan blsam boladi