كيف يتم احتساب النسبة المؤوية

[look313]

الى الاخوه و الاخوات الكرام

السلام عليكم

اتمنى ان اجد لديكم ضالتي

لدى برنامج و من ضمنه يوجد مبلغ

و يتطلب مني استخراج نسبه مؤوية من المبلغ على النحو الاتي

4% اذا كان المبلغ من 1 الى 100.000

5% اذا كان المبلغ فوق 10.000 و بحد اقصى للحالتين للنسبة 30.000

تم تعديل مارس 2, 2006 بواسطه look313

[التقني]

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

بإفتراض أنه لديك :

مربع نص المبلغ واسمه Amount

مربع نص للنسبة واسمه PerCent

ضع هذا الكود في حدث بعد التحديث لمربع النص Amount

Private Sub Amount_AfterUpdate()
If Amount > 1 < 100000 Then
    PerCent = Amount.Value * 0.04
    Else
        If Amount > 10000 Then
        PerCent.Value = Amount.Value * 0.05
        End If
End If
End Sub

بالتوفيق

[look313]

شاكر لك حسن تجاوبك و اهتمامك

تقبل تحياتي

الف شكر

[salah mohamed]

شكرا على المعلومه الجميله