!link! Download Add In Terbilang Wps Office (2024)

Function Terbilang(ByVal Angka As Double) As String Dim Satuan As Variant Dim Hasil As String Dim i As Integer Satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas") 'Logika konversi (disederhanakan untuk artikel) If Angka < 12 Then Terbilang = Satuan(Angka) ElseIf Angka < 20 Then Terbilang = Satuan(Angka Mod 10) & " Belas" ElseIf Angka < 100 Then Terbilang = Satuan(Angka \ 10) & " Puluh " & Satuan(Angka Mod 10) Else Terbilang = "Angka terlalu besar, perlu kode lengkap" End If

Here are reliable methods to download the file, which will typically have the extension or .xlam . download add in terbilang wps office