[المتألق9]

السلام عليكم
عندي ارقام كسور واريد تقريبها الى اقرب 0.25 و 0.50 و 0.75

يعني لو الرقم 1.18 يتقرب الى 1
ولو 1.30 يتقرب الى 1.25
ولو 1.40 يتقرب الى 1.25 وهكذا

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم لم اشأ في الخوض في الدوال الجاهزة في نت فريم ورك ان كانت موجودة وتعمل مثل ماتريد
الذي اعرفه ان الدوال الموجودة اما ان تقرب الفاصلة نحو الادنى او نحو الاعلى او تحت النصف نحو الادنى وفوق النصف نحو الاعلى
لكن لايهمك فالدوال اصلا مبنية على اكواد شبيهة بما ساورده لك
اليك هذا الكود

كود :

  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 Sub

[المتألق9]

مشكور جدا يا اخي
وربي يبارك فيك ويرحم والديك
الف الف شكر لك

[ابراهيم ايبو]

الحمد لله والشكر لله 

ولك ايضا اخي الكريم المتألق9

وبارك الله فيك ولك