تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشروع احتساب الضريبة على الراتب
#1
احبائي في الله عاوز ابدا بتصميم مششروع يحتسب الضريبة على الراتب حسب الشرائح ياريت اذا احد عندو اي مشروع مشابه  حتى يساعدني بعملي للمشروع
الرد }}}
تم الشكر بواسطة: حريف برمجة , asemshahen5
#2
السلام عليكم و رحمة الله و بركاته
اخي الكريم الموضوع بسيط جداً
تحتاج ان تعطي معلومات اوفى عن طبيعة الحركات التي تجري على هذا الكائن (الراتب المسكين)
اذ ان طبيعة الضرائب تختلف من دولة الى دولة.
اذا كنت تعرف ما يجري عليه من حركات (حسومات - تامينات - نقابات .. وغيره) و كنت ملماً بطريقة الحساب ورقياً فقم بشرحها بمثال عملي , و ستجد الكثير من المساعدة هنا.
واذا لم تكن تعرف اجلس مع احد المحاسبين او معتمدي الرواتب و خذ منه الطريقة واكتبها هنا.
الامر ليس معقد فقط يحتاج توضيح اكثر .
انا عملته قديما لاحدى الاخوات (منذ 10 سنين تقريباً) و الذي اذكره ان الامر تم انجازه بغضون ساعات قليلة بعد فهم الالية.
عليك بفهم الالية اولاً من كل الاوجه اذا كنت تنوي ان تبني برنامج متكامل.
--------------------------------------------
اذكر قديما كان هناك عدة نقاط تبدأ بها حياة الراتب
1-الراتب المقطوع --> يخضع لتامين (ضريبة خاصة بالتامينات - تقاعدية) و كانت حصتها 9%
2-هناك مبلغ محدد معفى من الضرائب
3-ما تبقى يخضع لنظام شرائح (عليك بمعرفته)
4-هناك اضافات كانت موجودة على ما اذكر متعلقة بالمركز الوظيفي تضاف للراتب (طبيعة عمل - طبيعة اختصاص - طبيعة تمثيل - امناء مستودعات  وغيرها) بمجملها ليست كثيرة , وهي تضاف فوق الراتب و لها حساب خاص.
5-بند اخير خاص بالحسميات على اختلاف انواعها (قروض - سلف - حسميات بانواعها ...الخ)
--------------------------------------------
اذا كنت تنوي بناء برنامج رواتب متكامل يجب عليك الغوص في ادق التفاصيل , و خليك بعيد نظر (دع الحرية للمستخدم يحدد كل شيئ بيده)
اشرح اكثر تجد مساعدة اكثر
بالتوفيق اخي الكريم
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
#3
(28-11-19, 01:04 AM)ابو ليلى كتب : السلام عليكم و رحمة الله و بركاته
اخي الكريم الموضوع بسيط جداً
تحتاج ان تعطي معلومات اوفى عن طبيعة الحركات التي تجري على هذا الكائن (الراتب المسكين)
اذ ان طبيعة الضرائب تختلف من دولة الى دولة.
اذا كنت تعرف ما يجري عليه من حركات (حسومات - تامينات - نقابات .. وغيره) و كنت ملماً بطريقة الحساب ورقياً فقم بشرحها بمثال عملي , و ستجد الكثير من المساعدة هنا.
واذا لم تكن تعرف اجلس مع احد المحاسبين او معتمدي الرواتب و خذ منه الطريقة واكتبها هنا.
الامر ليس معقد فقط يحتاج توضيح اكثر .
انا عملته قديما لاحدى الاخوات (منذ 10 سنين تقريباً) و الذي اذكره ان الامر تم انجازه بغضون ساعات قليلة بعد فهم الالية.
عليك بفهم الالية اولاً من كل الاوجه اذا كنت تنوي ان تبني برنامج متكامل.
--------------------------------------------
اذكر قديما كان هناك عدة نقاط تبدأ بها حياة الراتب
1-الراتب المقطوع --> يخضع لتامين (ضريبة خاصة بالتامينات - تقاعدية) و كانت حصتها 9%
2-هناك مبلغ محدد معفى من الضرائب
3-ما تبقى يخضع لنظام شرائح (عليك بمعرفته)
4-هناك اضافات كانت موجودة على ما اذكر متعلقة بالمركز الوظيفي تضاف للراتب (طبيعة عمل - طبيعة اختصاص - طبيعة تمثيل - امناء مستودعات  وغيرها) بمجملها ليست كثيرة , وهي تضاف فوق الراتب و لها حساب خاص.
5-بند اخير خاص بالحسميات على اختلاف انواعها (قروض - سلف - حسميات بانواعها ...الخ)
--------------------------------------------
اذا كنت تنوي بناء برنامج رواتب متكامل يجب عليك الغوص في ادق التفاصيل , و خليك بعيد نظر (دع الحرية للمستخدم يحدد كل شيئ بيده)
اشرح اكثر تجد مساعدة اكثر
بالتوفيق اخي الكريم

