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_pasar...@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
------------------------------------------------------------------------