Function fRoundUp15(ByVal Angka As Long) As Long
On Error GoTo err_f
X = Angka / 15
Y = Angka \ 15
Select Case X
Case Y
fRoundUp15 = Y * 15
Case Else
fRoundUp15 = (Y + 1) * 15
End Select
exit_f:
Exit Function
err_f:
Debug.Print Err.Description
Resume exit_f
End Function
--- In [email protected], "Dwi Wuryantadi"
<[EMAIL PROTECTED]> wrote:
>
> Dear all,
> Bagaimana caranya membuat fungsi vba untuk membulatkan angka keatas 15.
> Misal x = 2 dibulatkan menjadi 15,
> x = 35 dibulatkan menjadi 45
> Thanks b 4
>
>
>
> ___________________________________________________________
> Try the all-new Yahoo! Mail. "The New Version is radically easier to
use" The Wall Street Journal
> http://uk.docs.yahoo.com/nowyoucan.html
>
