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
