Membuat fungsi terbilang menggunakan Libre Office

Kasus yg terjadi pada kerjaan saya dimana user akan membuat fungsi terbilang menggunakan Libre Office. Setelah bertanya pada beberapa sumber dan tentu saja paman google yg membantu jg akhirnya saya mendapatkan apa yg saya mau. Langsung saja

1. Buka Libre Office
2. Pilih Tools
3. Pilih Macros
4. Pilih Organize Macros
5. Pilih LibreOffice Basic
6. Muncul tampilan di bawah

7. Pilih Edit

8. Masukkan script di bawah ini kedalam kotak merah di atas

 

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 br="" then="">Kekata = " " & angka(Bilangan)
Elseif Bilangan<20 br="" then="">Kekata = Kekata(Bilangan - 10) & " Belas"
Elseif Bilangan<100 br="" then="">Kekata = Kekata(Fix(Bilangan/10)) & " Puluh" & Kekata(Bilangan mod 10)
Elseif Bilangan<200 br="" then="">Kekata = " seratus" & Kekata(Bilangan mod 100)
Elseif Bilangan<1000 br="" then="">Kekata = Kekata(Fix(Bilangan/100)) & " Ratus" & Kekata(Bilangan mod 100)
Elseif Bilangan<2000 br="" then="">Kekata = " seribu" & Kekata(Bilangan mod 1000)
Elseif Bilangan<1000000 br="" then="">Kekata = Kekata(Fix(Bilangan/1000)) & " Ribu" & Kekata(Bilangan mod 1000)
Elseif Bilangan<1000000000 br="" then="">Kekata = Kekata(Fix(Bilangan/1000000)) & " Juta" &_
Kekata(Bilangan- (Fix(Bilangan/1000000)*1000000))
Elseif Bilangan<1000000000000 br="" then="">Kekata = Kekata(Fix(Bilangan/1000000000)) & " Milyar" &_
Kekata(Bilangan- (Fix(Bilangan/1000000000)*1000000000))
Elseif Bilangan<1000000000000000 br="" 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 br="" 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

9. Pilih File >> Save

10. Selesai penambahan fungsi terbilang pada Libre Office, untuk hasilnya ada di bawah

Note Rumus =TERBILANG(B2) " Rupiah"

1. Terbilang : adalah fungsi untuk membuat angka menjadi terbilang

2. B2          : adalah tempat dimana angka yg ingin kita buat menjadi terbilang

3. Rupiah    : adalah menunjukkan mata uang yg di gunakan menjadi rupiah

Sekian, semoga bermanfaat

Terima Kasih