Fungsi Terbilang

subura said on October 25, 2005, 12:41 pm:

thank’s for your nice tips :)
mantap mas!

M Irsyad said on January 5, 2006, 12:29 pm:

trima kasih Mas.

M Irsyad said on January 5, 2006, 12:31 pm:

kalo mau nambah satuannya gimana caranya

maseko said on January 5, 2006, 4:44 pm:

Bung Irsyad, untuk menambahkan satuannya tambahkan dalam formulanya, misalnya seperti ini
=terbilang(B1;1) & ” rupiah”

M Irsyad said on January 6, 2006, 10:55 am:

makasih mas eko.
maaf boleh tanya? mas eko alumni stan ya?
kalo ya th berapa?

aurino said on January 27, 2006, 1:53 pm:

mas tambahin fungsi komanya seperti dalam blog saya
atau sekalian tak kirimi
‘This Public Function for Indonesian “Numeric to string Converstion”
‘You can copy, modify or take part of this function
‘Redesign and retouch to get new rupiah function by: aurinoradjamaris@yahoo.com

Public Function Terbilang(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
Terbilang = “”
Exit Function
End If
‘jika x adalan 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan sen
triliun = Int(x * 0.001 ^ 4)
milyar = Int((x – triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3) * 0.001 ^ 2)
ribu = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2) * 0.001)
satu = Int(x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2 – ribu * 1000)
sen = Int((x – Int(x)) * 100)
‘baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + “triliun ”
End If

‘baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + “milyar ”
End If
‘baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + “juta ”
End If
‘baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + “ribu ”
End If
‘baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1)
End If
‘baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + “koma ” + Ratus(sen, 0) + “per seratus ”
End If
End If
Terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function
Public Function TerbilangRp(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
TerbilangRp = “”
Exit Function
End If
‘jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan sen
triliun = Int(x / 1000 ^ 4)
milyar = Int((x – triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2) / 1000)
satu = Int(x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2 – ribu * 1000)
sen = Int((x – Int(x)) * 100)
‘baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + “triliun ”
End If
‘baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + “milyar ”
End If
‘baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + “juta ”
End If
‘baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + “ribu ”
End If
‘baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1) + “”
End If
‘sebelum bagian sen
baca = baca & “rupiah ”
‘baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + Ratus(sen, 0) + “sen ”
End If
End If
TerbilangRp = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function

Function Ratus(x As Currency, Posisi As Integer) As String
Dim a100 As Integer, a10 As Integer, a1 As Integer
Dim baca As String
a100 = Int(x * 0.01)
a10 = Int((x – a100 * 100) * 0.1)
a1 = Int(x – a100 * 100 – a10 * 10)
If a100 = 1 Then
baca = “Seratus ”
Else
If a100 > 0 Then
baca = angka(a100, Posisi) + “ratus ”
End If
End If
‘baca bagian puluhan dan satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, Posisi)
Else
If a10 > 0 Then
baca = baca + angka(a10, Posisi) + “puluh ”
End If
If a1 > 0 Then
baca = baca + angka(a1, Posisi)
End If
End If
Ratus = baca
End Function

Function angka(x As Integer, Posisi As Integer)
Select Case x
Case 0: angka = “Nol”
Case 1:
If Posisi 2 Then
angka = “Satu ”
Else
angka = “Se”
End If
Case 2: angka = “Dua ”
Case 3: angka = “Tiga ”
Case 4: angka = “Empat ”
Case 5: angka = “Lima ”
Case 6: angka = “Enam ”
Case 7: angka = “Tujuh ”
Case 8: angka = “Delapan ”
Case 9: angka = “Sembilan ”
Case 10: angka = “Sepuluh ”
Case 11: angka = “Sebelas ”
Case 12: angka = “Duabelas ”
Case 13: angka = “Tigabelas ”
Case 14: angka = “Empatbelas ”
Case 15: angka = “Limabelas ”
Case 16: angka = “Enambelas ”
Case 17: angka = “Tujuhbelas ”
Case 18: angka = “Delapanbelas ”
Case 19: angka = “Sembilanbelas ”
End Select
End Function
selamat mencoba ya

Hasan Fauzi said on February 25, 2006, 10:36 am:

Mas Eko, punya yang versi bahasa inggris gak ? kalo punya share juga dong. Terima kasih

yakuku712 said on September 1, 2006, 9:06 pm:

