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]
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]>
To: [email protected]
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
