محمد مسلم

اسف على التاخير الملف مرفق واي سؤال انا حاضر وللعلم الكود وضعته في حدث (عند مفتاح الاعلى ) _______.rar

السلام عليكم هذي معادله استخدمها في برنامج لإحتساب حقوق الموظفين حسب نظام العمل السعودي والحقيقة اعتبرها طريقة بدائية لكن صحيحة 100% يجب وجود تسعة حقول ثلاثة للتاريخ الاول وثلاثة للتاريخ الثاني وثلاثة للناتج . لطرح حقل اليوم '................................... If C_DAYF >= C_DAYT Then C_TD = C_DAYF - C_DAYT Else If C_DAYF < C_DAYT Then C_TD = (C_DAYF + 30) - C_DAYT End If End If لطرح حقول الشهر '..................................... If C_DAYF < C_DAYT And C_MONTHF <= C_MONTHT Then C_MD = (C_MONTHF + 11) - C_MONTHT Else If C_DAYF < C_DAYT And C_MONTHF > C_MONTHT Then C_MD = (C_MONTHF - 1) - C_MONTHT Else If C_DAYF >= C_DAYT And C_MONTHF >= C_MONTHT Then C_MD = C_MONTHF - C_MONTHT Else If C_DAYF >= C_DAYT And C_MONTHF < C_MONTHT Then C_MD = (C_MONTHF + 12) - C_MONTHT Else If C_DAYF < C_DAYT And C_MONTHF <= C_MONTHT Then C_MD = (C_MONTHF + 12) - C_MONTHT C_YD = (C_YEARF - 1) - C_YEART End If End If End If End If End If '.................................... لطرح حقول السنة '.................................... If C_DAYF < C_DAYT And C_MONTHF < C_MONTHT Then C_YD = (C_YEARF - 1) - C_YEART Else If C_DAYF < C_DAYT And C_MONTHF = C_MONTHT Then C_YD = (C_YEARF - 1) - C_YEART Else If C_DAYF = C_DAYT And C_MONTHF < C_MONTHT Then C_YD = (C_YEARF - 1) - C_YEART Else If C_DAYF = C_DAYT And C_MONTHF = C_MONTHT Then C_YD = C_YEARF - C_YEART Else If C_DAYF > C_DAYT And C_MONTHF < C_MONTHT Then C_YD = (C_YEARF - 1) - C_YEART Else If C_YEARF >= C_YEART Then C_YD = C_YEARF - C_YEART End If End If End If End If End If

اخ جمال جزاك الله خير وامل ان لايتغيرموضوع سؤالي وشكراً

اسف على التاخير في الرد بسبب انشغالي وهذا رد سبق ان كتبته ولم استطع ادراجه لنشغالي والمعذه مره اخرى اعلم اني اكثرت عليكم ولكن العشم بكم كبير والفائدة للجميع الاخ هشام . الناتج ظهر حسب المطلوب ولكن هلم من الممكن عدم ظهور الفاصلة العشرية في الرقم فهي تظهر بالشكل 55. المطلوب 55 الاخ . هناك خطئ في اظهار الناتج اذا كان الرقم 100.05 يظهر الرقم 50 والصحيح 05 فالرقم الاول يعني 50 هللة والثاني 5 هللات أي فرق 45 هللة هذا مثال قمت بعملة واظهر النتيجة المطلوبة وامل التعقيب Dim I As String I = Mid([T1], 1) * 100 T3 = Right(I, 2) T4 = Int([T1]) على اعتبار ان الخلية T1 جموع عدةت خلايا الاخ ابوعبدالرحمن الان حملة الملف وسوف اقوم بمراجعته والرد غداً انشاء الله

جربة عدة مرات ولم تنجح ارجو الن يكون المطوب وضح وهو ابظهر الكسر وكانه رقم صحيح اذا كان الرقم 123.50 يظهر 50 وليس 5 فقط او 5. او حتى 50.

بالخطاء اضفة الرد عدة مراة اذا امكن الاخوان المشرفين حذف الدود الزائده اخ هشام بارك الله فيك لم تظهر النتيجة المطلوبه فالرقم 600.55 و ظهر 0.550000 المطلوب ان يظهر الرقم 55 فقط بدون العلامة العشرية او اي اضافات

جزاك الله خير على سرعة الرد ولكن ما اردت هو ان يظهر الهلل او الكسر رقمين في حقل واحده فاذا كان الرقم 123.50 ارغب فصل 123 في حقل و 50 في حقل اخر على ان تظهر بنفس الشكل 50 وليس 5. ولك جزيل الشكر ربما لوكان هناك طريقه لاستخدام الدله Mid و Right في تعبير واحد تحل المشكلة

اولاً : كل عام وانتم بخير وشكرا للجميع في هذا المنتدي الذي افتخر به فقد افادني في اعداد عدة قواعد ساعدة على تسهيل عملي وارجو المعذرة لعدم مشاركاتي فانى غير متخصص ولكن احاول قدر الامكان تطبق ما اقرأ. لي اكثر من اسبوع احاول ايجاد حل للمشكلة لدي حقول رقمية وحقل عبارة عن مجموع الحقول السابقة ارغب فصل الكسر ( في التقرير ) بحيث يكون الناتج الكسري في حقل والعدد الصحيح في حقل اخر وذلك لجميع ( هذا يطبق على كل حقل بما فيها حقل التجميع ) علما باني جربت الدالة Mid و Fix ولم تفلح المحاولات بالنتيجة المطلوبة جربت الدلة Right ايضا ونجحة الى حد ما ولكن اذا كان الحقل رقمي يظهر الناتج (4.) للعدد الكسري والمطوب ان يظهر (40) حولت الحقول الى نصي ونجحت الطريقة في الاربعة الحقول الاولى اما حقل التجميع يصبح الناتج غير صحيح واستخدمت الدالة Val وظهر ناتج الجمع صحيح ولكن بقية مشكلة الكسر (4.) بدل (40) اذا كان هناك حاجه لارفاق القاعدة يمكن ان ارفقها غداً لانها في جهاز العمل وشكراً