Selamat pagi semua,
Mohon kiranya para master vb bisa membantu saya neh. Saya ada kesulitan
mengenai membulatkan bilangan uang kea atas dah kebawah
Dim Source As Integer
Dim Jmldigits As Integer
Dim nil As String
Jmldigits = 0
Source = 0
Jmldigits = Len(Text1.Text)
Text2.Text = ""
If Jmldigits > 1 Then
Source = Right(Text1.Text, 2)
If Jmldigits = 2 Then
If Val(Source) <= 49 Then
Text2.Text = 50
Else
Text2.Text = 100
End If
Else
nil = Replace(Text1.Text, ".", "")
If Val(Source) <= 99 Then
Text2.Text = Format(Mid(nil, 1, Len(nil) - 2) & (Source + (100 -
Source)), "###,###")
End If
End If
Else
Text2.Text = Text1.Text
End If
Code ini hanya membulatkan ke bilangan 50, misalnya saya punya Nilai 16.535
maka Hasilnya akan 16.550 ini benar.
Tetapi jika saya mempunyai Nilai 16.585 maka hasilnya tidak jadi 16.600,
hasilnya tetep 16.550
Saya dah coba muter-muter tapi tetep lom dapet juga neh
Mohon bantuannya para master VB.
Terimakasih sebelumnya
Regards,
Narif
