Gunakan saja fungsi Replace txthasil.Text = Replace(Val(txt1.Text) - Val(txt2.Text),",",".")
--- In [email protected], "Sodik Ihwan" <[EMAIL PROTECTED]> wrote: > > selain dicoba set regional setting, salah satu cara lain yg bisa dicoba > adalah meng-convert dulu hadi string, kemudian ambil setiap karakter, > begitu ketemu "," ganti jadi "." san sebaliknya. > > On Fri, 28 Mar 2008 09:41:04 +0700, NARIF RAHMAT SANTOSA SANTOSA > <[EMAIL PROTECTED]> wrote: > > > Master VB yang terhormat saya mau Tanya neh : > > Bagai caranya mengurangi bilangan pecahan dan hasil yang di tampilkan > > bukan koma melainkan titik Contoh : > > Private Sub Command1_Click() > > txthasil.Text = Val(txt1.Text) - Val(txt2.Text) > > End Sub > > Jika di txt1.text dimasukan angka 2.5 dan di txt2.text dimasukan angka 1 > > Maka jika di kurangi hasilnya akan 1,5 > > Yang saya > > inginkan adalah 1.5 bukan 1,5 > > Terimakasih atas bantuannya. > > > > > > > > > > > > ________________________________________________________ > > Kunjungi halaman depan Yahoo! Indonesia yang baru! > > http://id.yahoo.com/ > > > > -- > Using Opera's revolutionary e-mail client: http://www.opera.com/mail/ > > Send instant messages to your online friends http://asia.messenger.yahoo.com >