اخي الكريم شكرا لك كل ما اريده ان احسب الضريبة فقط هذا بمجال عملي 
اي اذا الراتب ٨٠٠٠٠ 
الضريبة ١٥٠٠٠ معفاة  اولى 
ثم بعدها ٥٠٠٠ بضريبة ٥ بالمئة 
ثم ال ٥٠٠٠ بعدها ٧ بالمئة 
ثم ٥٠٠٠ بعدها ١١ بالمئة ثم اكثر من ذلك ٢٢ بالمئة 
اريد الناتج
الرد }}}
تم الشكر بواسطة: حريف برمجة , علي بنيان , asemshahen5
#4
السلام عليكم...
لو نفترض كما ياتي:
الاسم       المرتب         الضريبة          الناتج       الناتج بعد خصم الضريبة
اسامه        1000            7                 70                      930

فكل ماتحتاجة هذه العملية الحسابية:
قيمة الضريبة * المرتب / 100 - المرتب هيطلع الرقم بالسالب فاستخدم حساب اجمالي الضريبة وثم في قيمة اخري طرح المرتب من الضريبة.
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد }}}
#5
السلام عليكم و رحمة الله و بركاته
تمام اخي انت اختصرت الموضوع كثيراً
بقي شيئ ناقص في الموضوع
لنفرض ان لدي راتب قدره 25100
15000 معفاة يبقى 10100
ش1 تاخذ 5000
ش2 تاخذ 5000
بقي لدي 100 
هل تخضع الـ 100 للشريحة الثالة (11%) ام يجب ان تكون 5000 لتخضع للشريحة الثالثة؟؟

الشيئ الاخر في الشريحة الاخيرة ذات الحصة (22%) هل تخضع كامل المبلغ المتبقي للشريحة الاخيرة.

(مع انني اعلم ان الحد الادنى للراتب يحقق النصاب في الشريحة الرابعه) فقط لتكون الحسبة سليمة .
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
#6
السّلام عليكم و رحمة الله و بركاته
أتّفق تمام الإتفاق مع أخي و أستاذي الكريم " أبو ليلى "
بارك الله فيه و له و جزاه خير الجزاء على التوضيحات
الضريبة على الدخل أخي الكريم .. موضوع كبير .. بحالة كانت المؤسسة حكومية .. فلا يمكنك التحكم في قيمتها و إنما تخضع لحسابات و معايير خاصة
لدينا مثلا .. كيفية إحتسابها بصفة رسمية
أما إذا كانت المؤسسة .. خاصة غير حكومية
يمكن أن يكون فيها كلام
لأنك ستحسبها حسب منطقك و قراراتك
تحياتي
قناتنا على اليوتوب
الرد }}}
#7
السلام عليكم و رحمة الله
الاخ عبد العزيز المحترم (تحياتي لك و ان شاء الله تكون بخير انت و باقي الاخوة)
بالنسبة لمثالك جيد حيث انه يتقاسم المعاناة مع الراتب لدينا  Big Grin
و يعمل وفق منطق الشرائح ايضاً
لا ادري ان كنت فهمت مثالك الثالث حيث هناك خطأ في الحساب (خطأ كتابي) و بالتالي بنيت عليه نتيجة خاطئة
او ربما انا لم افهم المثال
على اي حال الرواتب لديكم تخضع لترفيه جيد (اقصد التخفيض) بينما لدينا لا يوجد هذا النوع من الرفاهية.
النقطة المطلوب معرفتها وفق مثالي هو معرفة من سيتم عليه تطبيق الشريحة.
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
#8
تحياتي لك أخي الكريم " أبو ليلى " أدعو الله مخلصا أن تكون و كل الأسرة الكريمة بمليون خير إن شاء الله
على كل حال .. و للتوضيح كدردشة أخوية ..
يمكن حساب قيمة الضريبة على الدخل بطريقة بسيطة ..
حسب ما تم شرحة بهذه الجزئية
و بنيت على هذه النسب .. برنامج بسيط لحساب الراتب
و كانت النتيجة مذهلة بعد مقارنة قيم البرنامج بكشف راتبي و كشوف العديد من الزملاء .. حيث كانت النتيجة مطابقة لما تم إحتسابه من الوزارة بنسبة 100 %
تحياتي
قناتنا على اليوتوب
الرد }}}
#9
(29-11-19, 12:50 AM)عبد العزيز البسكري كتب :
تحياتي لك أخي الكريم " أبو ليلى " أدعو الله مخلصا أن تكون و كل الأسرة الكريمة بمليون خير إن شاء الله
على كل حال .. و للتوضيح كدردشة أخوية ..
يمكن حساب قيمة الضريبة على الدخل بطريقة بسيطة ..
حسب ما تم شرحة بهذه الجزئية
و بنيت على هذه النسب .. برنامج بسيط لحساب الراتب
و كانت النتيجة مذهلة بعد مقارنة قيم البرنامج بكشف راتبي و كشوف العديد من الزملاء .. حيث كانت النتيجة مطابقة لما تم إحتسابه من الوزارة بنسبة 100 %
تحياتي