kalo cuma maw dijadiin b.inggris, ganti aja huruf2nya ke b.inggris. misal satu=one sebelas=eleven sembilanbelas=nineteen and any more…
heheheh:p gtu…

Jk Dor said on December 21, 2006, 10:28 am:

Mas eko, kodenya kok eror ya, abis di paste angka-2 line ikutan ke paste
trus pada line 28 dan lainnya
Kekata = Kekata(Fix(Bilangan/1000000000000)) & ” trilyun” &_
tanda ” _ ” aku hapus semua baru bisa jalan
tolong di bantu thanks mas ^^
btw aku pake OoO 2.04

rudy said on May 16, 2007, 1:53 pm:

trima kasih mas ok banget

Qhhh said on June 12, 2007, 5:33 pm:

Mas Eko, itu yg bahasa inggrisnya webnya kok tidak bisa dibuka ya. Thx.

Qhhh said on June 13, 2007, 4:54 pm:

untuk versi inggrisnya sudah ketemu, ini diconvert supaya bisa di open office

Function CDollar(Bilangan as Variant) As String
Dim StringDollar$
Dim a_word, b_word, c_word, text_word As String
DIM Angka$(20)
DIM Angka2$(10)

Angka = Array(“”,”One”,”Two”,”Three”,”Four”,”Five”,”Six”,”Seven”,”Eight”,”Nine”,”Ten”,”Eleven”,”Twelve”,”Thirteen”,”Forteen”,”Fifteen”,”Sixteen”,”Seventeen”,”Eighteen”,”Nineteen”)
Angka2 = Array(“”,”Ten”,”Twenty”,”Thirty”,”Forty”,”Fifty”,”Sixty”,”Seventy”,”Eighty”,”Ninety”)

Bilangan = CStr(Format(Bilangan, “0,000,000.00″))
mcomma1 = InStr(1, Bilangan, “,”)
mcomma2 = InStr(mcomma1 + 1, Bilangan, “,”)
p1 = Right(Bilangan, 2)
p2 = Mid(Bilangan, mcomma2 + 1, 3)
p3 = Mid(Bilangan, mcomma1 + 1, 3)
p4 = Left(Bilangan, 1)

a_word = “”
b_word = “”
c_word = “”

If cint(p1) 0 Then
If Left(cstr(p1), 1) 0 Then
b_word = Angka2(Left(cstr(p1), 1))
End If
If Right(cstr(p1), 1) 0 Then
c_word = Angka(Right(cstr(p1), 1))
End If
If Left(cstr(p1), 1) = “1″ Then
b_word = Angka(cint(p1))
c_word = “”
End If
StringDollar = “and ” + b_word + ” ” + c_word + ” Cents only.”
Else
text_word = ” only.”
End If

a_word = “”
b_word = “”
c_word = “”

If cint(p2) > 0 Then
If Left(p2, 1) 0 Then
a_word = Angka(Left(p2, 1)) + ” Hundred”
End If
If Mid(p2, 2, 1) 0 Then
b_word = Angka2(Mid(p2, 2, 1))
End If
If Right(p2, 1) 0 Then
c_word = Angka(Right(p2, 1))
End If
If Mid(p2, 2, 1) = “1″ Then
b_word = Angka(Right(p2, 2))
c_word = “”
End If
StringDollar = a_word + ” ” + b_word + ” ” + c_word + ” ” + StringDollar
End If

a_word = “”
b_word = “”
c_word = “”

If cint(p3) > 0 Then
If Left(p3, 1) 0 Then
a_word = Angka(Left(p3, 1)) + ” Hundred ”
End If
If Mid(p3, 2, 1) 0 Then
b_word = Angka2(Mid(p3, 2, 1))
End If
If Right(p3, 1) 0 Then
c_word = Angka(Right(p3, 1))
End If
If Mid(p3, 2, 1) = “1″ Then
b_word = Angka(Right(p3, 2))
c_word = “”
End If
StringDollar = a_word + ” ” + b_word + ” ” + c_word + ” ” _
+ ” Thousand ” + StringDollar
End If

a_word = “”
b_word = “”
c_word = “”

If p4 > 0 Then
a_word = Angka(p4) + ” Million ”
text_word = a_word + text_word
End If

StringDollar = “United States Dollars ” + StringDollar
CDollar = trim(StringDollar)
End Function

gajah_pesing said on September 20, 2007, 1:24 pm:

itu isa dipake di ms excel juga ya?

yoyok said on September 21, 2007, 2:22 pm:

Dear sir,

