Langsung ke konten utama

Fungsi terbilang dengan Javascript

Ini adalah script untuk mengkonversi bilangan menjadi kata-kata (terbilang) fungsi ini pertama ditulis oleh Yanmarshus pada 2 September 2005 dengan PHP, kemudian iseng-iseng coba saya konversi pake Javascript, hasilnya seperti dibawah ini
function terbilang(bilangan) {

bilangan = String(bilangan);
var angka = new Array('0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0');
var kata = new Array('','Satu','Dua','Tiga','Empat','Lima','Enam','Tujuh','Delapan','Sembilan');
var tingkat = new Array('','Ribu','Juta','Milyar','Triliun');

var panjang_bilangan = bilangan.length;

/* pengujian panjang bilangan */
if (panjang_bilangan > 15) {
kaLimat = "Diluar Batas";
return kaLimat;
}

/* mengambil angka-angka yang ada dalam bilangan, dimasukkan ke dalam array */
for (i = 1; i <= panjang_bilangan; i++) {
angka[i] = bilangan.substr(-(i),1);
}

i = 1;
j = 0;
kaLimat = "";


/* mulai proses iterasi terhadap array angka */
while (i <= panjang_bilangan) {

subkaLimat = "";
kata1 = "";
kata2 = "";
kata3 = "";

/* untuk Ratusan */
if (angka[i+2] != "0") {
if (angka[i+2] == "1") {
kata1 = "Seratus";
} else {
kata1 = kata[angka[i+2]] + " Ratus";
}
}

/* untuk Puluhan atau Belasan */
if (angka[i+1] != "0") {
if (angka[i+1] == "1") {
if (angka[i] == "0") {
kata2 = "Sepuluh";
} else if (angka[i] == "1") {
kata2 = "Sebelas";
} else {
kata2 = kata[angka[i]] + " Belas";
}
} else {
kata2 = kata[angka[i+1]] + " Puluh";
}
}

/* untuk Satuan */
if (angka[i] != "0") {
if (angka[i+1] != "1") {
kata3 = kata[angka[i]];
}
}

/* pengujian angka apakah tidak nol semua, lalu ditambahkan tingkat */
if ((angka[i] != "0") || (angka[i+1] != "0") || (angka[i+2] != "0")) {
subkaLimat = kata1+" "+kata2+" "+kata3+" "+tingkat[j]+" ";
}

/* gabungkan variabe sub kaLimat (untuk Satu blok 3 angka) ke variabel kaLimat */
kaLimat = subkaLimat + kaLimat;
i = i + 3;
j = j + 1;

}

/* mengganti Satu Ribu jadi Seribu jika diperlukan */
if ((angka[5] == "0") && (angka[6] == "0")) {
kaLimat = kaLimat.replace("Satu Ribu","Seribu");
}

return kaLimat + "Rupiah";
}
Semoga bermanfaat ya...

Komentar

  1. Terima kasih Pak atas infonya ,sangat bermanfaat

    BalasHapus
  2. penggunaannya ngono gan

    BalasHapus
  3. terima kasih, sangat bermanfaat

    BalasHapus
  4. terima kasih banyak pak. semoga bapak dilancarkan rezekinya, dimudahkan urusannya. hidup bahagia bersama keluarga. aamiin

    BalasHapus
  5. thx atas code nya

    BalasHapus
  6. thanks gan.
    kalau desimal 2 digit belum bisa ya

    BalasHapus
  7. Terima kasih scriptnya..

    BalasHapus
  8. BABYLISS PRO nano titanium - Titanium Arts
    BABYLISS PRO nano titanium is designed and manufactured with the latest and titanium dive knife best innovations. This revolutionary titanium trim reviews design is made titanium legs of nano titanium by babyliss pro titanium alloy A$39.00 · ‎In ion titanium on brassy hair stock

    BalasHapus

Posting Komentar

Postingan populer dari blog ini

SQLSERVER - Lihat tanggal terakhir dari bulan

Few questions are always popular. They keep on coming up through email, comments or from co-workers. Finding Last Day of Any Month is similar question. I have received it many times and I enjoy answering it as well. I have answered this question twice before here: SQL SERVER – Script/Function to Find Last Day of Month SQL SERVER – Query to Find First and Last Day of Current Month Today, we will see the same solution again. Please use the method you find appropriate to your requirement. Following script demonstrates the script to find last day of previous, current and next month. ----Last Day of Previous Month SELECT DATEADD(s,-1,DATEADD(mm, DATEDIFF(m,0,GETDATE()),0)) LastDay_PreviousMonth ----Last Day of Current Month SELECT DATEADD(s,-1,DATEADD(mm, DATEDIFF(m,0,GETDATE())+1,0)) LastDay_CurrentMonth ----Last Day of Next Month SELECT DATEADD(s,-1,DATEADD(mm, DATEDIFF(m,0,GETDATE())+2,0)) LastDay_NextMonth ResultSet: LastDay_PreviousMonth ———————– 2007-07-31 23:59:59.000 LastDay_Current...

Setup Subversion Server di Windows

Download subversion versi terbaru dari tigris.org . Install/Unzip semua file yang ada dari file yang sudah anda download tadi ke lokasi yang anda inginkan, misalnya c:\program files\subversion\. Buka command prompt (ketik cmd dari menu Run ). lalu masuk ke folder dimana letak file svnadmin.exe berada. Jika anda menginstall subversion di c:\program files\subversion\, maka ketikan: Microsoft Windows XP [Version 5.1.2600] (C) Copyright 1985-2001 Microsoft Corp. C:\Documents and Settings\ADIONO>cd c:\program files\subversion\bin  Langkah selanjutnya adalah membuat folder untuk repository, dimana folder inilah yang nantinya akan berperan sebagai server. Misalnya anda ingin menaruh direcory anda di E:\Repo maka yang perlu anda lakukan adalah mengetik perintah dibawah ini: C:\Program Files\Subversion\bin>svnadmin create "E:\Repo" Setelah itu masuk ke server yang sudah anda buat tadi (misal: E:\Repo). Gunakan file explorer untuk i...