mas mas ad yg tau gman caranya pembulatan ratusan misal ak punya tipe data double misal nilai hasil yg di inginkan 1.450.300 1.450.000 15.300.250 15.300.000 jdi menghilangkan angka ratusan .. trima ksih sblumnya..

2 langkah : 1. cut 3 angka belakang 2. tambahkan angka '000' dibelakang

single line sample simple: Nilai div 1000 * 1000

coba pake ini "StringReplace(edit1.Text, rightstr(edit1.Text,3), '000', [rfReplaceAll, rfIgnoreCase]);"

@muktaf : gak valid bro your code...coba klo Edit1.Text misalkan isinya adalah : 900.900 gmn hayoo... :mrgreen: klo saya gini :

var
  s: string;
begin
  s := Edit1.Text;
  Delete(s,Length(s) - 2,Length(s));
  Edit1.Text := Concat(s,'000');
end;

kok dibuat ribet, pake dr Om ImanD itu, udah jelas minta ribuan ilang (itu tdk ada resiko) Clear n Sample Code

@vera: mas mas ad yg tau gman caranya pembulatan ratusan misal ak punya tipe data double misal nilai hasil yg di inginkan 1.450.300 1.450.000 15.300.250 15.300.000 jdi menghilangkan angka ratusan .. trima ksih sblumnya..

biar rame az dech, xixixixix perasaan yg di bicarakan data type nya adalah double kenapa larinya ke string semua? klo menurutku tetep ahh dengan Nilai div 1000 1000 tetap simple kan seperti yg dibilang kang @ichan29, xixixi dengan sample yg diatas(u/ memperjelas aze) 1450300 div 1000 1000 = 1450000 15300250 div 1000 * 1000 = 15300000

wakakakakak...sorry ga liat pertanyaan yg di atas,cman pingin benerin samplenya @muktaf aja :mrgreen:

@ImanD: biar rame az dech, xixixixix perasaan yg di bicarakan data type nya adalah double kenapa larinya ke string semua?

biar tambah rame lg...xiiiiiixiii... @Imand : 1. fungsi div setau saya buat type integer (gak bs double/bilangan pecah). 2. setau aku div ama kali () prioritas nya lebih tinggi kali ( )....jd operasi div harus di kasih kurung....

   nilai := (trunc(nilai) div 1000) * 1000;

btw : ngapain report2 ...wong yg nanya aja dah kabur kok.... wakakakakakak...........

@mas_kofa ini yg saya tunggu2 dari tadi dah di pancing 2jawaban tapi baru @mas_kofa yang jeli karena memang data yg dibuat sample am saya adalah double tanpa pecahan, xixixixix saya sangat setuju sekali dengan apa yg di utarakan @mas_kofa terutama no. 1 karena memang di help-nya delphi pun dah ada(makasih). ramein az dech skalian, yuhuuu cuman yg kedua aku kurang setuju masalah kurung, xixixix (takut pada lepas ya itu-nya) aku kasih sample : misal: nilai = 1000 // integer az dech biar si function trunc() di istirahatkan dulu menurut penjabaran mas_kofa diatas ================================== nilai:=nilai div 5 3; tidak akan sama dengan <> nilai:=(nilai div 5) 3; 600<>600 ??? dan === nilai:=nilai div 5 3; akan sama dengan = nilai:=nilai div (5 3); // dikurungkan karena seolah-olah menurut @mas_kofa prioritas utama kan? 600=66 ??? oia atu lagi

@mas_kofa: btw : ngapain report2 ...wong yg nanya aja dah kabur kok.... wakakakakakak...........

ko mas kofa tau klo yg nanya dah kaburs, xixixix klo gitu buat apa ada menu di bawah ini di adakan klo toh tanggal yg dah bertahun2 masih di tampilkan juga(unanswered=belom solving kayak thread ini blom solving khan?) kayaknya yg nanya dah pada kaburs dech(di lock az sekalian), xixixixiix