15-03-16, 03:22 AM
السلام عليكم...
إذا كنت تقصد أنه إذا كان العدد يحتوي على كسر - مهما كانت قيمته - فإنه يُقرب إلى العدد الأكبر التالي، فيمكنك استعمال كود كالتالي (بفرض أن العدد الأصلي في Text1 و العدد المقرب سيظهر في Text2):
نرجو الاستفادة و السلام.
إذا كنت تقصد أنه إذا كان العدد يحتوي على كسر - مهما كانت قيمته - فإنه يُقرب إلى العدد الأكبر التالي، فيمكنك استعمال كود كالتالي (بفرض أن العدد الأصلي في Text1 و العدد المقرب سيظهر في Text2):
PHP كود :
Dim Val1 As Double
Val1 = CDbl(Text1.Text)
Text2.Text = IIf(Fix(Val1) = Val1, CStr(Val1), CStr(Fix(Val1) + 1))
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
