كيفية التحكم بالأرقام بعد الفاصله

[الشاعر]

السلام عليكم

المطلوب : ( لا أعرف كيف أرفق المثال )

عندي :

أربع حقول :

الحقل الأول : المبلغ ( يكتبه المستخدم )

الحقل الثاني : عدد الأسهم ( يكتبه المستخدم )

الحقل الثالث: العمولة ( تحتسب بالكود التالي :

Private Sub CS_Exit(Cancel As Integer)

If ([Cash] * 0.0015) < 15 And ([Cash] * 0.0015) > 0 Then

    AU = 15

Else

    AU = ([Cash] * 0.0015)

End If

End Sub

الحقل الرابع : عدد الأسهم ( بمعادلة ، وهي : ( المبلغ - العمولة ) ÷ ( عدد الأسهم ))

المطلوب :

العمولة تطلع عند القسمة باقي أكثر من خانتين ، حاولت حطيت التنسيق قياسي ، والخانات العشرية 2 بس ما فيه فايدة .

وكيف لي أن أحذف باقي القسمة من عدد الأسهم دون أن يجبر المتبقي من القسمة .

أي إذا كان عدد الأسهم 70.99 يكتبها لي 70 ولا يجبرها إلى 71

آمل أن أرى الفايدة عندكم جزاكم الله خيرا .

تحياتي ( الشاعر )

[rudwan]

أضف المعامل fix الذي يتكفل بحذف الخانات العشريه بعد الفاصله

Private Sub CS_Exit(Cancel As Integer)
If ([Cash] * 0.0015) < 15 And ([Cash] * 0.0015) > 0 Then
    AU = 15
Else
    AU = fix(([Cash] * 0.0015))
End If
End Sub

[الشاعر]

السلام عليكم

1000 شكر لك أخي رضوان على الحل الذي تقدمت به

هذا المطلوب الثاني ، فهل أجد حلا للمطلوب الأول

المطلوب الأول :

العمولة تطلع عند القسمة باقي أكثر من خانتين ، حاولت حطيت التنسيق قياسي وثابت أيضا ، والخانات العشرية 2 بس ما فيه فايدة .

آمل أن أرى الفايدة عندكم جزاكم الله خيرا .

تحياتي ( الشاعر )

تم تعديل يونيو 7, 2005 بواسطه الشاعر

[الشاعر]

السلام عليكم

أشكركم أخواني جميعا على جهودكم الجبارة في هذا المنتدى ، وخصوصا من تكلف عناء الرد على سؤالي .

لقد تمكنت من حل المشكلة بواسطة أحد الخبراء ، ولمن أراد الحل عليه متابعة الموضوع على الرابط التالي :

http://www.arabteam2000-forum.com/index.php?showtopic=67967

تحياتي ( الشاعر )

تم تعديل يونيو 11, 2005 بواسطه الشاعر