:D ketawa dulu ah padahal pusiiiing abiiisss... nah sekarang waktunya bertanya pada Rekan Semua, tAtA mau tanya gimana caranya konversi angka ke huruf/kalimat contohnya 5.000.000 menjadi Lima juta rupiah 250.162 menjadi Dua ratus lima puluh ribu seratus enam puluh dua rupiah mohon bantuan, saya butuh buat cetak kwitansi Matur Nuwun ....

Kayaknya ada arsipnya tuh di Delphi ini, coba aja cari dibagian download ato yang lain, ok ?

To : tAtA Kire2x kayak gini, maap agak lupa dikit function terbilang(sValue: string):string; const Angka : array of string = ('', 'Satu', 'Dua', 'Tiga', 'Empat', 'Lima', 'Enam', 'Tujuh', 'Delapan', 'Sembilan', 'Sepuluh', 'Sebelas', 'Duabelas', 'Tigabelas', 'Empatbelas', 'Limabelas', 'Enambelas', 'Tujuhbelas', 'Delapanbelas', 'Sembilanbelas'); sPattern: string = '000000000000000'; var S,kata : string; Satu, Dua, Tiga, Belas, Gabung: string; Sen, Sen1, Sen2: string; Hitung : integer; one, two, three: integer; begin One := 4; Two := 5; Three := 6; Hitung := 1; Kata := ''; S := copy(sPattern, 1, length(sPattern) - length(trim(sValue))) + sValue; Sen1 := Copy(S, 14, 1); Sen2 := Copy(S, 15, 1); Sen := Sen1 + Sen2; while Hitung < 5 do begin Satu := Copy(S, One, 1); Dua := Copy(S, Two, 1); Tiga := Copy(S, Three, 1); Gabung := Satu + Dua + Tiga; if StrToInt(Satu) = 1 then Kata := Kata + 'seratus ' else if StrToInt(Satu) > 1 Then Kata := Kata + Angka[StrToInt(satu)+1] + ' ratus '; if StrToInt(Dua) = 1 then begin Belas := Dua + Tiga; Kata := Kata + Angka[StrToInt(Belas)+1]; end else if StrToInt(Dua) > 1 Then Kata := Kata + Angka[StrToInt(Dua)+1] + ' puluh ' + Angka[StrToInt(Tiga)+1] else if (StrToInt(Dua) = 0) and (StrToInt(Tiga) > 0) Then begin if ((Hitung = 3) and (Gabung = '001')) or ((Hitung = 3) and (Gabung = ' 1')) then Kata := Kata + 'seribu ' else Kata := Kata + Angka[StrToInt(Tiga)+1]; end; if (hitung = 1) and (StrToInt(Gabung) > 0) then Kata := Kata + ' milyar ' else if (Hitung = 2) and (StrToInt(Gabung) > 0) then Kata := Kata + ' juta ' else if (Hitung = 3) and (StrToInt(Gabung) > 0) then begin if (Gabung = '001') or (Gabung = ' 1') then Kata := Kata + '' else Kata := Kata + ' ribu '; end; Hitung := Hitung + 1; One := One + 3; Two := Two + 3; Three := Three + 3; end; if length(Kata) > 1 then Kata := Kata + ' Rupiah '; Result := Kata; end; semoga membantu ......

wah yg ini sampe konversi milyar ya thx mas krizzy, klo progrm yg saya buat dl cmn ampe juta T__T

@tAtA klo mo posting pastikan cari dulu forum sebelumnya dah ada ap belum? ni yang sejenis http://www.delphi-id.org/dpr/PNphpBB2-viewtopic-t-1794-highlight-angka.pas padahal pas tampilan depan pun dah ada yang judulnya "Konversi Rupiah ke Terbilang"