التقريب

[komi2004]

بحاجة الى كود يقوم تقريب الرقم كما في المثال المذكور ادناه

مثل 6.2=6

6.3 = 6.5

6.5=6.5

6.69=6.5

6.7=7

مع الشكر

[عفرنس]

8 ساعات مضت, komi2004 said:

بحاجة الى كود يقوم تقريب الرقم كما في المثال المذكور ادناه

مثل 6.2=6

6.3 = 6.5

6.5=6.5

6.69=6.5

6.7=7

مع الشكر

بحثت لك فوجدت هذا الملف .. 

إن شاء الله يكون ما أردت . 

تقريب1.mdb

[Hawiii]

جرب هذه الدالة:
 

Function myRound(ByVal Num As Double) As Double
    Dim DecOld As Double
    Dim DecNew As Double
  
    DecOld = Num - Int(Num)
    Num = Int(Num)
  
   'If DecOld < 0.3 Then
    If DecOld < 0.29999999999 Then
        DecNew = 0
    ElseIf DecOld >= 0.7 Then
        DecNew = 1
    Else
        DecNew = 0.5
    End If
  
    myRound = Num + DecNew
End Function

 

تم تعديل أبريل 7, 2020 بواسطه Hawiii