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

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

كود :

  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