Tengkiu tengkiu untuk para jago VB Indonesia solusinya mantap2..Program saya dah jalan tapi belum dicompile...:D
--- In [email protected], "simbok_cahyo" <[EMAIL PROTECTED]> wrote: > > mas ungoh, ini saya coba kembangkan dari punya mas toni: > > Private Sub Command2_Click() > Dim hASil > Dim sTR_hASIL As String > Dim EPos As Integer > > hASil = (286.61 / 105.504) ^ 500 > sTR_hASIL = CStr(hASil) > For i = Len(sTR_hASIL) To 1 Step -1 > If Mid(sTR_hASIL, i, 1) = "E" Then > EPos = i > Exit For > End If > Next > > sTR_hASIL = Left(sTR_hASIL, 4) + Mid(sTR_hASIL, EPos, Len > (sTR_hASIL) + 1 - EPos) > End Sub > > > salam, > cahyo > > > --- In [email protected], "Toni Rahayu" <toni.rahayu@> > wrote: > > > > > > > > Ok mas ungoh, > > coba pake ini, > > > > hasil = (286.61 / 105.504) ^ 500 > > hasil = Left(hasil, 4) > > > > kirim feed back kalo masih salah, ok! > > > > Salam > > > > > > > > > > "ungoh_0731" <ungoh_0731@> on 04/18/2007 04:37:07 PM > > > > Please respond to [email protected] > > > > To: [email protected] > > cc: (bcc: Toni Rahayu/IT/domino_srv) > > > > Subject: [Fwd: [indoprog-vb] Re: ambil angka dibelakang koma] > > > > > > > > Salam.... > > Bener mas toni hasilnya 1.02614050926141E+ 217 (saya yang oon ga bs > > tekan kalkulator):D > > jika hasilnya demikian maka nilai hasil bukanya digit > > dibelakang koma tapi saya tetap ingin ambil 1.02 aja.kira kodenya > > gimana ya Mas? thx > > > > > > > > > > Toni Rahayu > > PT. Omedata Electronics > > IT Department > > Hunting : (62-22) 6030805 Ext 121 > > Faxs : (62-22) 6030896 > > Homepage : http://toni.rahayu.tripod.com > > >
