Function Untuk Menambahkan Karakter ‘0’( Nol) di depan Angka

Biasanya , ketika kita bikin aplikasi database kita akan banyak berurusan dengan data No Bukti. Pada umumnya, data no bukti ini mempunyai pola tertentu, misalnya :

PO/10/0000001 : No Bukti Purchase Order, tahun 2010, no Urut 1
GR/10/0000101 : No Bukti Goods Receiving, tahun 2010, no Urut 101.


PO/10/0000001 : No Bukti Purchase Order, tahun 2010, no Urut 1
GR/10/0000101 : No Bukti Goods Receiving, tahun 2010, no Urut 101.



Dengan pola seperti itu, wajib bagi kita untuk menambahkan karakter 0 sebelum no urut. Pada artikel ini saya akan mencoba memberikan dua contoh function yang bisa melakukan hal di atas.


1. Cara Sendiri

function TambahkanKarakterNol(Const AAngka, 
ALength : Integer) : String;
begin
Result := IntToStr(AAngka);
while length(Result) < ALength do Result := '0' + Result;
end;
2. Caranya Delphi : )
function TambahkanKarakterNol(AAngka, ALength : Integer): string;
begin
Result := SysUtils.Format('%.*d',[ALength, AAngka]);
end;

4 comments:

maskaes said...

gak dong hehe....

Bagus Prasojo said...

ini kelihatannya salah comment dech : )

Anonymous said...

manteps gan thx udah kebantu

Bagus Prasojo said...

ok, sama2 mas : )

Post a Comment