تقريب اجزاء العملة

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

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

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

Prog1000.rar

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

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

1 - سوف اشرح طلبي بالتفصيل لدينا المبالغ تكون بالشكل التالي مثلا في القائمة رقم 1 المبلغ هو ( 3.858.068 ) يعني ثلاثة ملايين وثمنمائة وثمانية وخمسون الف  وثمانية وستون دينار بما انه اقل عملة هي ( 250 ) دينار 

اذن يجب ان يصبح المبلغ هكذا ( 3.858.250 ) دينار ليتطابق مع البنك 

2 - القائمة رقم 2 المبلغ هو ( 3.793.478 ) جزء الدنانير الذي هو ( 478 ) يجب ان يقرب الى ( 500 ) ليصبح المبلغ النهائي هكذا ( 3.793.500 ) دينار 

3 - القائمة رقم 3 المبلغ هو ( 818.996 ) جزء الدنانير هو ( 996 ) يجب ان يقرب الى ( 1000 ) ليصبح المبلغ النهائي هكذا ( 819 ) دينار 

4 - القائمة رقم 4 المبلغ هو ( 3.533.662 ) جزء الدنانير هو ( 662 ) يجب ان يقرب الى ( 750 ) ليصبح المبلغ النهائي هكذا ( 3.533.750 ) دينار 

بحيث تكون العملة لاجزاء الدنانير هكذا ( 250  -- 500   ---   750   ---- 1000 ) دينار مع فائق الشكر والتقدير لكم جميعا 

[علي المصري]

جرب المرفق التالي

 

Prog1000.rar

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

الله عليك استاذي الفاضل علي المصري 

كلمة شكرا قليلة في حقك

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

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

[ابوخليل]

 

جزاك الله خيرا استاذ علي .. سبقتني .. فكرة جميلة احتساب اخر 3 ارقام 

وهذه فكرة اخرى .. ويمكن توظيفها داخل الاستعلام .. اتمنى تنال استحسانكم :

Public Function Rondx(Ron As Double) As Double
    Dim v1, v2 As Double
      v2 = Ron Mod 250
      If v2 > 0 Then
      v1 = (Ron - v2) + 250
     Else
     v1 = Ron
    End If
        Rondx = v1
 End Function
Private Sub Form_Current()
Me.Summuny2 = Rondx(Nz([Summuny]))
End Sub

 

[رمهان]

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

الاستاذ ابا خليل حسن فكرة الاستاذ علي وبوجود مفتاح الحل وهو الطرح ثم الزيادة !  تحسين رائع !

هنا اخينا حربي العنزي ذكر :

3 - القائمة رقم 3 المبلغ هو ( 818.996 ) جزء الدنانير هو ( 996 ) يجب ان يقرب الى ( 1000 ) ليصبح المبلغ النهائي هكذا ( 819 ) دينار 

فهل الفاصلة فاصلة عشرية ؟ لانه ذكر النتاج 819 ! ولم يذكر 819000 وهو الناتج في الحلين من قبل الاساتذه اذا اعتبرنا الرقم بدون فاصلة ! واذا بفاصلة يظهر رقما اخر !

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

=IIf([Summuny] Mod 250>0;([Summuny]-([Summuny] Mod 250))+250;[Summuny])

تحياتي 

[علي المصري]

 

جزاك الله خيرا استاذ علي .. سبقتني .. فكرة جميلة احتساب اخر 3 ارقام 

وهذه فكرة اخرى .. ويمكن توظيفها داخل الاستعلام .. اتمنى تنال استحسانكم :

Public Function Rondx(Ron As Double) As Double
    Dim v1, v2 As Double
      v2 = Ron Mod 250
      If v2 > 0 Then
      v1 = (Ron - v2) + 250
     Else
     v1 = Ron
    End If
        Rondx = v1
 End Function
Private Sub Form_Current()
Me.Summuny2 = Rondx(Nz([Summuny]))
End Sub

 

ماذا انتظر من الأستاذ الذي علمني

شكرا أبو خليل دالة ذكية يمكن استخدامها في كل عمليات التقريب

5 و 10 و  15 و

وما شابه ذلك

جزاك الله خيرا

 

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

الاستاذ ابا خليل حسن فكرة الاستاذ علي وبوجود مفتاح الحل وهو الطرح ثم الزيادة !  تحسين رائع !

هنا اخينا حربي العنزي ذكر :

3 - القائمة رقم 3 المبلغ هو ( 818.996 ) جزء الدنانير هو ( 996 ) يجب ان يقرب الى ( 1000 ) ليصبح المبلغ النهائي هكذا ( 819 ) دينار 

فهل الفاصلة فاصلة عشرية ؟ لانه ذكر النتاج 819 ! ولم يذكر 819000 وهو الناتج في الحلين من قبل الاساتذه اذا اعتبرنا الرقم بدون فاصلة ! واذا بفاصلة يظهر رقما اخر !

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

=IIf([Summuny] Mod 250>0;([Summuny]-([Summuny] Mod 250))+250;[Summuny])

تحياتي 

رائعة أستاذ رمهان

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

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

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

ثانيا ما اجملها من حلول لاساتذة نذرت نفسها لخدمة اخوانها وكل من يطلب المساعدة بدون استثناء في هذا المنتدى الاكثر من رائع ادامه الله علينا جميعا 

وحفظ مؤسسيه واساتذته واعضائه وزواره جميعا يارب يارب 

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

تم تعديل أكتوبر 24, 2015 بواسطه حربي العنزي