أبو سجده

والله رائع جدا جدا أخى الكريم الفاضل / محمد هشام كود ولا أروع ***** بارك الله فيكم وجزاكم الله خيرا

للرفع

السلام عليكم ورحمة الله وبركاته فى الملف المرفق ثلاثة دلات معرفة بإستخدام ال VBA لحساب الفرق بين تاريخين على هذا النحو لحساب فرق عدد الأيام Option Explicit Function CalcAged(vDate1 As Date, vdate2 As Date) As String Dim vMonths Dim vDays Dim vYears vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAged = vDays End Function ولحساب فرق عدد الشهور Function CalcAgem(vDate1 As Date, vdate2 As Date) As String Dim vMonths Dim vDays Dim vYears vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgem = vMonths End Function ولحساب عدد السنوات Function CalcAgey(vDate1 As Date, vdate2 As Date) As String Dim vMonths Dim vDays Dim vYears vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgey = vYears End Function المشكلة التى أواجهها هى عدم تمكنى من تعديل هذه الدالة لحساب عدد السنوات والشهور معا فكيف يمكن تحقيق ذلك فربما يكون هناك ما أغفوا عنه ****** لذا نرجو مساهمة حضراتكم مع الإطلاع على المرفق لمعرفة ما أعنيه ***** شكرا مقدما لحضراتكم وجزاكم الله خيرا حساب الفرق بين تاريخين.xlsm

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

استاذى الفاضل / محمد هشام بارك الله فيكم **** ماذا لو أردنا حساب العمر بالسنوات نرجو إضافة حاله أخرى لتحقيق ذلك بالدالة المعرفة وبالمعادلات شكرا وجزاكم الله خيرا

هذه المعادلة لكنها طويلة جدا =IF(MONTH(A2)>=MONTH($B$2);IF(C2>(DATEDIF(B2;A2;"ym")+1)*IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2);IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2);IF(C2-DATEDIF(B2;A2;"ym")*IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2)>0;C2-DATEDIF(B2;A2;"ym")*IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2);""));"") وعليه إقترحت صياغة دالة معرفة إن أمكن ذلك **** أرجو الإفادة وجزاكم الله خيرا

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته فى الخليةB2 جملة مبلغ هذا المبلغ لا يجوز خصم منه أكثر من 25% من صافى المستحق فى الخلية L2 وهذا ماحققته المعادلة الموضحة بالخلية F2 هروبا من المرجع الدائرى سؤالى هو كيف يمكن تعديل تلك المعادلة لخصم نسبة الــ 25% بداية من الشهر القادم بمعنى عند تغير التاريخ تلقائيا بالخلية A2 الى بداية سبتمبر 2021 يكون الخصم هو 2032.02 ومع تغير التاريخ الى بداية أكتوبر 2021 يصبح الخصم هو 165.25 ومع تغير التاريخ الى بداية نوفمبر 2021 تصبح نتيجة الخلية فراغ برجاء الإطلاع على المرفق التالى والإفادة بإذن الله تعالى ***** شاكر لحضراتكم لطيب المساهمة وجزاكم الله خيرا خصم لا يزيد عن 25 فى المائة.xlsx

بارك الله فيك أخى وأستاذى الفاضل // محمد صالح

جزاكم الله خيرا وبارك فيكم أستاذى الفاضل

جزاكم الله خيرا وبارك فيكم أخى وأستاذى الفاضل / إبراهيم الحداد أبو زيزو اخى واستاذى الفاضل / ابراهيم الحداد هناك مشكلة بسيطة حاولت العمل عليها ولكن دون جدوى قد لا تحتوى خلية القروش على أى منازل عشرية أى تكون نتيجة جمع الإجمالى كعدد صحيح بدون كسر هنا لا يظهر كلمة جنيها نهاية التفقيط أما فى حالة إحتواء خلية القروش على منازل عشرية فالكود يعمل كما ينبغى مثالا على ذلك 5000.00 جنيها عند تشغيل الكود يظهر التفقيط ( فقط خمسة ألاف ) والمفترض إضافة جنيها لا غير فيما عدا ذلك فالكود يعمل بشكل مثالى **** كيف يمكن تصويب هذه الجزئية **** مرة أخرى جزاكم الله خيرا

أخى محمد بداية جزاكم الله خيرا وبارك فيكم لا حظت ذلك جيدا ولكن لا ينبغى أن يكون هناك علامة الدوت فى خلية القروش قد يبدو الأمر سهلا ولكن عندى ضبابية فى تصويب تلك الأسطر فى الوضع الطبيعى عندما نقوم بجمع خليتين للجنيهات والقروش فالمعادله المستخدمه على سبيل المثال هى =IFERROR(BE8+BD8/100;"") فكيف يمكن تضمين الخليتين معا فى الأسطر المراد تصويبها وفى جميع الأحوال شرف لى مشاركتكم الطيبة *** فهل من سبيل لتحقيق ذلك تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

شكرا جزيلا أستاذ محمد *** فضلكم الله تعالى ليس هذا المقصود **** الكود يعمل بشكل جيد ده لو المبلغ المراد تفقيطه فى خلية واحده بمنازله العشرية ولكن فى حالتنا هذه فستجد أن خلية الجنيهات بدون منازل عشريه وخلية القروش تحتوى على كسر القرش المشكله هى أن كسر القرش لا يتم تفقيطه **** فكيف يمكن تعديل الأسطر المشار اليها عاليا برمجيا للحصول على التفقيط كاملا بالشكل الصحيح **** لمزيد من التوضيح يرجى الأطلاع على هذا المرفق ******* تقبل وافر تقديرى التفقيط المعدل22222.xlsm

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يحتوى هذا الملف على كودين أحدهما لتفقيط المبالغ والأخر لإستدعاء التفقيط أسفل نهاية الحدول مباشرة وكلاهما يعمل بشكل جيد فى حالة لو أن المبلغ المراد تفقيطه فى عمود واحد ولكن هذا المرفق يحتوى على عمودين أحدهما للقروش والأخر للجنيهات والسؤال بعد طلب الإذن من حضراتكم كيف يمكن تعديل هذه الأسطر من الكود ممنوع رفع الملف مضغوط طالما حجمه صغير ... تم تعديل رفع الملف بدون ضغط تجنباً لإهدار وقت الأساتذة Texte1 = Ar_WriteDownNumber(Int(Cells(LR, "Q"))) Texte2 = Ar_WriteDownNumber(100 * Cells(LR, "Q") Mod 100) وهذا السطر أيضا If 100 * Sh.Cells(LR, "Q") Mod 100 = 0 Then لنحصل على التفقيط من خلال الخليتين BF و BE برجاء الإطلاع على المرفق التالى والإفاده بحول الله تعالى **** تقبلوا وافر تقديرى وجزاكم الله خيرا التفقيط المعدل.xlsb.xlsm