Mas tolong kirimin ke e-mail saya(yoyok_duri@yahoo.com) penulisan di VB untuk terbilang yang lengkap dengan pengoperasianya & rupiah diakhir kata indonisia dan inggrisnya.

Mobil tanki bawa kayu dan petikemas
Thank u yach Mas

yoyok said on September 21, 2007, 2:38 pm:

Dear sir

Sorry mas gw salah nulisin e-mail yg bener ini yach mas : yoyok_duri@yahoo.co.id

Thank u

ema said on December 24, 2007, 4:20 pm:

mas eko saya udah cobain cuma pas ditulisin style nya kok jadi error “value# tolong dong mas , thanks ya

Armin said on December 31, 2007, 10:20 am:

Thanks Mas Eko,

Web Blog Mas Eko ini sudah banyak sekali membantu saya terutama dalam pekerjaan kantor. Sekali lagi thanks..
:)

tolongin juga yach said on January 14, 2008, 10:48 am:

tolong donk scrip lengkapnya dikirim ke emailku: akew28@gmail (untuk Visual Basic). makasih

asmar said on March 29, 2008, 7:57 pm:

Mas Eko, tolong saya memecahkan fungsi terbilang menggunakan lotua 123r5w dan mohon scrip lengkapnya dikirim ke emailku

Manto said on April 28, 2008, 10:39 pm:

mas minta tolong nih
maaf bukan office calc
office writer gimana cara seting biar tiap nulis di paragraf pertama/kalimat pertama setelah titik hurufnya jadi besar otomatis udah nyari di panduan

kambing.ui.edu/ign/Panduan_OpenOffice.org_2.0/Bab_01-Writer-OO.pdf
Manual Penggunaan Open Office Writer. Penyusun. Tim UGOS. Pusat Pelayanan Teknologi Informasi dan Komunikasi. Universitas Gadjah Mada (PPTIK UGM) …
repo.ugm.ac.id/ekstra/panduan/ugos/openoffice-writer.pdf

tapi gak ketemu

klo ada tolong kirim ke imel saya
terimakasih

akto said on June 21, 2008, 2:18 pm:

Bilangan = abs(Fix(Bilangan))

mas eko aku kok slalu gagal pas aku run basic selalu mengarah ke tulisan yang diatas

dan tidak bisa berhasil slallu
apa yaa masalahnya open office org.2.4

mohon bantuannya yaa

Deky Arifianto said on July 26, 2008, 4:16 pm:

Saya sudah coba tapi kok di no. 6 Bilangan = abs(Fix(Bilangan)) Error Basic Runtime error. Argument is not optional

Plz… i’m newbie in basic

Denny K said on August 5, 2008, 1:01 pm:

Scriptnya sangat membantu. Untuk print “terbilang” pada kertas dengan lebar terbatas, bagaimana caranya agar kata-kata terbilang tersebut bisa secara otomatis berpindah ke cell berikutnya? (Misal: NILAI ada pada cell A1 dan TERBILANG ada pada cell A2. Bagaimana agar kata-kata terbilang yang dimulai pada cell A2 bisa secara otomatis menaymbung ke cell B1?). Mhn solusinya. Thx

Stanley said on August 12, 2008, 2:40 pm:

maaf Mr.Maseko, mengapa saya aplikasikan macro ini kok malah gagal total ya?
Dalam arti begini, saya uji coba di 1 cell saya isi =Terbilang(B1) hasilnya adalah kosong. TIdak ada isi apapun juga. Padahal cell B1 ada angkanya

need clue here. thx

Stanley said on August 12, 2008, 2:48 pm:

maaf saya ralat… ada salah tulis di macro saya. huruf L kecil saya tulis angka 1. Maaf mr maseko. Macro ini bekerja dgn baik. thx

ankul said on August 25, 2008, 8:14 pm:

please help :D
mas eko mohon bantuannya untuk menterjemahkan bahas program untuk yang desimal, seperti yang mas eko buat, tp dalam versi inggris, angkanya mulai 0.01 s/d 1, misalnya :
0.01 menjadi “nol point nol one”
0.11 menjadi “nol point eleven”
0.20 menjadi “nol point twenty”
0.21 menjadi “nol point twenty one”

tapi versinya persis seperti yang mas eko buat, seperti ini :

‘design by mas eko
Private Function KeKata(Nomor)
TrjKata = Array(“”, “one”, “two”, “three”, “four”, “five”, “six”, “seven”, “eight”, “nine”)
KeKata = TrjKata(Nomor)
End Function

