Arsip: Tanya Konversi Angka

 
user image
more 14 years ago

tAtA

: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 ....
user image
more 14 years ago

budi_bunga

Kayaknya ada arsipnya tuh di Delphi ini, coba aja cari dibagian download ato yang lain, ok ?
user image
more 14 years ago

krizzy

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 ......
user image
more 14 years ago

skyblue

wah yg ini sampe konversi milyar ya thx mas krizzy, klo progrm yg saya buat dl cmn ampe juta T__T
user image
more 14 years ago

ImanD

@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"
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com