بسم الله الرحمن الرحيم وبه نستعين أخى وأستاذى الفاضل / محمد صالح السلام عليكم ورحمة الله وبركاته بداية جزاكم الله تعالى خيرا وبارك فيكم وفى أولادكم ورزقنا جميعا من حيث لا نحتسب فى الواقع ترددت كثيرا فى عرض رسالتى هذه لكن عزاؤنا جميعا هنا فى موقع أوفسينا إننا نُحبكم فى الله عما تقدمه فى مد يد العون لجميع الساده الأعضاء هنا وملخص مضمون رسالتى لسيادتكم بأنك نوهت فى العديد من الموضوعات التى تتعلق بتفقيط المبالغ وقد بشرتنى من خلال صفحتى على الفيس بوك بأنك سوف تقوم بعمل دالة مُعرفة تحتوى على 54 سطر لتحويل الأرقام الى حروف لتفقيط المبالغ وفقا لقواعد اللغة العربية الصحيحة من خلال كود VBA لكننا فوجئنا بأن سيادتكم إقترنت هذا العمل بشروط دنياوية لا تغنى ولا تُثمن من جوع وهى التفاعل مع الفيديو بالاعجاب والتعليق والمشاركة كشروط للحصول على الملف ومعلشى إستحملنى قليلا حضرتك فكرتنى باللى عنده سياره وواقف فى الموقف وسيارته لا يوجد بها سوى 3 ركاب إيه ياجماعه مساء الفل ياللاه بينا و كل واحد 20 جنيه ونتكل على الله لا والله حضرتك متعرفشى ظروف الناس إيه **** ولا حضرتك تعرف اللى فى جيوبهم حتى تشترط عليهم المطلوب ببساطة إعقلها وتوكل على الله وزى مابيقولوا **** خذ طريقك وربنا يكرم وسيفتح الله لك بابا كنت تحسبة من شدة اليأس لم يُخلق بمفتاح لإن من أسمى غايات الإنسان وأكرم مقاصده حرصه على عمل الخير وبدون مقابل وبدون إشتراطات وفيه تسمو إنسانيته وبه يتشبّه بالملائكة عليهم السلام ويكون بذلك على خطى الأنبياء والرسل لذلك فقد أوصت الشريعة الإسلامية المسلمين بالحرص على فعل الخير والاجتهاد به والحث عليه بل جعلت ذلك نوعاً من أنواع العبادة وإحدى القُربات التي يمكن للإنسان أن يتقرّب بها إلى ربّه جلّ وعلا فجاءت نصوصٌ كثيرةٌ في القرآن الكريم والسنة النبوية تدعو إلى عمل الخير والمبادرة به منها قول الله تعالى في كتابه العزيز بسم الله الرحمن الرحيم يا أَيُّهَا الَّذِينَ آمَنُوا ارْكَعُوا وَاسْجُدُوا وَاعْبُدُوا رَبَّكُمْ وَافْعَلُوا الْخَيْرَ لَعَلَّكُمْ تُفْلِحُونَ صدق الله العظيم والأن الأمر عائد لله تعالى أولا ثم لك أخى وأستاذى الفاضل فيما تقرره بين الإمتثال لأمر الله تعالى كما ورد فى الأية الكريمة وأن تجعل هذا العمل خالصا لوجهه الكريم بنشر الموضوع أو الإمتثال إلى أمور أنت تصبوا إليها وأخيرا لك الحق فى حرية الإختيار إعتذر للإطالة **** تقبل وافر تقديرى وإحترامى **** وجزاكم الله خيرا روابط الاستاذ الفاضل محمد صالح.docx

اللهم اغفر لها و ارحمها و أدخلها فسيح جناتك إنا لله و إنا إليه راجعون عظم الله أجركم

السلام عليكم للأسف الشديد هذا الموضوع ليس له أى علاقة بموضوع ضريبة الدخل جملة وتفصيلا **** يرجى إعادة النظر فى الطريقة الصحيحة للتطبيق من الناحية القانونية شكرا

أخى وأستاذى الفاضل / أبو صالح أصلح الله حالك وأصلح حالنا جميعا تقبل الله منا ومنكم صالح الأعمال ورزقنى وإياكم من حيث لا نحتسب أرجو عدم الإنزعاج حال طلب تحويل معادلة أخرى ولكن ليس بعد هظبطها حسب جدول الامتحانات هههههههه ههههههه تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

