semoga bermanfaat
Private Sub Pembulatan(ByVal Angka As String)
x = Trim(Mid(Angka, InStr(1, Angka, ".") + 1, 3))
If Len(x) = 3 Then
'jika ada 3 digit dibelakang
y = Right(x, 1)
'ambil 1 angka terakhir
If y <= 5 Then
'apabila angka terakhirnya kurang dari 5
MsgBox Round(Angka, 2)
'pembulatan hanya membuang agka terakhirnya saja
Else 'tetapi jika angka terkahirnya lebih besar dari angka 5
MsgBox Left(Trim(Angka), Len(Angka) - 1) + 0.01 'ambil
keseluruhan dari angkanya
'lalu buang angka terakhir dan
'dan krn lbh besar dari 5 maka dibulatkan
'dgn cara ditambah dgn 0.01
End If
End If
End Sub
kekurangan dari kode diatas adalah tidak bisa membulatkan yg mempunyai 2
digit desimal dibelakang koma
jadi ini hanya berlaku untuk 3 digit dibelakang koma,
dan harapan saya ada bnyk temen2 yg mau menyempurnakannya sehingga bisa juga
digunakan utk pembulatan 2 digit
dibelakang koma
contoh pemakaian spt ini :
Call Pembulatan(Text1.Text)
misal : Text1.text = 44,779.288
maka hasil yg diperoleh = 44,779.29
tapi jika Text1.Text = 44,779.284
maka hasil yg diperoleh = 44,779.28
salam
lilis
