منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

(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

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