01-06-19, 03:45 PM
(آخر تعديل لهذه المشاركة : 01-06-19, 03:51 PM {2} بواسطة khairallah.)
(01-06-19, 03:09 PM)ابراهيم ايبو كتب :السلام عليكم اخي الكريمتفضل هذا الكودكود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Nmbr As Decimal = Val(TextBox1.Text / 1000)
TextBox2.Text = String.Format("{0:0}", Nmbr) ' لتقريب العدد
TextBox2.Text *= 1000
End Sub
مشكور اخي الكريم لكن في هذا الوقت وقبل ان ارى ردك الكريم صنعت دالة وتعمل جيدا ً ويسهل استعمالها داخل الفورم ما رايك ؟
كود :
Public Function XRound(c As Double) As Double
Dim B = Microsoft.VisualBasic.Right(c, 3), A = c - B
If B > 0 Then B = 0 : A += 1000
Return a + b
End Function
