[G20]

(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