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:
2. Pada kotak dialog OpenOffice.org Basic, pilih makro dari My Macros > Standard, kemudian klik tombol New
3. Masukan kode di bawah ini, salin dan tempelkan pada halaman editor yang muncul.
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 5. Uji Pada sheet dengan memasukkan fungsi terbilangnya. Lihat contoh berikut:
