السلام عليكم
عندي ارقام كسور واريد تقريبها الى اقرب 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
وبارك الله فيك ولك