کمک برای رند کردن

[iran2008]

سلام
من توی این سوری میخوام وقتی که تو تکس باکس t5 مبلغی نشون داده میشه مثل 150 تومن رند بشه و بشه 100 تومن . و توی تکس باکس پاینیش نشون داده بشه 100 تومن .

[xxxxx_xxxxx]

رند كردن دو رقم سمت راست



Private Function RNDN(n As Integer) As Integer
d = Right(n, 2)
If d = "00" Then RNDN = n: Exit Function
If Val(d) > 50 Then
n = Mid(Str(n), 1, Len(Str(n)) - 2)
n = Str(n + 1) & "00"
RNDN = n
Else
n = Mid(Str(n), 1, Len(Str(n)) - 2)
n = Str(n) & "00"
RNDN = n
End If
End Function


موفق باشيد/