[ناجح احمد]

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

[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

[ناجح احمد]

(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

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