اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم 

حقل نص مكتوب فيه اسم اليوم ماهو الكود او الدالة التي يمكن في حقل اخر وليكن اسمه x مثلا تحويل اسم اليوم الي تاريخ من الاسبوع الحالي

الحقل الاول مكتوب فيه الجمعة كيف نجعل الحق الثاني مكتوب فيه 16/08/2019

جزاكم الله خيرا

  • Like 1
قام بنشر

استاذي / ابو اشرف 

حياك الله جميل منك المحاولة اسعد الله اوقاتكم بما تقدمه من مساعدات 

ولكن اخي الفاضل / عبد اللطيف ماذا بعد شهر (8) وجاء شهر (9)

انا متاكد بانه يوجد دالة تقوم بالمطلوب وحاولت كثيرا دون فائدة 

اكرمك الله وكل الاحترام لكم 

  • Like 1
قام بنشر

استاذنا وخبيرنا الاستاذ / @kha9009lid

شرفت بمرورك وعلي مجهوداتكم مع جميع الزملاء جعله الله في ميزان حسناتكم 

شوف كان لي موضع سابق عن ايام حضور المهندسين وافادني الاستاذ (مروض الاكسس ) المهندس / ابا جودي اسم المشاركة (تحديد مواعيد المهندسين)

ولا يوجد فيها اي تواريخ والان انا احتاج الي ان اعمل نموذج يوضح لي مثلا اليوم اي المهندسين موجودين

وحين يوضح خبير مثلكم بان استخلص اسم اليوم من التاريخ معناه اني مخطئ وسؤالي في غير مكانه ويفضل ان اراجع سؤالي مرة اخري

طب حضور المهندسين عندي عبارة عن ايام المهندس فلان يحضر يوم السبت والمهندس فلان يحضر يوم الاثنين فكيف وانا مثلا اليوم الجمعة اعرف المهندسين الموجودين اليوم 

جزاكم الله خيرا 

بمناسبة ذكر اسم مهندسنا ابا جودي ياتري غيابة عن المنتدي خير ان شاء الله

 

  • Like 1
قام بنشر (معدل)

لا ما قصدت ابدا انك مخطئ ولا السؤال في غير مكانة كان مجرد استفسار فقط

بخصوص المقترحات صعب بدون الاطلاع على البرنامج

 

تم تعديل بواسطه kha9009lid
قام بنشر

لا لا استاذي الفاضل انا اعلم انك لا تقصد 

انا اراجع نفسي طالما استاذ وخبير مثلكم يشير او يوحي بفكرة مثل ماتفضلت معناه ان محاولاتي قاصرة (وهذا ليس بعيب) وانت اوحيت لي بفكرة تانية وهذا مجرد اقتراح منكم وكلامك مصبوط ومقنع جدا وطالما الاستاذ يتكلم فعلى الطالب ان يستمع وينصت  ....هذا الذي قصده انكم اوحيتم لي بفكرة ثانية فقط

والله انك انسان متواضع ومحترم والله ادعو لكم بعلو الشأن ودوام الصحة والعافية

  • Like 1
قام بنشر

اخي واستاذي الفاضل / @ابو ياسين المشولي

محاولة صائبة ومفيده جدا جدا  اخي / محمد   جزاك الله خير وبارك الله فيك

مما سبق نصل ان بالحيلة والتحايل ممكن نصل للمطلوب وسوف احاول بنفسي بعد الدالة التي قمتم بتوضيحها 

لعل وعسى اصل الى هدفنا.

والله يا جماعة الخير لا يسعني الا ان اقول لكم زادكم الله علما ونفعكم به

قام بنشر

الاستاذ والخبير الفاضل/ ابو عارف

ايه ده ـ ما هذا ـ رائع رائع رائع حقيقي خبير طال الله عمرك وبارك في اسرتك وزادك الله علما

هذا المطلوب

اولا اعتذر لاني لم اري مداخلتكم الا الان وكانت فيها الشفاء العاجل

هناك ملاحظة صغيرة  دعني اتفاخر باني اعدل على استاذ كبير مثلك  وهي عند ادخال يوم السبت مثلا يعطي التاريخ اليوم التالي يعني يعطي 18/8/2019 مع انه الصيحيح 17/08/2019

فانا قمت بالتعديل في الوحدة النمطية  في السطر هذا 

DT = Date - Weekday(Date) + x - 1

واضفت -1 والنتيجة كانت سليمة ايه رايك بقي

قام بنشر
2 ساعات مضت, حلبي said:

اولا اعتذر لاني لم اري مداخلتكم الا الان وكانت فيها الشفاء العاجل

الحمد لله على ايجاد مطلوب 

 

2 ساعات مضت, حلبي said:

هناك ملاحظة صغيرة  دعني اتفاخر باني اعدل على استاذ كبير مثلك  وهي عند ادخال يوم السبت مثلا يعطي التاريخ اليوم التالي يعني يعطي 18/8/2019 مع انه الصيحيح 17/08/2019

فانا قمت بالتعديل في الوحدة النمطية  في السطر هذا 

كلامك صحيح اخي و انا اعتذر جدا لعدم انتباهي للتاريخ  على بالي تاريخ اليوم 19 ولكن عند شراء كرت تعبئة من مكينة الكروت ، وجدت تاريخ اليوم 18 و الآن فتحت الجهاز حتى اقوم بتعديل الكود بطريقة :

Function DayDate(Num As String) As Date
Dim x As String
Dim DT As Date
Select Case Num
Case "السبت", "Saturday"
x = 0
Case "الأحد", "Sunday"
x = 1
Case "الإثنين", "Monday"
x = 2
Case "الثلاثاء", "Tuesday"
x = 3
Case "الأربعاء", "Wednesday"
x = 4
Case "الخميس", "Thursday"
x = 5
Case "الجمعة", "Friday"
x = 6
Case Else
x = ""
End Select
DT = Date - Weekday(Date) + x
DayDate = DT

End Function

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

قام بنشر
اقتباس

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

العفو استاذي كانت مداعبة مع استاذ وخبير لا اكثر ولا اقل

طبعا انا اخذت بالتعديل الذي قمتم به وليس تعديلي

رزقكم الله بكل الخير وجعلكم اكثر تواضعا 

كل الاحترام والتقدير لاستاذنا وخبيرنا / ابو عارف

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information