Jika Anda berkecimpung dalam matematika, maka Anda pasti sering menjumpai hasil pembagian suatu bilangan bisa saja "berkoma" sangat banyak. Sebagai contoh, coba Anda bagi 22 dengan 7, hasilnya adalah 3,14285714285.... dan seterusnya. Hasil seperti ini menjadi masalah jika kita akan mencetaknya pada kertas ataupun menampilkannya pada form. Perkara bisa bertambah jika pengguna meng-editnya, sebab 3,14 da 3,1428 akan menghasilkan bilangan berbeda (meskipun beda tipis) jika dikenai operasi bilangan, misal dalam kasus stok. Untuk menghindari hal ini, kita memerlukan menyederhanakan bilangan tadi dengan FormatFloat.
Banyak kode-kode yang digunakan pada format float. Saya akan memaparkan yang sudah sering saya gunakan, yaitu: #,##0.00;( #,##0.00);Kosong
Artinya:
#
Jika pada posisi # terdapat bilangan, maka bilangan tersebut akan langsung menggantikan tempat #, jika kosong, ya tetap ditulis kosong. Beda dengan tandan 0. Pada tanda 0, jika pada posisi 0 terdapat bilangan, maka bilangan tadi akan menggantikan 0, jika kosong, maka posisi tadi diisi dengan 0
;
Untuk memisahkan tanda kode, antara positif/negatif/bilangan kosong. Disebelah kiri untuk bilangan positif. Di tengah untuk bilangan negatif, sementara sebelah kanan untuk bilangan nol. Pada format diatas, saya akan memberikan tanda kurung untuk bilangan negatif, sedangkan tulisan kosong jika bilanga yang ada cuma nol. Jika Anda tetap menggunakan tanda negatif pada bilangan, Anda bisa mengubahnya menjadi:
#,##0.00;;Kosong
Contoh:
var
A : String;
B : String;
Hasil1, Hasil2 : Double;
begin
A := '22';
B := '35.789';
Hasil1 := StrToFloat(A) * StrToFloat(B);
A := '-22';
B := '35.789';
Hasil2 := StrToFloat(A) * StrToFloat(B);
ShowMessage('Hasil Perkalian adalah = ' + #13#10+
FormatFloat('#,##0.00;( #,##0.00);Kosong', Hasil1) + #13#10+
FormatFloat('#,##0.00;( #,##0.00);Kosong', Hasil2) + #13#10 +
FormatFloat('#,##0.00;;Kosong', Hasil2)
);
end;
Hasilnya adalah:
0 comments:
Posting Komentar