منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التّقريب إلى العدد الطبيعي الأكبر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : التّقريب إلى العدد الطبيعي الأكبر (/showthread.php?tid=15112)

التّقريب إلى العدد الطبيعي الأكبر - عبد العزيز البسكري - 15-03-16

                                                                                           [b]السّلام عليكم و رحمة الله و بركاته[/b]
أساتذتي الأفاضل
إخوتي الأعزّاء
لو تكرّمتم فضلاً لا أمرًا
كيف يمكن تقريب النتيجة بالتاكست3 إلى العدد الطبيعي الأكبر مباشرة
مثلاً :
4578.25 يتم تقريبه إلى 4579.00
55844.70 يتم تقريبه إلى العدد 55845.00
بارك الله فيكم مسبّقًا و جزاكم خير الجزاء
                                                              فائق إحتراماتي

RE: التّقريب إلى العدد الطبيعي الأكبر - ناجي إبراهيم - 15-03-16

السلام عليكم...

إذا كنت تقصد أنه إذا كان العدد يحتوي على كسر - مهما كانت قيمته - فإنه يُقرب إلى العدد الأكبر التالي، فيمكنك استعمال كود كالتالي (بفرض أن العدد الأصلي في Text1 و العدد المقرب سيظهر في Text2):

PHP كود :
Dim Val1 As Double
    
Val1 = CDbl(Text1.Text)
Text2.Text = IIf(Fix(Val1) = Val1, CStr(Val1), CStr(Fix(Val1) + 1)) 

نرجو الاستفادة و السلام.

RE: التّقريب إلى العدد الطبيعي الأكبر - عبد العزيز البسكري - 15-03-16

السّلام عليكم و رحمة الله و بركاته
بارك الله فيك أخي الفاضبل " ناجي إبراهيم "
جزاك الله خير الجزاء و زادها بموازين حسناتك
هذا هو المطلوب بالضبط
فائق إحتراماتي