Membuat Fungsi Terbilang Rupiah Pada Delphi

Fungsi Terbilang Juga merupakan hal yang terkadang diperlukan dalam sebuah aplikasi lebih-lebih jika aplikasi yang anda bangun adalah aplikasi penjualan (Jual Beli). Hal ini (Fungsi Terbilang) sangat membantu seorang kasir karena terkadang kita sulit dengan cepat untuk mengetahui jumlah uang yang tertulis dengan angka. lebih mudah jika tertulis dengan huruf (tinggal baca saja). hehe

Berangkat dari hal tersebut diatas, Jika Pada Postingan Sebelumnya Kita Membahas Tentang Bagaimana Merubah Format Integer Menjadi Format Mata uang Rupiah, Pada Postingan Kali Ini Kita akan Membahas bagaimana Membuat sebuah Fungsi Terbilang Rupiah Dengan Delphi.

Pertama, Tambahkan 1 Buah Komponen Edit, 1 Buah Button dan 1 Buah Label Pada Form Anda. Oya, Jangan Lupa Tambahkan StrUtils Pada Uses Anda.

Kedua, Tambahkan Code ini tepat dibawah code {$R *.dfm}

// Fungsi Terbilang
function terbilang(sValue: string):string;
const
Angka : array [1..20] of string =
('', 'Satu', 'Dua', 'Tiga', 'Empat',
'Lima', 'Enam', 'Tujuh', 'Delapan',
'Sembilan', 'Sepuluh', 'Sebelas',
'Duabelas', 'Tigabelas', 'Empatbelas',
'Limabelas', 'Enambelas', 'Tujuhbelas',
'Delapanbelas', 'Sembilanbelas');
sPattern: string = '000000000000000';

var
S,Rupiah : string;
Satu, Dua, Tiga, Belas, Gabung: string;
Sen, Sen1, Sen2: string;
Hitung : integer;
one, two, three: integer;

begin
One := 4;
Two := 5;
Three := 6;
Hitung := 1;
Rupiah := '';
S := copy(sPattern, 1, length(sPattern) - length(trim(sValue))) + sValue;
Sen1 := Copy(S, 14, 1);
Sen2 := Copy(S, 15, 1);
Sen := Sen1 + Sen2;
while Hitung < 5 do
begin
Satu := Copy(S, One, 1);
Dua := Copy(S, Two, 1);
Tiga := Copy(S, Three, 1);
Gabung := Satu + Dua + Tiga;

if StrToInt(Satu) = 1 then
Rupiah := Rupiah + 'Seratus '
else
if StrToInt(Satu) > 1 Then
Rupiah := Rupiah + Angka[StrToInt(satu)+1] + ' Ratus ';

if StrToInt(Dua) = 1 then
begin
Belas := Dua + Tiga;
Rupiah := Rupiah + Angka[StrToInt(Belas)+1];
end
else
if StrToInt(Dua) > 1 Then
Rupiah := Rupiah + Angka[StrToInt(Dua)+1] + ' Puluh ' +
Angka[StrToInt(Tiga)+1]
else
if (StrToInt(Dua) = 0) and (StrToInt(Tiga) > 0) Then
begin
if ((Hitung = 3) and (Gabung = '001')) or
((Hitung = 3) and (Gabung = ' 1')) then
Rupiah := Rupiah + 'Seribu '
else
Rupiah := Rupiah + Angka[StrToInt(Tiga)+1];
end;

if (hitung = 1) and (StrToInt(Gabung) > 0) then
Rupiah := Rupiah + ' Milyar '
else
if (Hitung = 2) and (StrToInt(Gabung) > 0) then
Rupiah := Rupiah + ' Juta '
else
if (Hitung = 3) and (StrToInt(Gabung) > 0) then
begin
if (Gabung = '001') or (Gabung = ' 1') then
Rupiah := Rupiah + ''
else
Rupiah := Rupiah + ' Ribu ';
end;
Hitung := Hitung + 1;
One := One + 3;
Two := Two + 3;
Three := Three + 3;
end;
if length(Rupiah) > 1 then Rupiah := Rupiah + ' Rupiah ';
Result := Rupiah;
end;
// End Terbilang

Ketiga, Klik dua kali Komponen Button dan Tambahkan Code dibawah ini :

Label1.Caption:=terbilang(Edit1.Text);

Berikut Hasil Print Screen Saya :