Rounding to 500 or 1000!!! 1

[Fekri]

Hi to all,

I have a calculation result on my form and I want to create a button command to make the result Round to 500 or 1000.

for example:

result Round

1350 1500
1780 2000
340 500
910 1000

any one can help me?

thanks
Ali

Thanks & Good Luck
Ali Fekri

 

[JBinQLD]

G'day Ali

I've assumed your control are called txtIn and txtOut:

Private Sub BtnRndTo500_Click()

   Dim intResult As Integer

   intResult = CInt(Me!txtIn / 500)

   Me!txtOut = intResult * 500

End Sub

Hope that helps, works perfectly with your examples.

JB

 

[Fekri]

Thanks so much

it was so perfect.



Thanks & Good Luck
Ali Fekri