Menambah kata rupiah didelphi

Terinspirasi menulis ini karena banyak temen – temen yang lagi nyari😀.Sering kita jumpai dalam membuat laporan berupa nota atau di listview yang berhubungan dengan uang harus ditampilkan dalam format rupiah.
Nah, untuk menampilkan pemisah ribuan (thousand separator) dan menambah kata rupiah, saya membuat function seperti dibawah ini.

function TampilDuit(duit : String):String;
begin
 Result := FormatCurr('"Rp. ",#000",00',StrToCurr(duit));
end;

Penjelasan :
Nama function tampilDuit dengan parameter awal berupa string dan nilai kembalinya berupa string pula. Dalam formatCurr, data harus bertipe Currency sehingga parameter yang dimasukkan, dikonversi terlebih dahulu dari string ke currency dengan perintah StrToCurr.

Contoh pemanggilan function :

      with dm.q1 do
      begin
          LabelTotal.Caption:= tampilDuit(FieldbyName('total').AsString);
      end;

semoga bermanfaat.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: