منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] تقريب العدد الصحيح لاقرب الف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] تقريب العدد الصحيح لاقرب الف (/showthread.php?tid=22542)

تقريب العدد الصحيح لاقرب الف - ناجح احمد - 14-11-17

السلام عليكم
اخواني الاعزاء اريد دالة تقرب العدد لاقرب الف مثلا لدي الرقم 9166 اريد تقريبة الى 9000 او لدي 9625 يقرب الى 10000
بارك الله بكم

RE: تقريب العدد الصحيح لاقرب الف - eiocm - 14-11-17

Private Sub Command1_Click()
Dim n1
n1 = Val(Text1)
Text2 = MRound(n1, 1000)
End Sub

Function MRound(n, r)
MRound = Round(n / r, 0) * r
End Function

RE: تقريب العدد الصحيح لاقرب الف - ناجح احمد - 14-11-17

(14-11-17, 07:54 PM)eiocm كتب : Private Sub Command1_Click()
   Dim n1
   n1 = Val(Text1)
   Text2 = MRound(n1, 1000)
End Sub

Function MRound(n, r)
   MRound = Round(n / r, 0) * r
End Function

شكرا جزيلا بارك الله فيك نعم هو المطلوب