Format Angka Finansial

Beberapa waktu lalau ada yang nyasar ke blog ini dengan sebuah pertanyaan: "listing delphi untuk angka dibelakang koma...."

Nah, saya tulis saja :)

Untuk memformat angka pecahan, terutama dalam aplikasi akuntansi, kita dapat menggunakan fungsi format float:

[sourcecode language="delphi"]
FormatFloat(const AFormat:String; const AValue: Extended): String;
[/sourcecode]

Di mana,

[sourcecode language="delphi"]
AFormat = 'FORMAT_ANGKA_POSITIF;FORMAT_ANGKA_NEGATIF;FORMAT_0';
[/sourcecode]

Saya telah membuat potongan kode untuk mempermudah:

[sourcecode language="delphi"]
function FinaceFloat(const AValue: Double): String;
var
simpan: array[1..2] of char;
begin
simpan[1]:=ThousandSeparator;
simpan[2]:=DecimalSeparator;
ThousandSeparator:='.';
DecimalSeparator:=',';
Result:=FormatFloat('#,#0.00   ;(#,#0.00)  ;-    ', AValue);
ThousandSeparator:=simpan[1];
DecimalSeparator:=simpan[2];
end;
[/sourcecode]

Berikut contoh penggunaanya:

[sourcecode language="delphi"]
Edit2.Text:=FinaceFloat(StrToFloat(Edit1.Text));
Edit4.Text:=FinaceFloat(StrToFloat(Edit3.Text));
Edit6.Text:=FinaceFloat(StrToFloat(Edit5.Text));
[/sourcecode]

Hasilnya: