Thursday, January 6, 2011

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.

Source : http://opxbit.web.id/belajar-delphi/tips-trik-delphi/format-mata-uang-rupiah.html

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Kang Iwan K-sev | Thank's for your visit To My Site - Ridwan Mulyana | Cibeureum