‘Mulai penulisan Fungsi Terbilang
Public Function terbilang(Nilai_Angka, Optional Style = 4, Optional Satuan = “”)
Angka = Fix(Abs(Nilai_Angka))
‘Desimal dibelakang point
des1 = Mid(Abs(Nilai_Angka), Len(Angka) + 2, 1)
des2 = Mid(Abs(Nilai_Angka), Len(Angka) + 3, 1)

If des2 = “” Then
If des1 = “” Or des1 = “0″ Then
Point = “”
Else
Point = ” point ” & KeKata(des1)
End If
ElseIf des2 = “0″ Then
If des1 = “0″ Then
Point = “”
ElseIf des1 = “1″ Then
Point = ” point sepuluh”
Else
Point = ” point ” & KeKata(des1) & ” puluh”
End If
Else
If des1 = “0″ Then
Point = ” point nol ” & KeKata(des2)
ElseIf des1 = “1″ Then
If des2 = “1″ Then
Point = ” point sebelas”
Else
Point = ” point ” & KeKata(des2) & ” belas”
End If
Else
Point = ” point ” & KeKata(des1) & ” puluh ” & KeKata(des2)
End If
End If

please help mas eko,
saya udah coba2 ganti ke versi inggris, tapi tetep ada ga bisa, cuma bikin pusing doank :D, mohon bantuannya yaa mas, thank’s

__nOvia__ said on October 12, 2008, 6:50 am:

maS eKo saYa mau mNta tLong,saYa seKoLah di seBuah sTm di baNdung-Cimahi kebetuLan saya maSuk jUruSan peRangkaT kOmputer dan memPunyai tuGas VisuaL Basic saya ditugaskan mengumpulkan kode-kode script yang di gunakan dalam penulisan visual basic
ex:End,else,float dan sebagainya….dengan fungsinya juga ya mas
saya tunggu banget baLesannya soaLnya bnTar Lgi di kuMpuLin kirim aj ke email saya (via_ajach@yahoo.co.id)pLizz bGt ya mas
ThaNkz befOre

wildan said on October 24, 2008, 8:20 pm:

Mantabbbbbbbbbb, aku coba dulu ya,
thanx berat

h20 said on October 29, 2008, 8:59 pm:

wah…
matur thengkyu sanget mas

de-ra said on November 17, 2008, 2:50 pm:

thank’s bgedz info nya.
bener -bener ngebantu dlam magang.

ubcybers said on November 21, 2008, 10:52 am:

Thank’s yach infonya mas….saya copas di blog saya ya mas, buat dokument

selvi said on December 3, 2008, 12:04 pm:

Pak,
Bagaimana dengan fungsi terbilang untuk dollar dan euro?
Terima kasih sebelumnnya

Ari Ishfahani said on January 20, 2009, 11:23 am:

terima kasih atas informasinya

Bayu said on January 28, 2009, 8:57 am:

Terima kasih mas Eko, saya sangat terbantu

Aris said on March 6, 2009, 4:05 pm:

Makasih banyak mas saya dah berhari-hari pengin bisa buat fungsi terbilang pada excel tapi baru kali ini saya berhasil, sekali lagi matur nuwun

Hendra G. said on March 16, 2009, 4:14 pm:

Setelah saya coba pada OpenOfficePortable 3.1, fungsi terbilang ini berjalan dengan baik.
Terima kasih atas tips-nya..!!!

Hendra G. said on March 25, 2009, 3:40 pm:

Ralat, seharusnya OpenOfficePortable 3.0.1

Baly said on May 15, 2009, 9:23 am:

Wach keren tu mas….
Mas klo ada kasus seperti :

20,78 mau terbilang jadi Dua nol koma tujuh delapan
7,53 mau terbilang jadi Tujuh koma lima tiga

tu gmana mas…?
Tolong bantuannya ya mas…
Thanks

wahyu said on June 30, 2009, 1:16 pm:

mas, saya mau tanya nih, gimana ya code visual basic untuk menampilkan huruf pada display dot matrik,,tolong mas..soalnya saya lagi ngerjain LA,bt bingung banget..

Chocolate said on August 4, 2009, 12:49 pm:

Mas,thx bgt infonya…langsung praktek…

Yoseph said on September 2, 2009, 2:38 pm:

salam kenal…
mas, aku mau tanya, gimana rumus untuk merubah format tanggal di excel, contoh : 10/12/2009 jadi teks terbilang “tanggal sepuluh bulan duabelas tahun duaribu sembilan”. makasih sebelumnya mas atas jawabannya…