بسم الله الرحمن الرحيم أخى وأستاذى الفاضل / محمد صالح بسم الله ما شاء الله *** تسلم من كل شر كلا الدالتين تعملان بشكل ممتاز من حيث النتائج برجاء فتح الملف التالى لمعرفة ما أعنيه ونحن اليوم فى 2020/6/24 ثم إغلق الملف ثم قم فضلا بتغيير تاريخ الجهاز الى 2020/7/1 ثم إفتح الملف هنا لكى تُظهر النتائج لا بد من الضغط دبل كلك على الخلايا المراد إظهار النتائج بها فهل من سبيل لضبط هذه النقطة لكى يتم إظهار النتائج بشكل تلقائى دون الضغط دبل كلك للتوضيح *** فرضا لو حضرتك حصلت على مبلغ وقدره 20000 ج فى 2020/6/1 ونريد تقسميها على 10 شهور الخصم هنا سيبدأ من الشهر التالى لحصولك على هذا المبلغ فى 2020/7/1 وينتهى فى 2020/4/1 ومع بداية 2020/5/1 ستصبح ناتج الخلية فراغ لأن حضرتك كده خلصت الأقساط التى بطرفك وطبعا الفراغ هنا أفضل من الأصفار من أجل المظهر العام عند طباعة المستند برجاء الإفادة *** نُقدر وقتكم الثمين فى ترميز هاتين الدالتين *** تقبل وافر تقديرى واحترامى **** وجزاكم الله خيرا الأستاذ محمد صالح.xlsb.xlsm

أخى وحبيبى أبو صالح والله زمااااااااان يا أبو صالح ***** أحلى صباح على عيونك وعلى عيون أهلنا فى البحيرة ههههههه ههههههه بجد بجد بشكرك من قلبى لطيب الإستجابة ولى لقاء بحضرتك بعد عودتى من العمل وبإذن الله تعالى إنى على ثقة بالله أولا ثم بكم أن الأمور ستكون على مايرام الى أن نلتقى أستودعكم الله وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته **** وكل عام أنتم جميعا بخير طمعا فى أخلاكم الكريمة أود تحويل هاتين المعادلتين الى UDF Function وفيما يلى المثال هناك معادلتين ، واحدة في الخلية C3 والأخرى في الخلية K3 بالنسبة للمعادلة الأولى ، سيتم تقسيم ال 20000 جنيها على 36 شهرًا بدءًا من الشهر التالي للتاريخ المدون فى الخلية B3 على النحو التالي: - القسط الأول سيكون 750 جنيها .. والباقي سيكون 550 جنيهاحتى نهاية الأقساط أما بالنسبة للمعادلة الثانية ، فسيتم تقسيم ال 20000 جنيها على 10 أشهر بدءًا من الشهر التالي للتاريخ المدون فى الخلية J3 حتى نهاية الأقساط للإختبار يُرجى تغير تاريخ الجهاز الى 2020/7/1 ثم تنشبط التاريخ بالضغط على F9 لرؤية ما أقصده من خلال هذا المرفق تقبلوا وافر تقديرى وإحترامى وجزاكم الله خيرا وبارك فيكم جميعا أقساط.xlsx

السلام عليكم ورحمة الله وبركاته الاساتذه الأفاضل / الرائد وسليم حاصبيا **** جزاكم الله خيرا وبارك فيكم لا هذا ولا ذاك مايقصده الأخ الفاضل صاحب السؤال *** مايقصده هو خطاب موجه من إدارة المدرسة الى مدير لجنة سير الامتحان يحتوى على بعض البيانات مثل البيانات التى بالمرفق التالى وعزائى أننى ليس لدى الوقت الكافى للمساهمة نظرا لظروف صحية اليكم المرفق التالى للعمل بموجبه ويُفضل أن يكون عملية استدعاء البيانات من خلال تسجيل الرقم القومى أو رقم الموظف مع الأكتفاء بثلاثة خطابات فقط حتى يكون هناك مساحة للتوقيعات والأختام *** جزاكم الله خيرا خطاب أساسى.xlsx

اخى العزيز الفاضل // فتحى أبو الفضل السلام عليكم ورحمة الله وبركاته أولا - لايجوز تجزئة المقابل النقدى وفقا لصريح نص المادة رقم 78 مكرر من لائحة بدل السفر ومصاريف الانتقالات أما فى حالة الجزاء فلا بد أن نفرق بين أمرين **** هل الجزاء أقل من أو يساوى خمسة أيام**** أم هو أكبر من خمسة أيام الحالة الاولى لو أقل من أو يساوى خمسة أيام يتم حسابها على كامل الاجر بدون حصص المعاشات ÷ عدد أيام الشهر × عدد أيام الجزاء " الحالة الثانية أكبر من خمسة أيام أضف الى الحالة الاولى الحرمان الكامل من علاوة الاعباء وحافز الاداء إلى أن يرد تقرير الكفاية الخاص بهذا الموظف أما عن موضوع ضريبتى الدخل والدمغة العادية فليس هناك جديد **** وفى الاخير وبعد طلب الاذن منك أخى يُرجى رفع موضوع جديد بشأن طلبكم حتى يتمكن السادة الزملاء من تقديم مالديهم من حلول قد تصل فيها الى ماتريده تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

