تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تقريب العدد الصحيح لاقرب الف
#2
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
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Ahmed_Mansoor


الردود في هذا الموضوع
RE: تقريب العدد الصحيح لاقرب الف - بواسطة eiocm - 14-11-17, 07:54 PM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم