Bisa dilakukan dgn menambah formatnya: DECI = Format(x - Int(x), "0.##########") Mungkin ada yg lebih praktis. thanks.
________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of MEDAN SKD Sent: Monday, December 04, 2006 2:47 PM To: [email protected] Subject: Re: [Programmer-VB] Ambil nilai dibelakang koma Mas, saya udah coba gini: Dim X As Double Dim DECI As Double X = 4.0999888809 DECI = X - Int(X) hasilnya DECI=9.99888808999998E-02 harusnya 0.0999888809 kenapa ya? tq R12al ----- Original Message ----- From: Seno Yudhi Hananto <mailto:[EMAIL PROTECTED]> To: [email protected] <mailto:[email protected]> Sent: Monday, December 04, 2006 2:19 PM Subject: Re: [Programmer-VB] Ambil nilai dibelakang koma kenapa gak hasil = nilai - int(nilai) contohnya = 4.0999888809 - int(4.0999888809) = 4.0999888809 - 4 = 0.0999888809 --- Darsana <[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> > wrote: > kalo mau yg tradisional : > trim(str) > ambil panjang seluruhnya > ambil posisi koma > angka sebelum koma = left(str,posisi-1) > angka setelah koma = right(str,panjang-posisi) > > salah ya ??? blom nyoba, cuman raba2 > > > > ----- Original Message ----- > From: MEDAN SKD > To: [email protected] <mailto:Programmer-VB%40yahoogroups.com> > Sent: Sunday, December 03, 2006 8:50 PM > Subject: Re: [Programmer-VB] Ambil nilai > dibelakang koma > > > > Mas Ageng, > Maksud saya sebenarnya hasilnya begini: > > Nilai Sebelumnya > Bilangan bulat pecahannya > 4.0999888809 > 4 0.0999888809 > 12.775999997 > 12 0.775999997 > 1.412667 > 1 0.412667 > > > > ----- Original Message ----- > From: ageng setia > To: [email protected] <mailto:Programmer-VB%40yahoogroups.com> > Sent: Monday, December 04, 2006 11:04 AM > Subject: Re: [Programmer-VB] Ambil nilai > dibelakang koma > > > > Hallo Pa Khabar Semuanya > > Hallo sorry saya salah ketik code ^_^. Harusnya: > Dim i as variant > i = split(object, ",") > msgbox i(1) > > Coba kamu pelajari file attach yang aku kirim > ya. > > Semoga membantu and Sukses untuk Kita Semua > > Best Regards > ag3ng > > > ----- Original Message ---- > From: MEDAN SKD <[EMAIL PROTECTED] <mailto:skdmdn%40diamond.co.id> > > To: [email protected] <mailto:Programmer-VB%40yahoogroups.com> > Sent: Monday, December 4, 2006 10:37:30 AM > Subject: Re: [Programmer-VB] Ambil nilai > dibelakang koma > > > > Mas Ageng > Saya udah coba pake ini: > > Private Sub Form_Load() > Dim I As Variant > Dim X As Double > > X = 678.99912121 > I = Split(X, ",") > MsgBox I > End Sub > > Muncul error type mismacth > Mohon bantuannya > > ----- Original Message ----- > From: ageng setia > To: Programmer-VB@ yahoogroups. com > Sent: Monday, December 04, 2006 10:07 AM > Subject: Re: [Programmer- VB] Ambil nilai > dibelakang koma > > > > Hallo Semua pa khabar > > Hallo coba kamu pakai script ini deh: > > Dim i as variant > i = split(object, ",") > msgbox split(1) > > Semoga membantu dan sukses untuk kita semua > > Best Regards > ag3ng > > > ----- Original Message ---- > From: Sukanda Djaya Medan <[EMAIL PROTECTED] > co.id> > To: Programmer-VB@ yahoogroups. com > Sent: Monday, December 4, 2006 9:07:45 AM > Subject: [Programmer- VB] Ambil nilai > dibelakang koma > > > > Rekan > > Misalnya saya mempunyai data nilai: > > 234,888809 > 123,775 > 1.412,667 > 23.888,91912 > > > bagaimana cara mengambil nilai yg ada > dibelakang koma? > > tq > r12al > > > > > ---------------------------------------------------------- > Everyone is raving about the all-new Yahoo! > Mail beta. > > > > Internal Virus Database is out-of-date. > Checked by AVG Free Edition. > Version: 7.1.375 / Virus Database: 268.1.2/274 > - Release Date: 3/3/2006 > > > > > > ---------------------------------------------------------- > Cheap Talk? Check out Yahoo! Messenger's low > PC-to-Phone call rates. > > > > ---------------------------------------------------------- > > > Internal Virus Database is out-of-date. > Checked by AVG Free Edition. > Version: 7.1.375 / Virus Database: 268.1.2/274 - > Release Date: 3/3/2006 > > > __________________________________________________________ Want to start your own business? Learn how on Yahoo! Small Business. http://smallbusiness.yahoo.com/r-index <http://smallbusiness.yahoo.com/r-index> ________________________________ Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.1.375 / Virus Database: 268.1.2/274 - Release Date: 3/3/2006
