تقريب العدد الصحيح بدون كسور

[رياض البرعي]

السلام عليكم ورحمة الله و بركاتة
 

عندي نوذج فاتورة  و في اجمالي الفاتورة يكون الرقم الصحيح ك 233 او 231  اريد ان يتم تقريب هذه الارقام الى 240
اي ان
251 تقرب الى 260

256 يقرب الى 260

و هكذا
 

مع العلم بحثت في المتدى ووجدت فقط دوال التقريب ارقام الكسور مثل 2.5 تقرب الى 3 و هذا غير مطلوب معي

الرجاء المساعدة

[Shivan Rekany]

اهلا بك @رياض البرعي

ما عرفنا في اي منطقة تريد الكود في سامراء او حلب

اي قصدي في الاستعلام ام نموذج
اتفضل اليك هذا الكود

استخدمه في حدث بعد تحديث

If Right(Me.Text0, 1) <= 4 Then
        Me.Text2 = Int(Int(Me.Text0) / 10) * 10
Else
        Me.Text2 = Int(1 + Int(Int(Me.Text0) / 10)) * 10
End If

تيكست 0 هو اسم مربع نصي تبعك

تم تعديل مايو 26, 2017 بواسطه Shivan Rekany

[رياض البرعي]

3 دقائق مضت, Shivan Rekany said:

اهلا بك @رياض البرعي

ما عرفنا في اي منطقة تريد الكود في سامراء او حلب

اي قصدي في الاستعلام ام نموذج
اتفضل اليك هذا الكود

استخدمه في حدث بعد تحديث

Int(Int(Me.Text0) / 10) * 10

تيكست 0 هو اسم مربع نصي تبعك

تسلم اخي @Shivan Rekany

هذا هو المطلوب و لكن اريد ان يكون التقريب الى الاعلى
اقصد مثل 203 يتم تقريبها الى 210
وليس 200

 

اريدة في استعلام
و كذلك في نموذج

يعني الاثنين بارك الله فيك

[Shivan Rekany]

13 دقائق مضت, رياض البرعي said:

لكن اريد ان يكون التقريب الى الاعلى

اليك هذا تم عملت التعديل في مشاركتي الاعلاه

18 دقائق مضت, Shivan Rekany said:

Int(1 + Int(Int(Me.Text0) / 10)) * 10

وتقدر تستخدم دالة IIF في الاستعلام

[رياض البرعي]

5 دقائق مضت, Shivan Rekany said:

اليك هذا تم عملت التعديل في مشاركتي الاعلاه

وتقدر تستخدم دالة IIF في الاستعلام

هذا هو المطلووووووب  

تسلم اخي
و حفظك الرحمن من كل شر
و شهر كريم و كل عام و انت بالف خير

[حربي العنزي]

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته

بعد اذن استاذي الفاضل الاستاذ الرائع شفان ريكاني ربي يحفظه يارب

اخي الفاضل رياض البرعي انا ايضا اتعلم من هذا المنتدى الاكثر من رائع وحسب علمي المتواضع فقط غير علامة الاصغر من الى علامة الاكبر في السطر الاول عسى يكون المطلوب

If Right(Me.Text0, 1) >= 4 Then 

تحياتي لك

تم تعديل مايو 26, 2017 بواسطه حربي العنزي

[Shivan Rekany]

اهلا بك @حربي العنزي

هذا لاستخدام الى الاسفل

Int(Me.Text0 / 10) * 10

وهذا الى الاعلى

Int(1 + Int(Me.Text0 / 10)) * 10

وانتظرني سافتح باذن الله موضوع جديد مع فانكشن لكي تقدرون تستخدمون مع الاستعلامات بشروط

[حربي العنزي]

الله لايحرمنا من شخصك الكريم الاستاذ الفاضل شفان ريكاني 

سائلين الله جل وعلا ان يمن عليك وعلى عائلتك الكريمة بالصحة والعافية يارب يارب

[رمهان]

11 ساعات مضت, Shivan Rekany said:

اهلا بك @حربي العنزي

هذا لاستخدام الى الاسفل

Int(Me.Text0 / 10) * 10

وهذا الى الاعلى

Int(1 + Int(Me.Text0 / 10)) * 10

وانتظرني سافتح باذن الله موضوع جديد مع فانكشن لكي تقدرون تستخدمون مع الاستعلامات بشروط

معليش استاذ شيفان 

