[belajar-excel] Digest Number 4755

Milis Belajar Microsoft Excel Group

1 Message

Digest #4755

1.1

Re: Mohon petunjuk Angka Terbilang dengan desimal by "Agus"

Message

1.1

Re: Mohon petunjuk Angka Terbilang dengan desimal

Thu Apr 18, 2019 8:20 am (PDT) . Posted by:

"Agus"

Dear Monang.
1> untuk perbaikan  30 yang dibaca ThirtyZero:
     ubah cekrip pada prosedure GetTens :
        ......
        Result = Result & GetDigit _
            (Right(TensText, 1))  ' Retrieve ones place.
        .....
menjadi:
    ....
If (Right(TensText, 1)) <> "0" Then
        Result = Result & GetDigit _
            (Right(TensText, 1))  ' Retrieve ones place.
End If
    ....
2> untuk perbaikan **.60 yang dibaca point six (maunya point six zero khan?)
     ubah Prosedure SpellNumber pada baris:
    ...
        Cents = Sent(Format(MyNumber, "#.#########"))
    ...
menjadi:
        Cents = Sent(Format(MyNumber, "#.##0")) 'untuk pembacaan 3
angka dibelakang koma,

atau menjadi:
        Cents = Sent(Format(MyNumber, "#.#0")) 'untuk pembacaan 2 angka
dibelakang koma,

Jika ingin range tertentu 3 angka dan range lainnya 2 angka silahkan
ditambah if di depannya.
Misal :
if (angka komanya kurang dari 10) then
dibaca 3 angka
else
dibaca 2 angka
end if

Regard
NangAgus

On 4/15/2019 14:17, Monang Pasaribu monang_pasaribu@hotmail.com
[belajar-excel] wrote:
>
> Dear Mas Agus, confirm sudah bisa.
>
> tapi waktu saya coba, ada beberapa angka yang terbaca belum sempurna
> seperti contoh di bawah Mas.
>
> 2.04 Percent (%) Two PointZero Fourpercent
> 0.06 Percent (%) Zero PointZero Sixpercent
> 13.76 Percent (%) Thirteen PointSeven Sixpercent
> 0.91 Percent (%) Zero PointNine Onepercent
> 19.10 Percent (%) Nineteen PointOnepercent
> 6.60 Percent (%) Six PointSixpercent
>
> 0.002 Percent (%) Zero PointZero Zero Twopercent
> 0.05 Percent (%) Zero PointZero Fivepercent
> 37.87 Percent (%) Thirty Seven PointEight Sevenpercent
> 30.10 Percent (%) *Thirty Zero *PointOnepercent
>
>
>
> Best Regards,
> Monang Pasaribu
> ----------------------------------------------------------
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (176) . Top ^

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Visit Your Group

• Privacy • Unsubscribe • Terms of Use