read more......

Tips & Tricks: Pembulatan ke atas untuk Nominal Ratusan

Berikut function untuk membulatkan nominal Ratusan menjadi Ribuan (pembulatan ke atas). Misal: 1.250.100 dibulatkan menjadi 1.251.000. Nominal 1.250.900 menjadi 1.251.000

Function BulatRibu_Keatas(nNilai As Integer) as Integer

Dim cAngka As String
Dim cBulat As String

cAngka = Str(nNilai)
cBulat = Right(cAngka, 3)
If Val(cBulat) > 0 Then
          nNilai = nNilai - Val(cBulat)
          nNilai = nNilai + 1000
End If
BulatRibu_Keatas = nNilai
 

End Function