سوال در مورد گرد كردن اعداد

[a_m_i_n_000]

سلام
چه جوري ميشه به برنامه بگيم كه حاصل محاسبه هر عددي كه بشه .اون عدد رو به بالاگرد كنه .
مثلا اگه حاصل يه محاسبه در بياد 298 اون عدد رو به 300 كرد كنه .
مي خوام اعدادي كه برنامه به عنوان گرد شده تحويل مي ده اين جوري باشه :50 - 100 – 150 -200 – 250 – 300 – 350 - …

[Tasiyan]

298 اون عدد رو به 300 کرد کنه
اون كه نميشه گرد كردن
تابع Round براي گرد كردن كه اعشار رو گرد ميكنه
فكر كنم خودتون بايد يه تابع بنويسيد

[parselearn]

http://barnamenevis.org/forum/showthread.php?t=144285

[vbhamed]

سلام


Private Function Rond(n As Single) As Single

If n Mod 50 > 0 Then
Rond = (n \ 50) * 50 + 50
Else
Rond = n
End If

End Function

Private Sub Form_Load()

MsgBox Rond(1)
MsgBox Rond(249)
MsgBox Rond(251)

End Sub