تحويل دالة من اكسيل الى اكسيس

[moommoom]

ياريت لو تكرمتم حد ياسعدنى فى هذه الدالة ان بحثت كتير اكتر من شهر ولم اصل الى شىء

برجاء جعل هذه الداله داخل فورمة او كويرى وتعطى نفس النتيجة كما فى الاكسيل

ولكم جزيل الشكر اخوانى واعطاكم الله من العلم الكثير

___________________.rar

[Dream_Works]

احتمال الرد يكون متأخر شوي و لكن تفضل

Dim B8 As Single, NewB8 As Single, Result As Single, Factor As Single

B8 = 547.05
NewB8 = B8 - 50

Select Case NewB8
Case 0 To 250: Factor = 6
Case 251 To 500: Factor = 6.5
Case 501 To 1000: Factor = 7
Case 1001 To 5000: Factor = 7.5
Case 5001 To 10000: Factor = 8
End Select
Result = Round(NewB8 * Factor / 1000, 2)