لو العدد 200 او 210 او 10 

فهل السائل يريد كذلك 210 تصبح 220 ام تضل كماهي لانها مقربة للعشرة

تحياتي

[Shivan Rekany]

6 دقائق مضت, رمهان said:

فهل السائل يريد كذلك 210 تصبح 220 ام تضل كماهي لانها مقربة للعشرة

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

 

تم تعديل مايو 27, 2017 بواسطه Shivan Rekany

[رمهان]

10 دقائق مضت, Shivan Rekany said:

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

 

طيب لو طبقنا معادلتك للاكبر 

 

11 ساعات مضت, Shivan Rekany said:

وهذا الى الاعلى

Int(1 + Int(Me.Text0 / 10)) * 10

وانتظرني سافتح باذن الله موضوع جديد مع فانكشن لكي تقدرون تستخدمون مع الاستعلامات بشروط

ستغير 10 الى 20 وهكذا ؟

هل انت فهمت قصدي؟

[Shivan Rekany]

3 دقائق مضت, رمهان said:

ستغير 10 الى 20 وهكذا ؟

يعني لازم نستخدم هكذا

IIf(Right(Me.Text0, 1) <> 0, Int(1 + Int(Me.Text0) / 10) * 10, Me.Text0)

شكرا على التنبه

13 ساعات مضت, Shivan Rekany said:

استخدمه في حدث بعد تحديث

If Right(Me.Text0, 1) <= 4 Then
        Me.Text2 = Int(Int(Me.Text0) / 10) * 10
Else
        Me.Text2 = Int(1 + Int(Int(Me.Text0) / 10)) * 10
End If

تيكست 0 هو اسم مربع نصي تبعك

 

[رمهان]

ايش رايك حسب فهمي

If Right(Text0, 1) <> 0 Then Text0 = Text0 - Right(Text0, 1) + 10

تحياتي

اضفنا الردود بنفس اللحظة استاذ شيفان

وهذي ب iif

IIf(Right(Text0, 1) <> 0, Text0 - Right(Text0, 1) + 10, Text0)

 

[Shivan Rekany]

2 دقائق مضت, رمهان said:

ايش رايك حسب فهمي

If Right(Text0, 1) <> 0 Then Text0 = Text0 - Right(Text0, 1) + 10

تحياتي

نعم هو المطلوب عند طلب التقريب الى الاعلى وفي مشاركتي السابقة انا استحخدمت IIF كل منها يعطيك نفس النتيجة

ولكن بطريقة مختلفة

2 دقائق مضت, Shivan Rekany said:

IIf(Right(Me.Text0, 1) <> 0, Int(1 + Int(Me.Text0) / 10) * 10, Me.Text0)

شكرا لك مجددا

[رمهان]

6 دقائق مضت, Shivan Rekany said:

يعني لازم نستخدم هكذا

IIf(Right(Me.Text0, 1) <> 0, Int(1 + Int(Me.Text0) / 10) * 10, Me.Text0)

شكرا على التنبه

 

العفو وتمام عليك

تحياتي

[Shivan Rekany]

1 دقيقه مضت, رمهان said:

العفو

لا داعي تقول هذا

بل كلنا راح نستفيد من مشاركتك ونحن نشكرك لانك معنا
عطيتنا  طريقة اخرى 
كان ليس في الحسبان 

[رمهان]

الفكرة كانت 

ارجاع العدد الى اقل عشره ثم اضافة عشره بشرط ان هناك عدد وليس صفر اما اذا صفر فيترك لانه في منزل العشرات

فلو تشرح فكرت طريقتك ولماذا استخدمت int  نكون لك من الشاكرين

واكرر اعجابي استاذ شيفان بطريقة تفكيرك دائما

[Shivan Rekany]

2 ساعات مضت, رمهان said:

فلو تشرح فكرت طريقتك ولماذا استخدمت int  نكون لك من الشاكرين

اولا انا اشكركم لانكم قبلت ان اكون معكم

مع العملية : الى الاعلى

int(1988.98) = 1988
int(1988.98) / 10 = 198.8
1 + Int(1988.98) / 10 = 199.8
Int(1 + Int(T3) / 10) = 199
Int(1 + Int(T3) / 10) * 10 = 1990

 

ونقدر ان نستخدم دالة Fix

 

تم تعديل مايو 27, 2017 بواسطه Shivan Rekany