moommoom قام بنشر أكتوبر 18, 2008 قام بنشر أكتوبر 18, 2008 ياريت لو تكرمتم حد ياسعدنى فى هذه الدالة ان بحثت كتير اكتر من شهر ولم اصل الى شىء برجاء جعل هذه الداله داخل فورمة او كويرى وتعطى نفس النتيجة كما فى الاكسيل ولكم جزيل الشكر اخوانى واعطاكم الله من العلم الكثير ___________________.rar
Dream_Works قام بنشر أكتوبر 22, 2008 قام بنشر أكتوبر 22, 2008 احتمال الرد يكون متأخر شوي و لكن تفضل 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)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.