لماذا دالة ال Round تعطي نتائج غير صحيحة

جرب أيضا هذا الكود ويعطى نفس النتائج السابقة

اقتباس

Dim value As Double = Double.Parse(TextBox1.Text)

Dim result As Double = Round(value )

TextBox2.Text = result.ToString

غريبة

:tantrum:

السلام عليكم ورحمة الله وبركاته

أخي الحبيب

اجعل الكود كما يلي :

TextBox2.Text = Decimal.Round(Val(TextBox1.Text), 0, MidpointRounding.AwayFromZero)

والسلام عليكم ورحمة الله وبركاته

ليست غريبة و لا غير صحيحة. هذه هي طريقة عمل Round في وضعها الإفتراضي. يسمى هذا التقريب البنكي banker rounding و يهدف إلى تقليل أخطاء التقريب عند وجود الكثير من القيم الرقمية.

من مقالة MSDN

اقتباس

Return Value

The whole number nearest parameter d. If d is halfway between two whole numbers, one of which by definition is even and the other odd, then the even number is returned.

Remarks

The behavior of this method follows IEEE Standard 754, section 4. This kind of rounding is sometimes called rounding to nearest, or banker's rounding.

اخوانى Hossam El-Din و System Down

شكرا على المعلومة وجزيتم خيرا فى الدنيا والأخرة