Membuat Fungsi Terbilang pada OpenOffice


Pada pembuatan laporan keuangan seringkali ditampilkan pula kata-kata terbilang yang menguraikan sejumlah nilai total dari perhitungan. Padahal software spreadsheet yang banyak beredar tidak memberikan fasilitas untuk hal tersebut. Tak terkecuali software openoffice calc yang berlisensi GNU/GPL. Jangan berkecil hati dulu, berikut ini akan diuraikan langkah-langkah untuk membuat fungsi terbilang pada openoffice. Di sini penulis menggunakan openoffice 2.3. dengan sistem operasi Ubuntu 7.10. Tidak perlu risau apabila Anda menggunakan openoffice lain yang berjalan pada sistem operasi windows, fungsi ini tetap bisa digunakan.

Fungsi ini akan ditulis pada fasiltas macro yang telah disediakan oleh openoffice. Langkah-langkah yang perlu dilakukan untuk memasukkan fungsi terbilang ini adalah sebagai berikut: (sumber: http://maseko.com/code-snippet/openofficeorg-basic/fungsi-terbilang-oob/)
1. Jalankan OpenOffice.org Spreadsheet, pilih menu Tools > Macros > Organize Macros > OpenOffice.org Basic, sehingga nanti akan muncul kotak dialog OpenOffice.org Basic seperti gambar di bawah ini:


[Gambar. 1]

2. Pada kotak dialog OpenOffice.org Basic, pilih makro dari My Macros > Standard, kemudian klik tombol New


[Gambar.2]

3. Masukan kode di bawah ini, salin dan tempelkan pada halaman editor yang muncul.


[Gambar. 3]

Uji Pada sheet dengan memasukkan fungsi terbilangnya. Lihat contoh berikut:


[Gambar.4]

Kode yang harus Anda masukkan adalah sebagai berikut:

Function Kekata(Bilangan as double) As String
Dim angka as variant
angka = Array(“”,”satu”,”dua”,”tiga”,”empat”,”lima”,”enam”,_
“tujuh”,”delapan”,”sembilan”,”sepuluh”,”sebelas”)
Bilangan = abs(Fix(Bilangan))
If Bilangan<12 Then
Kekata = ” ” & angka(Bilangan)
Elseif Bilangan<20 Then
Kekata = Kekata(Bilangan – 10) & ” belas”
Elseif Bilangan<100 Then
Kekata = Kekata(Fix(Bilangan/10)) & ” puluh” & Kekata(Bilangan mod 10)
Elseif Bilangan<200 Then
Kekata = ” seratus” & Kekata(Bilangan mod 100)
Elseif Bilangan<1000 Then
Kekata = Kekata(Fix(Bilangan/100)) & ” ratus” & Kekata(Bilangan mod 100)
Elseif Bilangan<2000 Then
Kekata = ” seribu” & Kekata(Bilangan mod 1000)
Elseif Bilangan<1000000 Then
Kekata = Kekata(Fix(Bilangan/1000)) & ” ribu” & Kekata(Bilangan mod 1000)
Elseif Bilangan<1000000000 Then
Kekata = Kekata(Fix(Bilangan/1000000)) & ” juta” &_
Kekata(Bilangan- (Fix(Bilangan/1000000)*1000000))
Elseif Bilangan<1000000000000 Then
Kekata = Kekata(Fix(Bilangan/1000000000)) & ” milyar” &_
Kekata(Bilangan- (Fix(Bilangan/1000000000)*1000000000))
Elseif Bilangan<1000000000000000 Then
Kekata = Kekata(Fix(Bilangan/1000000000000)) & ” trilyun” &_
Kekata(Bilangan- (Fix(Bilangan/1000000000000)*1000000000000))
Else
Kekata = “Error! Input Tidak Dapat Diproses.”
EndIf
End Function

Function Terbilang(Bilangan as Double, Optional Style as Integer) as String
Dim temp as String
If Bilangan<0 Then
temp = “Minus ” & trim(kekata(Bilangan))
Else
temp = trim(kekata(Bilangan))
EndIf

If Style=1 Then
Terbilang = ucase(temp)
ElseIf Style=2 Then
Terbilang = lcase(temp)
ElseIf Style=3 Then
kata = split(temp)
l = LBound(kata)
u = UBound(kata)

For i=l to u
kata(i) = ucase(mid(kata(i),1,1)) & mid(kata(i),2)
Next i

Terbilang = join(kata())
Else
Terbilang = ucase(mid(temp,1,1)) & mid(temp,2)
EndIf
End Function

Cara penggunaan Fungsi tersebut adalah:
=terbilang(cell;style) (lihat gambar 4)
cell adalah kolom yang berisi bilangan yang akan diterjemahkan.
style adalah nilai integer yang sifatnya optional untuk mengatur output cara penulisan huruf besar atau kecilnya, dan jika tidak disertakan akan tampil huruf besar pada awal kalimat saja.
Nilai Style dapat dilihat sebagai berikut:
1 = Ditulis huruf kapital (Uppercase) semua
2 = Ditulis huruf kecil semua
3 = Huruf kapital hanya pada awal kata saja
Lainnya = Huruf besar pada awal kalimat saja
Misalkan cell G1 berisi bilangan 375000, dan kita akan menuliskannya di cell H1, maka:
= terbilang(G1) menghasilkan: Tiga ratus tujuh puluh lima ribu.
= terbilang(G1;1) menghasilkan: TIGA RATUS TUJUH PULUH LIMA RIBU
= terbilang(G1;2) menghasilkan: tiga ratus tujuh puluh lima ribu
= terbilang(G1;3) menghasilkan: Tiga Ratus Tujuh Puluh Lima Ribu
Dan untuk menambahkan rupiah di akhir kalimat, cukup melakukan trik berikut:
= terbilang(G1;3) & ” Rupiah” menghasilkan: Tiga Ratus Tujuh Puluh Lima Ribu Rupiah
Selamat Mencoba!


About this entry