+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سؤال بخصوص العلامات العشرية والتقريب (/showthread.php?tid=46176)
سؤال بخصوص العلامات العشرية والتقريب - علاء الكبابي - 04-06-23
في برنامج محاسبات
عندي عميل محتاج يخلي مجموع الفاتورة مفيش فيه كسور غير ٠.٥ بس
بمعنى ان لو مجموع الاصناف بيساوي ٢٤.١٥
تتحول لوحدها ل ٢٤.٥
ولو ٢٤.٦٣ مثلا تتحول ل ٢٥.٠٠
يعني الكسور الي تحت ال ٠.٥ تتحسب ٠.٥ والي اكتر من ٠.٥ تتحسب واحد صحيح
تقريب ولكن مش التقريب الرياضي المعروف لان الرياضي هيخلي الأقل من ٠.٥ يتحسب صفر وهو مش عاوز كدة
RE: سؤال بخصوص العلامات العشرية والتقريب - G20 - 04-06-23
(04-06-23, 09:29 PM)علاء الكبابي كتب : في برنامج محاسبات
عندي عميل محتاج يخلي مجموع الفاتورة مفيش فيه كسور غير ٠.٥ بس
بمعنى ان لو مجموع الاصناف بيساوي ٢٤.١٥
تتحول لوحدها ل ٢٤.٥
ولو ٢٤.٦٣ مثلا تتحول ل ٢٥.٠٠
يعني الكسور الي تحت ال ٠.٥ تتحسب ٠.٥ والي اكتر من ٠.٥ تتحسب واحد صحيح
تقريب ولكن مش التقريب الرياضي المعروف لان الرياضي هيخلي الأقل من ٠.٥ يتحسب صفر وهو مش عاوز كدة
التقريب لاقرب ربع دينار
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If TextBox1.Text <> "" Then
TextBox1.Text = Val(TextBox1.Text).ToString("0.00")
Dim KK() As String = TextBox1.Text.Split(".")
Dim MySep As Double = CDbl(KK(1)) / 100
If MySep > 0.00 And MySep < 0.5 Then
MySep = 0.50
TextBox1.Text = (KK(0) + MySep).ToString("0.00")
ElseIf MySep > 0.5 And MySep < 1 Then
MySep = 1
TextBox1.Text = (KK(0) + MySep).ToString("0.00")
End If
End If
End SubRE: سؤال بخصوص العلامات العشرية والتقريب - علاء الكبابي - 05-06-23
تسلم ايدك
ظبطت معايا تمام