Fungsi Terbilang pada Borland Delphi

Fungsi terbilang adalah suatu fungsi sederhana yang berguna untuk mengkonversikan dari angka ke dalam format huruf (terbilang) seperti halnya yang sering Anda lihat pada kuitansi.

Berikut ini adalah fungsi terbilang-nya.

function Terbilang(x:integer):string;
const
abil : array[0..11] of string[10]=('','satu','dua','tiga',
'empat','lima','enam','tujuh','delapan','sembilan',
'sepuluh','sebelas');

begin
if (x < 12) then
Result := ' ' + abil[x]
else
if (x < 20) then
Result := Terbilang(x-10) + ' belas'
else
if (x < 100) then
Result := Terbilang(x div 10) + ' puluh' + Terbilang(x mod 10)
else
if (x < 200) then
Result := ' seratus' + Terbilang(x-100)
else
if (x < 1000) then
Result := Terbilang(x div 100) + ' ratus' + Terbilang(x mod 100)
else
if (x < 2000) then
Result := ' seribu' + Terbilang(x-1000)
else
if (x < 1000000) then
Result := Terbilang(x div 1000) + ' ribu' + Terbilang(x mod 1000)
else
if (x < 1000000000) then
Result := Terbilang(x div 1000000) + ' juta' + Terbilang(x mod 1000000);
end;

Silakan saja Anda coba fungsi di atas pada Borland Delphi. Penulis sudah mencobanya pada Delphi 6.0. Demikianlah tulisan singkat mengenai fungsi terbilang pada Borland Delphi. Semoga bermanfaat bagi Anda semua

Silakan download source code lengkap dari project di atas