روش حذف ممیز و گرد کردن اعداد

[مهران چمنی]

سلام
حاصل محاسبات متغیر هایی در این تکس باکس قرار میگیرد

در برخی موارد اعداد به این شکل نمایش داده میشوند:
104692
حالا با چه دستوراتی میتونم ممیز رو حذف کنم و اعداد هم گرد بشوند

مثلا :
199,650,234
بشه
200


راستی لطفا با زبان بیسیک کمک نمایید.
پیشاپیش ممنون

[tooraj_azizi_1035]

Module Module1
Sub Main()
' Call Math.Round on this Double.
Dim before As Double = 123.45
Dim after1 As Double = Math.Round(before, 1, MidpointRounding.AwayFromZero)
Dim after2 As Double = Math.Round(before, 1, MidpointRounding.ToEven)
Dim after3 As Double = Math.Round(before)

Console.WriteLine(before)
Console.WriteLine(after1)
Console.WriteLine(after2)
Console.WriteLine(after3)
Console.WriteLine()

' Use on this Decimal.
Dim before2 As Decimal = 125.101
Dim after4 As Decimal = Math.Round(before2)
Dim after5 As Decimal = Math.Round(before2, 1)

Console.WriteLine(before2)
Console.WriteLine(after4)
Console.WriteLine(after5)
End Sub
End Module

Output

123.45
123.5
123.4
123

125.101
125
125.1

[hosein320]

اول یه تابع بساز
Private Function InN(ByVal number As Decimal)
If Int(number) <> number Then
number = Int(number)
number += 1
End If
Return number
End Function

اینجوری ازش استفاده کن
MsgBox(InN(199.1199931321))

[Purya Fallah]

با سلام .
فکر کنم این کد کار شما رو راه بنداره
System.Math.Round(12.5)
تابع Round یکی از توابع کلاس Math هستش که برای گرد گردن اعداد استفاده میشه .