+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التقريب لاقرب ربع دينار (/showthread.php?tid=37911)
التقريب لاقرب ربع دينار - المتألق9 - 28-02-21
السلام عليكم
عندي ارقام كسور واريد تقريبها الى اقرب 0.25 و 0.50 و 0.75
يعني لو الرقم 1.18 يتقرب الى 1
ولو 1.30 يتقرب الى 1.25
ولو 1.40 يتقرب الى 1.25 وهكذا
RE: التقريب لاقرب ربع دينار - ابراهيم ايبو - 01-03-21
السلام عليكم ورحمة الله وبركاته
اخي الكريم لم اشأ في الخوض في الدوال الجاهزة في نت فريم ورك ان كانت موجودة وتعمل مثل ماتريد
الذي اعرفه ان الدوال الموجودة اما ان تقرب الفاصلة نحو الادنى او نحو الاعلى او تحت النصف نحو الادنى وفوق النصف نحو الاعلى
لكن لايهمك فالدوال اصلا مبنية على اكواد شبيهة بما ساورده لك
اليك هذا الكود
كود :
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.0 And MySep < 0.25 Then
MySep = 0.0
TextBox1.Text = (KK(0) + MySep).ToString("0.00")
ElseIf MySep >= 0.25 And MySep < 0.5 Then
MySep = 0.25
TextBox1.Text = (KK(0) + MySep).ToString("0.00")
ElseIf MySep >= 0.5 And MySep < 0.75 Then
MySep = 0.5
TextBox1.Text = (KK(0) + MySep).ToString("0.00")
ElseIf MySep >= 0.75 And MySep < 1 Then
MySep = 0.75
TextBox1.Text = (KK(0) + MySep).ToString("0.00")
End If
End If
End SubRE: التقريب لاقرب ربع دينار - المتألق9 - 01-03-21
مشكور جدا يا اخي
وربي يبارك فيك ويرحم والديك
الف الف شكر لك
RE: التقريب لاقرب ربع دينار - ابراهيم ايبو - 01-03-21
الحمد لله والشكر لله
ولك ايضا اخي الكريم المتألق9
وبارك الله فيك ولك