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] 
  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] 
    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


   

Kirim email ke