محمد السباعي قام بنشر مارس 17, 2007 قام بنشر مارس 17, 2007 السلام عليكم ورحمة الله وبركاتة برجاء من الأخوه الأحباء تكميل هذه المعادلة لتصبح لأربع متغيرات بحيث من 0 إلى 0.25 و من 0.26 إلى 0.50 و من 0.51 إلى 0.75 و من 0.76 إلى 1.00 وهذه هي المعادلة ( في هذه المعادلة لمتغير واحد فقط ) Public Function RoundUpTo5(ByVal S) As Double On Error Resume Next Select Case S - Fix(S) Case 0: RoundUpTo5 = S Case 0 To 0.5: RoundUpTo5 = Fix(S) + 0.5 Case Is > 0.5: RoundUpTo5 = Round(S, 0) End Select End Function جزاكم الله خيرا
حازم حسين قام بنشر مارس 17, 2007 قام بنشر مارس 17, 2007 السلام عليكم يا اخ محمد ممكن توضح السؤال اكثر لاني مش فاهمه شكراً
منذر عساج قام بنشر مارس 17, 2007 قام بنشر مارس 17, 2007 أخي الكريم ستكون الكود بالشكل التالي مع تغيير نتيجة تحقق الشرط بما تريد . Public Function RoundUpTo5(ByVal S) As Double On Error Resume Next Select Case S - Fix(S) Case 0 To 0.25: RoundUpTo5 = Fix(S) + 0.5 Case 0.26 To 0.5: RoundUpTo5 = Fix(S) + 0.5 Case 0.51 To 0.75: RoundUpTo5 = Fix(S) + 0.5 Case 0.76 To 1: RoundUpTo5 = Fix(S) + 0.5 End Select End Function
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.