اخى العزيز الفاضل // فتحى أبو الفضل السلام عليكم ورحمة الله وبركاته والله زمان **** هل تقصد حذف نفس الاسم من عدة أوراق ؟؟ أرجو توضيح ماتريد الوصول إليه **** وافر تقديرى واجترامى

أخى واستاذى الفاضل // ابو الحسن السلام عليكم ورحمته الله وبركاته بصرف النظر عن قيمة الضريبة الواجب إستفطاعها من المرتب سواء ضريبة الدخل " الكسب " أو ضريبة الدمغه فى النهاية حضرتك بتطبق قانون من أجل الحفاظ على إيرادات سيادة الدولة التى ستعود لك ولعيالكم ولجموع الشعب بالنفع أما عن ضريبة الدمغه العادية فيحكمها نص المادتين 79 و 80 من قانون 111 لسنة 1980 والمادة 36 من اللأئحة التنفيذية التى تحدد كيفية حساب ضريبة الدمغه العادية والاعفاءات المقررة الواجب إعفاؤها ولم يتم التعديل على هذه المواد منذ صدور هذا القانون المادة 36 من اللائحة التنفيذية في تطبيق أحكام المادتين (79) و( 80) من القانون يتبع ما يأتي عند حساب الضريبة : أ - أن تكون فنة الضريبة المستحقة هى الفنة المحددة للطبقة التي تقع فيها القيمة الكاملة للمبلغ المقرر صرفه . ب - أن تستبعد من قيمة المبلغ المقرر صرفه الأقساط والاشتراكات وغيرها المعفاة من الضريبة قانونأ. ج - إذا كان صافى المبلغ المقرر صرفه بعد استبعاد الأقساط والاشتراكات وغيرها المعفاة قانونا لا يجاوز خمسين جنيهآ فإنه يعفى من الضريبة . د - إذا زاد صافي المبلغ المنصوص عليه فى البند (ج) على خمسين جنيها تستبعدمنه الخمسون جنيها الأولى وتحدد قيمة الضريبة على أساس الزيادة وبالفئةالمستحقة التي تحددت على النحو المبين في البند (أ) من هذه المادة . تقبل وافر تقديرى واحترامى وجزاكم الله خيرا قانون الدمغه العادية رقم 111 لسنة 1980.pdf

اخى الفاضل / ابو الحسن السلام عليكم ورحمته الله وبركاته لايوجد إختلاف فى النسب المقررة لحساب الدمغه من إدارة الى إدارة *** فلا داعى أن يكون هناك أكثر من طريقة فكما ذكر أخى وأستاذى الفاضل أحمد أبو زيزو **** الضريبة والدمغه لهما قوانين ملزمة عليك بالبحث عنها وماعليك سوى أن تطبق تلك القوانين من الناحية القانونية والحسابية *** ودع من يخطىء أن يتحمل وزره كاملا فقد وقعت مع إثنين من المتخصصين فى مجال المرتبات وفى الاخير لا نملك إلا رفع القبعة لسيادتكم لهذا العمل القيم رغم أن هناك أفكارا أخرى تمكنك من تفعيل منظومة المرتبات فى غضون ثوانى معددة أيا كان عدد الموظفين لديك سواء المخاطبين بالقانون 155 والمخاطبين بالقانون 81 وغيرها من القوانين وفقا لمنظومة العمل الحاليه تقبلوا جميعا وافر تقديرى واحترامى وجزاكم الله خيرا