read more......

 

 

 

 

 

 

 

 

 

 

 

Tips & Tricks: Pembulatan ke Bawah untuk Nominal Ratusan

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

 

Function BulatRibu_Kebawah(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)
End If
BulatRibu_Kebawah = nNilai
 

End Function