Buat Boss Nyom2... Makasih banget buat source codenya, aku dah coba dan bekerja dengan OK. mudah2 tuhan membalas segala kebaikan boss. thx. Deddy G.
--- In [email protected], "Darsana" <[EMAIL PROTECTED]> wrote: > > to : Dedi > > ini saya revisi dikit , sapa tahu membantu : > > 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, ".") > > '---tambahkan disini, bila ketemu koma maka lanjutkan dengan split, bila tidak ada koma langsung ambil bilangannya : > if posisi_r > 0 then > sbl_kom_r = val(trim(Left(Me.P_Mark_Real, Posisi_r - 1))) > stl_kom_r = val(trim(Right(Me.P_Mark_Real, Len(Me.P_Mark_Real) - Posisi_r))) > else > sbl_kom_r = val(trim(Me.P_Mark_Real)) > stl_kom_r = 0 > endif > > if posisi_e > 0 then > sbl_kom_e = val(trim(Left(Me.P_Mark_Estim, Posisi_e - 1))) > stl_kom_e = val(trim(Right(Me.P_Mark_Estim, Len(Me.P_Mark_Estim) - Posisi_e))) > else > sbl_kom_e = val(trim(Me.P_Mark_Estim)) > stl_kom_e = 0 > endif > > 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 >
