[ناجح احمد]

(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

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