Format Mata Uang Rupiah

Konversi format mata uang asing ke mata uang Rupiah (Rp).

Sebagai contoh:
Penulisan mata uang USD : $2,000
Penulisan mata uang IDR : Rp.2.000

Nilai mata uang contoh diatas, sama-sama bernilai dua ribu, hanya saja pada standar negara kita, karakter koma (,) digantikan dengan karakter titik (.).

Berikut fungsi yang dapat anda gunakan untuk mengkonversi bilangan tersebut:

function sMataUangRP(nilai:  Currency) : String;
var
  n: String;
begin
  n:= 'Rp.' + AnsiReplaceStr(FormatFloat('#,###',Nilai),',','.');
  if nilai <= 0 then
  n:= 'Rp.0';
  Result:= n;
end;

Contoh implementasi:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    Label4.Caption:= sMataUangRP(StrToInt(Edit1.Text) + StrToInt(Edit2.Text)) +
                     ',00-';
  except
    ShowMessage('Tidak dapat menjumlahkan !');
  end;
end;

Pada klausa uses, tambahkan unit StrUtils.

Output - Format Rupiah