منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - سؤال بخصوص العلامات العشرية والتقريب

في برنامج محاسبات
عندي عميل محتاج يخلي مجموع الفاتورة مفيش فيه كسور غير ٠.٥ بس
بمعنى ان لو مجموع الاصناف بيساوي ٢٤.١٥
تتحول لوحدها ل ٢٤.٥
ولو ٢٤.٦٣ مثلا تتحول ل ٢٥.٠٠
يعني الكسور الي تحت ال ٠.٥ تتحسب ٠.٥ والي اكتر من ٠.٥ تتحسب واحد صحيح
تقريب ولكن مش التقريب الرياضي المعروف لان الرياضي هيخلي الأقل من ٠.٥ يتحسب صفر وهو مش عاوز كدة

(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 Sub

تسلم ايدك
ظبطت معايا تمام

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

علاء الكبابي

G20

علاء الكبابي