Gunakan fungsi ini.
Cara pakai:
b=CRand(5.8)
b=6
c=CRand(6.4)
c=6.5
dst.
'Taruh di Module Umum (General Module)
'-----------start---------------
Function CRand(ByVal sValue As Double) As Double
On Error GoTo err_f
Dim c As Double
a = Fix(sValue)
b = (sValue - a) * 10
Select Case b
Case 3 To 7
c = CDbl(a) + 0.5
Case Else
c = Round(sValue, 0)
End Select
CRand = c
exit_f:
Exit Function
err_f:
Debug.Print Err.Number & vbCrLf & Err.Description
Resume exit_f
End Function
'-----------end---------------
--- In [email protected], "sukarno" <[EMAIL PROTECTED]>
wrote:
>
> Dear All,
>
> Mohon bantuan
>
> bagaimana cara membuat format berikut:
> 5.8, 5.9, 6.0, 6.1, 6.2 menjadi 6.0
> 6.3, 6.4, 6.5, 6.6, 6.7 menjadi 6.5
>
> dan seterusnya
>
> Terima kasih
>
> Sukarno
>
