بحث مخصص فى أوفيسنا

محمد حسن المحمد

عضو محترف
  • Content count

    1,508
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    9

محمد حسن المحمد last won the day on December 14 2015

محمد حسن المحمد had the most liked content!

السمعه بالموقع

1,592 Excellent

عن العضو محمد حسن المحمد

  • الرتبه
    أبو يوسف
  • تاريخ الميلاد

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    معلم وحالياً محاسب

اخر الزوار

6,258 زياره للملف الشخصي
  1. استاذ محمد حسن حضرتك ممكن تتواصل معايا أخي الكريم هاني السلام عليكم ورحمة الله وبركاته ...أتشرف بالتواصل معكم ولكن اسمع عذري وبعدها قرر: الحقيقة التي يعلمها الكثيرون من الأساتذة الكرام أنني مبتدئ في هذا البحر الزاخر ...وما قدمني بينهم إلا عاطفة الأبوة والأخوة التي أحسها تجاههم .. أما إن كنت تريد معرفة العلم على أصوله فاطرق أبواب أربابه ولا تمل وهم لن يبخلوا لأنه مجال لا مجال للبخل به ....وهل يرضى أن يحوز على رضى الناس ويغضب ربه بكتمان العلم وكيف سينتقل العلم إلى الأجيال القادمة في حال كتمانه. والسلام عليكم ورحمة الله وبركاته.
  2. بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ..أما بعد: أخي الحبيب محمد أبو صهيب المحترم السلام عليكم ورحمة الله وبركاته ما شاء الله بارك الله أبدعت وأحسنت.. أرجو من إدارة المنتدى الكرام إعطاءه حقه بأن يكون من مشرفي الموقع أو الخبراء لأنه بحق يستحقها بجدارة دون أي مدح أو إطراء... والسلام عليكم ورحمة الله وبركاته.
  3. احتساب الثمن

    وعليكم السلام أخي الحبيب جلال الجمال أبو أدهم بارك الله بكم ..شكراً على مروركم العطر وكلامكم الطيب. أعتذر لكل الإخوة الذين حمّلوا المرفق في المشاركة الأولى إن كان المرفق خالياً من المضمون ...لقد نزلته عدة مرات يحتوي على WinRAR دون مضمون ...أجهل السبب...والغاية من تفريغه من مضمونه. فإن كان به ضرر لأي شخص فإنني أسحب مشاركاتي مع شديد الأسف. رابط خارجي للملف ...أرجو أن لا يلحق بأخيه.
  4. add to date

    جزاكم الله خيرا أخي الحبيب عبد العزيز على هذا الدعاء الطيب.. تقبل تحياتي والسلام عليكم.
  5. add to date

    جزاكم الله خيراً. بارك الله بكم.
  6. السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام أقدم لكم دالة تتعلق بالحساب بين تاريخين راجياً أن أجد لدى أساتذتنا المهتمين بالبرمجة التعديل عليها وإصلاح عيوبها المتمثلة بما يلي: *الفرق بين تاريخين: مراقبة هل يعطي النتيجة الدقيقة أم لا؟. Function TwoDates(OldDate As String, NewDate As String) As String 'الفرق بين تاريخين If NewDate <> 0 Then If OldDate <> 0 Then TwoDates = Year(NewDate - OldDate) - 1900 & " years " & Month(NewDate - OldDate) - 1 & " months " & Day(NewDate - OldDate) + 1 & " days " Else TwoDates = "" End If End If End Function Function بين_تاريخين(تاريخ_قديم As String, تاريخ_جديد As String) As String 'الفرق بين تاريخين If تاريخ_جديد <> "" Then If تاريخ_قديم <> "" Then بين_تاريخين = Year(تاريخ_جديد - تاريخ_قديم) - 1900 & " سنة " & Month(تاريخ_جديد - تاريخ_قديم) - 1 & " شهر " & Day(تاريخ_جديد - تاريخ_قديم) + 1 & " أيام " Else بين_تاريخين = "" End If End If End Function لا تقبل التاريخ كتنسيق تاريخ بل تنسيق عام قمت بإرفاق عمود مساعد للتحويل التاريخ إلى رقم للتاريخين القديم والجديد. *إضافة أو طرح من تاريخ معين: أرغب بأن يدخل أو يخرج القيمة كتاريخ بدلاً من إظهارها كرقم كما يلي:(علماً أنه يجب أن لا يترك أي شرط من شروطها فارغاً ...يمكن وضع قيمة صفر بدلاً من تركه فارغاً)... Function AddToDate(MyDate As String, Before As String, After As String) As String 'طرح أو إضافة لتاربخ If Before <> "" Then If After <> "" Then AddToDate = MyDate - Before + After Else AddToDate = "" End If End If End Function Function BeforeDate(MyDate As String, Before As String) As String 'طرح من تاربخ If Before <> "" Then BeforeDate = "" BeforeDate = MyDate - Before Else BeforeDate = "" End If End Function Function AfterDate(MyDate As String, After As String) As String 'إضافة لتاربخ If MyDate <> "" Then AfterDate = -(-After) - (-MyDate) End If End Function يرجى التعديل عليها ليتم المطلوب كما أرجو أن ينفع الله بها وأن يجعلها خالصة لوجهه الكريم. والسلام عليكم ورحمة الله وبركاته. أعتذر عن التكرار.
  7. السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام أقدم لكم دالة تتعلق بالحساب بين تاريخين راجياً أن أجد لدى أساتذتنا المهتمين بالبرمجة التعديل عليها وإصلاح عيوبها المتمثلة بما يلي: *الفرق بين تاريخين: مراقبة هل يعطي النتيجة الدقيقة أم لا؟. Function TwoDates(OldDate As String, NewDate As String) As String 'الفرق بين تاريخين If NewDate <> 0 Then If OldDate <> 0 Then TwoDates = Year(NewDate - OldDate) - 1900 & " years " & Month(NewDate - OldDate) - 1 & " months " & Day(NewDate - OldDate) + 1 & " days " Else TwoDates = "" End If End If End Function Function بين_تاريخين(تاريخ_قديم As String, تاريخ_جديد As String) As String 'الفرق بين تاريخين If تاريخ_جديد <> "" Then If تاريخ_قديم <> "" Then بين_تاريخين = Year(تاريخ_جديد - تاريخ_قديم) - 1900 & " سنة " & Month(تاريخ_جديد - تاريخ_قديم) - 1 & " شهر " & Day(تاريخ_جديد - تاريخ_قديم) + 1 & " أيام " Else بين_تاريخين = "" End If End If End Function لا تقبل التاريخ كتنسيق تاريخ بل تنسيق عام قمت بإرفاق عمود مساعد للتحويل التاريخ إلى رقم للتاريخين القديم والجديد. *إضافة أو طرح من تاريخ معين: أرغب بأن يدخل أو يخرج القيمة كتاريخ بدلاً من إظهارها كرقم كما يلي:(علماً أنه يجب أن لا يترك أي شرط من شروطها فارغاً ...يمكن وضع قيمة صفر بدلاً من تركه فارغاً)... Function AddToDate(MyDate As String, Before As String, After As String) As String 'طرح أو إضافة لتاربخ If Before <> "" Then If After <> "" Then AddToDate = MyDate - Before + After Else AddToDate = "" End If End If End Function Function BeforeDate(MyDate As String, Before As String) As String 'طرح من تاربخ If Before <> "" Then BeforeDate = "" BeforeDate = MyDate - Before Else BeforeDate = "" End If End Function Function AfterDate(MyDate As String, After As String) As String 'إضافة لتاربخ If MyDate <> "" Then AfterDate = -(-After) - (-MyDate) End If End Function يرجى التعديل عليها ليتم المطلوب كما أرجو أن ينفع الله بها وأن يجعلها خالصة لوجهه الكريم. والسلام عليكم ورحمة الله وبركاته. دوال تاريخ.rar
  8. احتساب الثمن

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

    من البوم مشاركات إكسل

  10. إضافة لتاريخ-.JPG

    من البوم مشاركات إكسل

  11. احتساب الثمن

    وعليكم السلام أخي الحبيب جلال الجمال أبو أدهم بارك الله بكم ..شكراً على مروركم العطر وكلامكم الطيب. أعتذر لكل الإخوة الذين حمّلوا المرفق في المشاركة الأولى إن كان المرفق خالياً من المضمون ...لقد نزلته عدة مرات يحتوي على WinRAR دون مضمون ...أجهل السبب...والغاية من تفريغه من مضمونه. فإن كان به ضرر لأي شخص فإنني أسحب مشاركاتي مع شديد الأسف. رابط خارجي للملف ...أرجو أن لا يلحق بأخيه. حمل من هنا فاتورة مبيع محمد
  12. احتساب الثمن

    وإياكم أخي الكريم أشكر مروركم العطر
  13. احتساب الثمن

    أشكركم على مروركم العطر أستاذ Michel أرجو أن ينال إعجابكم.