Tips berikut menunjukkan kepada Anda bagaimana caranya membulatkan bilangan pecahan berdasarkan pilihan tertentu.
Deskripsi:
Deskripsi:
Membulatkan suatu bilangan pecahan berdasarkan pilihan tertentu.
Persiapan:
1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.
2. Copy-kan coding berikut ke editor Form yang bertalian
2. Copy-kan coding berikut ke editor Form yang bertalian
Function Round(nValue As Double, nDigits As Integer) As Double
Round = Int(nValue * (10 ^ nDigits) + 0.5) / (10 ^ nDigits)
End Function
Private Sub Form_Load()
'Ganti '19.8455' dengan bilangan yang ingin Anda bulatkan.
'Ganti '2' dengan jumlah digit setelah koma untuk hasil setelah pembulatan.
MsgBox Round(19.8455, 2)
End Sub
Round = Int(nValue * (10 ^ nDigits) + 0.5) / (10 ^ nDigits)
End Function
Private Sub Form_Load()
'Ganti '19.8455' dengan bilangan yang ingin Anda bulatkan.
'Ganti '2' dengan jumlah digit setelah koma untuk hasil setelah pembulatan.
MsgBox Round(19.8455, 2)
End Sub
0 komentar:
Posting Komentar