Tags

,


Fungsi round umumnya dikhususkan untuk pepmbulatan angka dibelakang koma, bagaimana kalau angka yg dibulatkan tsb angka di depan koma (angka integer) ?.

Berikut ini ada penggalan code (Function) yang bisa anda pakai untuk membulatkan angka didepan koma (angka Integer).

Atau anda juga bisa DOWNLOAD contoh programnya, dibagian bawah ini.

'************************************************
'
' RoundINT (Round Integer)
' Berfungsi sebagai pembulatan angka integer.
' Angka dibelakang koma, tetap ikut disertakan dalam
' pembulatan, tetapi hasilnya adalah angka integer
' tanpa angka di belakang koma.
'
' Copyright (c) Desember 2003 by Wahana Programmer
'
' Semoga bermanfaat.
'
'*************************************************
Private Function RoundINT(ByVal Number As Double, _
        Optional ByVal NumDigitsToRound As Double = 0) As Double
Dim Factor As Double
Dim ResultRound As Double
Dim Temp As Double
  Factor = 1 / Val("1" & Replace(Space(NumDigitsToRound), " ", "0"))
  ResultRound = Round(Number * Factor, 0)
  If Right(Round(Number * Factor, 1), 1) = 5 And _
    Int(Round(Number * Factor, 1)) = ResultRound And _
    NumDigitsToRound > 0 Then
    ResultRound = ResultRound + 1
  End If
  RoundINT = ResultRound / Factor
End Function

Syntax (cara penulisannya):

RoundINT(12,345.75, 2) ———> 12,400
RoundINT(12,345.75) ————> 12,346
RoundINT(444,4445.55, 2) ——> 444,500

Semoga bermanfaat.