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


    
  

    
    




<!--

#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}

#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}

#ygrp-vital a:hover{
text-decoration:underline;
}

#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
-->








 
____________________________________________________________________________________
Need a quick answer? Get one in minutes from people who know.
Ask your question on www.Answers.yahoo.com

<<attachment: test.zip>>

Kirim email ke