Kalau untuk versi bahasa inggrisnya saya udah pernah buat hingga 999 triliun dollar (quintillion $) sbb:
function Baca (puluhan_kebawah : string) : string; var english : string; begin case StrToInt(puluhan_kebawah) of 1 : english := ' one '; 2 : english := ' two '; 3 : english := ' three '; 4 : english := ' four '; 5 : english := ' five '; 6 : english := ' six '; 7 : english := ' seven '; 8 : english := ' eight '; 9 : english := ' nine '; 10 : english := ' ten '; 11 : english := ' eleven '; 12 : english := ' twelve '; 13 : english := ' thirteen '; 14 : english := ' fourteen '; 15 : english := ' fifteen '; 16 : english := ' sixteen '; 17 : english := ' seventeen '; 18 : english := ' eighteen '; 19 : english := ' nineteen '; 20 : english := ' twenty '; 30 : english := ' thirty '; 40 : english := ' fourty '; 50 : english := ' fifty '; 60 : english := ' sixty '; 70 : english := ' seventy '; 80 : english := ' eighty '; 90 : english := ' ninety '; end;{ bacaan unik } baca := english; end;{function baca} procedure TForm1.BitBtn1Click(Sender: TObject); var angka : array[1..15] of string[1]; angka_duit, dibaca,sisip : string; panjang,i : byte; begin angka_duit := MaskEdit1.Text; panjang := length(angka_duit); for i := 1 to 15 do begin angka[i] := '0'; end; i := 0; repeat inc(i); angka [i] := ''; angka[i] := Copy(angka_duit,panjang+1-i,1); until i = panjang; Dibaca := ''; if panjang <= 2 then begin if ((panjang=2) and (StrToInt(angka[2]+angka[1])<=20)) then begin dibaca := baca(angka_duit); end; end else begin i := 0; sisip := ''; repeat inc(i); case i of 1,4,7,10,13 : begin case i of 4 : if StrToInt(angka[i+2]+angka[i+1]+angka[i]) > 0 then sisip := ' thousand '; 7 : if StrToInt(angka[i+2]+angka[i+1]+angka[i]) > 0 then sisip := ' million '; 10 : if StrToInt(angka[i+2]+angka[i+1]+angka[i]) > 0 then sisip := ' billion '; 13 : if StrToInt(angka[i+2]+angka[i+1]+angka[i]) > 0 then sisip := ' quintillion '; else sisip := ''; end;{case} if StrToInt(angka[i+1]+angka[i]) <= 20 then begin dibaca := baca(angka[i+1]+angka[i])+sisip+dibaca; inc(i); end else begin dibaca := baca(angka[i]) + sisip + dibaca; end;{if} end; 2,5,8,11,14: begin dibaca := baca(angka[i]+'0')+dibaca; end; 3,6,9,12,15: begin if StrToInt(angka[i]) > 0 then begin dibaca := baca(angka[i])+ 'hundred' + dibaca end else begin dibaca := baca(angka[i])+dibaca; end;{if} end; end;{case} Until i >= panjang; end; {if panjang} Label1.Caption := dibaca + ' rupiahs '; end; end. Untuk versi Indonesia, harus buat dulu...:-) --------- Semoga bermanfaat -------------- ----- Original Message ----- From: "yani ardianto" <[EMAIL PROTECTED]> To: <ITCENTER@yahoogroups.com> Sent: Monday, January 31, 2005 12:57 PM Subject: [ITCENTER] CONVERSI NILAI KE ANGKA TERBILANG > > MAAF SAYA MAU TANYA! > GIMANA CARA KONVERSI NILAI KE ANGKA TERBILANG DENGAN > DELPHI > > -- www.ITCENTER.or.id - Komunitas Teknologi Informasi Indonesia Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED] ::: Hapus bagian yang tidak perlu (footer, dst) saat reply! ::: ## Forum: ITCENTER.or.id/forum ## Jobs: ITCENTER.or.id/jobs ## Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/ITCENTER/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/