شكر لكم احبائي فاناملم بالموضوع واستطيع الحساب ورقيا وعندي مشروع عالاكسل يقوم بالحساب لكن كنت حابب اسويه عالفيجول 
بالنسبة لسؤلك اخي الكريم اي مبلغ يتجاوز شريحة ما بجزأ منه هذا الجزء فقط يحتسب عالشريحة الجديدة فلو شخص راتبه ١٧٠٠٠ اول ١٥٠٠٠ معفاه وباقي المبلغ وهو ٢٠٠٠ يدخل ريحة الخصم ٥ بالمئة وهكذا

(28-11-19, 09:19 PM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
أتّفق تمام الإتفاق مع أخي و أستاذي الكريم " أبو ليلى "
بارك الله فيه و له و جزاه خير الجزاء على التوضيحات
الضريبة على الدخل أخي الكريم .. موضوع كبير .. بحالة كانت المؤسسة حكومية .. فلا يمكنك التحكم في قيمتها و إنما تخضع لحسابات و معايير خاصة
لدينا مثلا .. كيفية إحتسابها بصفة رسمية
أما إذا كانت المؤسسة .. خاصة غير حكومية
يمكن أن يكون فيها كلام
لأنك ستحسبها حسب منطقك و قراراتك
تحياتي

بالنسبة للسؤال الثاني اي مبلغ يتجاوز ٧٥... يخضع للشرائح الاولى وما زاد عن ٠٧٥٠٠٠ يخضع ل ٢٢ بالمئة طبعا انا واضع مثال تشبيهي لكن النسب غير ذلك اريد الطريقة فقط
الرد }}}
تم الشكر بواسطة: asemshahen5 , حريف برمجة
#10
حيث ذلك صمم نموذج بسيط وضع عليه الادوات مع المسميات كما في الصورة



ضع الكود التالي لديك

PHP كود :
 Dim Salary As Integer Nothing
    Dim NewSalary 
As Integer Nothing
    Dim LastDisc 
As Integer Nothing
    Dim Totaldisc 
As Integer Nothing


    Private Sub btnExc_Click
(sender As ObjectAs EventArgsHandles btnExc.Click
        Salary 
= If(Int32.TryParse(txtSalary.Text.ToString0), txtSalary.Text.ToString0)
 
       If Salary 15000 Then
            MsgBox
("لايمكن ان يكون الراتب اقل من 15000")
 
           ClearAll()
 
           txtSalary.Focus()
 
           Exit Sub
        End 
If

 
       NewSalary Salary 15000       'اول 15000 معفاة

        Select Case NewSalary
            Case <= 5000                  '
شريحة اولى
                t1
.Text NewSalary 0.05
                t2
.Text 0
                t3
.Text 0
                t4
.Text 0
            Case 5001 To 10000        
'شريحة ثانية
                t1.Text = 250
                NewSalary -= 5000
                t2.Text = NewSalary * 0.07
                t3.Text = 0
                t4.Text = 0
            Case 10001 To 15000        '
شريحة ثالثة
                t1
.Text 250
                t2
.Text 350
                NewSalary 
-= 10000
                t3
.Text NewSalary 0.11
                t4
.Text 0
            Case 
>= 15000       'شريحة اخيرة
                t1.Text = 250
                t2.Text = 350
                t3.Text = 550
                NewSalary = NewSalary - 15000
                LastDisc = (NewSalary * 0.22)
                t4.Text = LastDisc
                NewSalary = NewSalary - LastDisc
        End Select

        Totaldisc = Val(t1.Text) + Val(t2.Text) + Val(t3.Text) + Val(t4.Text)
        txtTotalDiscount.Text = Totaldisc
        txtResult.Text = Salary - Totaldisc

    End Sub

    Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
        ClearAll()
    End Sub


    Private Sub ClearAll()
        For Each ctrl As Control In GroupBox1.Controls
            If TypeOf (ctrl) Is TextBox Then
                ctrl.Text = String.Empty
            End If
        Next
        txtSalary.Focus()
    End Sub


    Private Sub txtSalary_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtSalary.KeyPress
        If Char.IsDigit(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then
            e.Handled = True
        End If
    End Sub 

اعلمنا بالنتيجة
بالتوفيق
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم