27-11-19, 10:13 PM
احبائي في الله عاوز ابدا بتصميم مششروع يحتسب الضريبة على الراتب حسب الشرائح ياريت اذا احد عندو اي مشروع مشابه حتى يساعدني بعملي للمشروع
الصفحات : 1 2
27-11-19, 10:13 PM
28-11-19, 01:04 AM
28-11-19, 02:11 AM
28-11-19, 02:31 AM
28-11-19, 09:09 PM
28-11-19, 09:19 PM
السّلام عليكم و رحمة الله و بركاته
أتّفق تمام الإتفاق مع أخي و أستاذي الكريم " أبو ليلى "
بارك الله فيه و له و جزاه خير الجزاء على التوضيحات
الضريبة على الدخل أخي الكريم .. موضوع كبير .. بحالة كانت المؤسسة حكومية .. فلا يمكنك التحكم في قيمتها و إنما تخضع لحسابات و معايير خاصة
لدينا مثلا .. كيفية إحتسابها بصفة رسمية
أما إذا كانت المؤسسة .. خاصة غير حكومية
يمكن أن يكون فيها كلام
لأنك ستحسبها حسب منطقك و قراراتك
تحياتي
28-11-19, 10:19 PM
السلام عليكم و رحمة الله
الاخ عبد العزيز المحترم (تحياتي لك و ان شاء الله تكون بخير انت و باقي الاخوة)
بالنسبة لمثالك جيد حيث انه يتقاسم المعاناة مع الراتب لدينا
و يعمل وفق منطق الشرائح ايضاً
لا ادري ان كنت فهمت مثالك الثالث حيث هناك خطأ في الحساب (خطأ كتابي) و بالتالي بنيت عليه نتيجة خاطئة
او ربما انا لم افهم المثال
على اي حال الرواتب لديكم تخضع لترفيه جيد (اقصد التخفيض) بينما لدينا لا يوجد هذا النوع من الرفاهية.
النقطة المطلوب معرفتها وفق مثالي هو معرفة من سيتم عليه تطبيق الشريحة.
الاخ عبد العزيز المحترم (تحياتي لك و ان شاء الله تكون بخير انت و باقي الاخوة)
بالنسبة لمثالك جيد حيث انه يتقاسم المعاناة مع الراتب لدينا
و يعمل وفق منطق الشرائح ايضاً
لا ادري ان كنت فهمت مثالك الثالث حيث هناك خطأ في الحساب (خطأ كتابي) و بالتالي بنيت عليه نتيجة خاطئة
او ربما انا لم افهم المثال
على اي حال الرواتب لديكم تخضع لترفيه جيد (اقصد التخفيض) بينما لدينا لا يوجد هذا النوع من الرفاهية.
النقطة المطلوب معرفتها وفق مثالي هو معرفة من سيتم عليه تطبيق الشريحة.
29-11-19, 12:50 AM
تحياتي لك أخي الكريم " أبو ليلى " أدعو الله مخلصا أن تكون و كل الأسرة الكريمة بمليون خير إن شاء الله
على كل حال .. و للتوضيح كدردشة أخوية ..
يمكن حساب قيمة الضريبة على الدخل بطريقة بسيطة ..
حسب ما تم شرحة بهذه الجزئية
و بنيت على هذه النسب .. برنامج بسيط لحساب الراتب
و كانت النتيجة مذهلة بعد مقارنة قيم البرنامج بكشف راتبي و كشوف العديد من الزملاء .. حيث كانت النتيجة مطابقة لما تم إحتسابه من الوزارة بنسبة 100 %
تحياتي
29-11-19, 02:54 AM
(29-11-19, 12:50 AM)عبد العزيز البسكري كتب : [ -> ]تحياتي لك أخي الكريم " أبو ليلى " أدعو الله مخلصا أن تكون و كل الأسرة الكريمة بمليون خير إن شاء اللهعلى كل حال .. و للتوضيح كدردشة أخوية ..يمكن حساب قيمة الضريبة على الدخل بطريقة بسيطة ..حسب ما تم شرحة بهذه الجزئيةو بنيت على هذه النسب .. برنامج بسيط لحساب الراتبو كانت النتيجة مذهلة بعد مقارنة قيم البرنامج بكشف راتبي و كشوف العديد من الزملاء .. حيث كانت النتيجة مطابقة لما تم إحتسابه من الوزارة بنسبة 100 %تحياتي
شكر لكم احبائي فاناملم بالموضوع واستطيع الحساب ورقيا وعندي مشروع عالاكسل يقوم بالحساب لكن كنت حابب اسويه عالفيجول
بالنسبة لسؤلك اخي الكريم اي مبلغ يتجاوز شريحة ما بجزأ منه هذا الجزء فقط يحتسب عالشريحة الجديدة فلو شخص راتبه ١٧٠٠٠ اول ١٥٠٠٠ معفاه وباقي المبلغ وهو ٢٠٠٠ يدخل ريحة الخصم ٥ بالمئة وهكذا
(28-11-19, 09:19 PM)عبد العزيز البسكري كتب : [ -> ]السّلام عليكم و رحمة الله و بركاتهأتّفق تمام الإتفاق مع أخي و أستاذي الكريم " أبو ليلى "بارك الله فيه و له و جزاه خير الجزاء على التوضيحاتالضريبة على الدخل أخي الكريم .. موضوع كبير .. بحالة كانت المؤسسة حكومية .. فلا يمكنك التحكم في قيمتها و إنما تخضع لحسابات و معايير خاصةلدينا مثلا .. كيفية إحتسابها بصفة رسميةأما إذا كانت المؤسسة .. خاصة غير حكوميةيمكن أن يكون فيها كلاملأنك ستحسبها حسب منطقك و قراراتكتحياتي
بالنسبة للسؤال الثاني اي مبلغ يتجاوز ٧٥... يخضع للشرائح الاولى وما زاد عن ٠٧٥٠٠٠ يخضع ل ٢٢ بالمئة طبعا انا واضع مثال تشبيهي لكن النسب غير ذلك اريد الطريقة فقط
29-11-19, 03:49 AM
حيث ذلك صمم نموذج بسيط وضع عليه الادوات مع المسميات كما في الصورة
ضع الكود التالي لديك
اعلمنا بالنتيجة
بالتوفيق
ضع الكود التالي لديك
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 Object, e As EventArgs) Handles btnExc.Click
Salary = If(Int32.TryParse(txtSalary.Text.ToString, 0), txtSalary.Text.ToString, 0)
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 2