salam... baut mas nyom2, aku dah coba aplikasikan source code dari mas nyom2 sbb:
Private Sub Command50_Click() Dim Posisi_r, Posisi_e As Integer Dim sbl_kom_r, stl_kom_r, sbl_kom_e, stl_kom_e As Integer Posisi_r = InStr(Me.P_Mark_Real, ".") Posisi_e = InStr(Me.P_Mark_Estim, ".") sbl_kom_r = Left(Me.P_Mark_Real, Posisi_r - 1) stl_kom_r = Right(Me.P_Mark_Real, Len(Me.P_Mark_Real) - Posisi_r) sbl_kom_e = Left(Me.P_Mark_Estim, Posisi_e - 1) stl_kom_e = Right(Me.P_Mark_Estim, Len(Me.P_Mark_Estim) - Posisi_e) Me.Text46 = (stl_kom_e / 36 + sbl_kom_e) / Me.Gbr_Estim Me.Text54 = (stl_kom_r / 36 + sbl_kom_r) / Me.Gbr_Real End Sub syntax diatas jalan pada bilangan yang mempunyai nilai dibelakang koma, bila bilangannya bulat (tanpa nilai diblkang koma) langsung error. tolong dunk revisinya... thx. deddy g. --- In [email protected], "Darsana" <[EMAIL PROTECTED]> wrote: > > To Dedi Gunawan , > > > Dim Str, StrSebelum, StrSetelah As String > Dim PosisiKoma As Integer > > Str = "DARSANA , NYOMAN" > PosisiKoma = InStr(Str, ",") > StrSebelum = Left(Str, PosisiKoma - 1) > StrSetelah = Right(Str, Len(Str) - PosisiKoma) > MsgBox ("String Asli : " & Str & vbCrLf & "String sebelum : " & StrSebelum & vbCrLf & "String setelah koma " & StrSetelah) > > bila dia diperlalukan sebagai numeric , dihilangkan dulu spasi kiri dan kanan, baru di value-kan. semoga bermanfaat . > > salam, > nyom2 > > ----- Original Message ----- > From: dedi_gunawan1711 > To: [email protected] > Sent: Monday, March 05, 2007 3:41 PM > Subject: [Programmer-VB] Re: Mengambil Nilai di depan dan di blkng koma >
