“VBNET Round to bliski tysiąc” Kod odpowiedzi

VBNET Round to bliski tysiąc

If intMyNumber Mod 1000 >= 500 Then
	intResult = intMyNumber + 1000 - intMyNumber Mod 1000
Else
	intResult = intMyNumber - intMyNumber Mod 1000
End If