kang_aos said on November 5, 2009, 12:43 pm:

Salam, mas: command ini
Terbilang = join(kata())
tidak berjalan pada excel 2007, kenapa ya??

mbahsomo said on January 14, 2010, 12:52 pm:

Wah hebat msa Eko

SMP MUJAHIDIN (TERAKREDITASI-A) SURABAYA » Blog Archive » menulis angka dalam bentuk text(terbilang) open office said on April 24, 2010, 3:54 pm:

[...] kode di bagian bawah halaman ini, dan copy paste-kan pada halaman editor yang [...]

Sarwa Dhamana said on May 27, 2010, 9:28 pm:

Ini perbaikan dari posting pak “aurino”

Public Function Terbilang(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
Terbilang = “”
Exit Function
End If
REM ‘jika x adalan 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
REM ‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan sen
triliun = Int(x / 1000 ^ 4)
milyar = Int((x – triliun * 1000 ^ 4) / 1000 ^ 3)
juta = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2) / 1000)
satu = Int(x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2 – ribu * 1000)
sen = Int((x – Int(x)) * 100)
REM ‘baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + “Triliun ”
End If
REM ‘baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + “Milyar ”
End If
REM ‘baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + “Juta ”
End If
REM ‘baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + “Ribu ”
If baca = “Satu Ribu ” Then
baca = “Seribu ”
End If
End If
REM baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1) + “”
End If
REM ‘baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + “koma ” + Ratus(sen, 0) + “per Seratus ”
End If
End If
Terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function

Public Function TerbilangRp(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
TerbilangRp = “”
Exit Function
End If
REM ‘jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
REM ‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan sen
triliun = Int(x / 1000 ^ 4)
milyar = Int((x – triliun * 1000 ^ 4) / 1000 ^ 3)
juta = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2) / 1000)
satu = Int(x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2 – ribu * 1000)
sen = Int((x – Int(x)) * 100)
REM ‘baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + “Triliun ”
End If
REM ‘baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + “Milyar ”
End If
REM ‘baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + “Juta ”
End If
REM ‘baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + “Ribu ”
If baca = “Satu Ribu ” Then
baca = “Seribu ”
End If
End If
REM baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1) + “”
End If
REM ’sebelum bagian sen
baca = baca & “Rupiah ”
REM ‘baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + Ratus(sen, 0) + “Sen ”
End If
End If
TerbilangRp = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function

Function Ratus(x As Currency, Posisi As Integer) As String
Dim a100 As Integer, a10 As Integer, a1 As Integer
Dim baca As String
a100 = Int(x / 100)
a10 = Int((x – a100 * 100) / 10)
a1 = Int(x – a100 * 100 – a10 * 10)
If a100 = 1 Then
baca = “Seratus ”
Else
If a100 > 0 Then
baca = angka(a100, Posisi) + “Ratus ”
End If
End If
REM ‘baca bagian puluhan dan satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, Posisi)
Else
If a10 > 0 Then
baca = baca + angka(a10, Posisi) + “Puluh ”
End If
If a1 > 0 Then
baca = baca + angka(a1, Posisi)
End If
End If
Ratus = baca
End Function

Function angka(x As Integer, Posisi As Integer)
Select Case x
Case 0: angka = “Nol”
Case 1: angka = “Satu ”
Case 2: angka = “Dua ”
Case 3: angka = “Tiga ”
Case 4: angka = “Empat ”
Case 5: angka = “Lima ”
Case 6: angka = “Enam ”
Case 7: angka = “Tujuh ”
Case 8: angka = “Delapan ”
Case 9: angka = “Sembilan ”
Case 10: angka = “Sepuluh ”
Case 11: angka = “Sebelas ”
Case 12: angka = “Duabelas ”
Case 13: angka = “Tigabelas ”
Case 14: angka = “Empatbelas ”
Case 15: angka = “Limabelas ”
Case 16: angka = “Enambelas ”
Case 17: angka = “Tujuhbelas ”
Case 18: angka = “Delapanbelas ”
Case 19: angka = “Sembilanbelas ”
End Select
End Function

Deddy said on August 20, 2010, 5:02 am:

bagaimana menambahkan diawal dan akhir terbilang dengan tanda kurung atau koma dua diatas

tks……

Theo said on September 23, 2010, 4:25 pm:

mohon bantuan donk
aku pake exl 2007 so :
1. gmn carax masuk ke Visual Basic Editor tanpa menggunakan tombol
pintas Alt+F11?
2. gmn carax masuk ke Tab Security (Macro Securityx) ?
3. Thank’s banget untuk bantuannya …

Theo said on September 23, 2010, 4:28 pm:

mohon bantuan donk
aku pake exl 2007 so :
1. gmn carax masuk ke Visual Basic Editor tanpa menggunakan
tombol pintas Alt+F11?
2. gmn carax masuk ke Tab Security (Macro Securityx) ?
3. Thank’s banget untuk bantuannya …

Alvi said on October 8, 2010, 3:45 pm:

Dear Pak Eko dan Pak Aurinoserta Pak Sarwa…..
Sebelumnya terimakasih atas postingan yang sangat membantu ini. Saya sudah coba ketiga coding yang bapak posting…tapi tetap saja belum bisa lo…dan Untuk postingan pak sarwa yang terbaru perbaikan dari postingan pak aurino juga masih ada yang error disekitar list untuk pemisahan…mohon bantuannya lagi pak….
Terimakasih….

subhan said on October 18, 2010, 8:05 pm:

Sedikit petunjuk buat mas Alvi:
Saya juga mengalami hal yang serupa, namun akhirnya sukses. Begini langkah-langkahnya:
1. Ikuti petunjuk mas eko sampai pada langkah ke 2.
2. Pada langkah ke tiga, hapus seluruh kode yang ada di halaman editor.
3. Copy Paste kode yang disediakan mas eko dan hilangkan nomor-nomor urutnya dari no 1 sampai 61 (biarkan kodenya saja)
4. Tutup halaman editor tanpa di-save
5. Ikuti langkah ke 4 mas eko.
Mudah2an berhasil

Randa Mizwar said on November 3, 2010, 12:23 pm:

Thx Mas Eko… Greate Post

yadi said on May 9, 2011, 12:12 am:

Bagaimana 71.112 menjadi Tujuh Puluh Satu Ribu Seratus Dua Belas Rupiah, karena kalau pakai Fungsi Terbilang menjadi “Tujuh Seribu Seratus Dua Belas”

wong.takapushi said on June 15, 2011, 12:51 pm:

GREATTT, ilmu berharga ini… boleh saya praktekkan ya pak… GOD BLESS

Nana said on June 23, 2011, 2:32 am:

Terima Kasih Mas Eko. Fungsi terbilang di Open Office portable bisa berfungsi juga setelah versi instalsnya di PC dgn versi 3.3. Tolong juga dibuatkan Tutorial open office.base dalam bahasa Indonesia.

Ketut Suastika said on June 29, 2011, 1:47 pm:

Its work…. TERIMA KASIH BANYAK MAS EKO

killery666 said on July 3, 2011, 4:17 pm:

maseko thx banget code macronya meskipun bukan d openoffice saya pake NeoOffice isa jalan d tunggu program2 yg lain ya !!!!

pitat said on January 6, 2012, 7:39 pm:

mas program yang ada komanya gimana? contoh 20,35 menjadi dua puluh koma tiga lima dan 23,08 menjadi dua puluh tiga koma nol delapan

Posmaria said on March 1, 2012, 4:16 pm:

Saya sedang senang2nya menggunakan OpenOffice. Saya ijin menggunakannya ya..
Saya lihat di posting sebelah ada pertanyaan untuk di belakang koma. Kalau di belakang koma menyebutnya sesuai dengan angka di belakang hanya menyebut satuan saja Mas Eko. Misal 100,25 penyebutannya seratus rupiah dua lima sen. Jika memang Mas Eko bersedia, asik juga ya :D
Terima kasih banyak ya Mas Eka atas share-nya yaa..

jack said on March 6, 2012, 9:49 am:

mas untuk pembulatannya tidak terbaca di dalam terbilang …
caranya gmana ya..
conth 7.667 dibulatkan menjadi 7.67 tapi terbaca tujuh koma enam puluh enam solusinya…
trimm

Rahmadi said on March 17, 2012, 11:29 pm:

Salam kenal mas,
Saya pernah download addins dari Mas Eko, karena fungsi pembacaannya hanya dua digit dibelakang koma dan membacanya dengan kurang sesuai aturan Ejaan BYang Disempurnakan (EYD),
saya minta ijin mengedit filenya, terimakasih.

1,1175 dibaca -> satu koma sebelas

* saya tambah fungsi pembulatan menjadi terbaca 1,12
** pembacaannya saya sesuaikan ke EYD menjadi “satu koma satu dua”.

Terima kasih Mas.