اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

البحث في الموقع

Showing results for tags 'إضافة أو طرح من تاريخ'.

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
    • نرحب بزوار الموقع
  • قسم تطبيقات و لغات مايكروسوفت
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • منتدي الوورد Word
    • منتدى الباوربوينت
    • منتدى الاوتلوك Outlook
    • المنتدى التقني العام و تطبيقات الأوفيس الأخرى
    • إعلانات شخصية للأعضاء
    • قنوات تعليمية وإعلانات دورات تدريبية
  • إدارة المشاريع والبحث العلمي وعلوم البيانات
    • إدارة المشاريع ومحافظ المشاريع
    • البحث العلمي والإحصاء
    • الذكاء الإصطناعي و التنقيب فى البيانات
  • القسم العام
    • قسم الاقتراحات و الملاحظات
    • مشاركات المدونات
    • أوفيسنا على الفيسبوك

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • مدونة محمد طاهر
  • Officena
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة جعفر
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • رقائق فى دقائق
  • Shivan Rekany

ابحث عن النتائج فى ......

ابحث عن النتائج التي تحوي ....


تاريخ الانشاء

  • بدايه

    End


اخر تحديث

  • بدايه

    End


Filter by number of...

انضم

  • بدايه

    End


مجموعه


Job Title


البلد


الإهتمامات


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype

تم العثور علي 2 نتائج

  1. السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام أقدم لكم دالة تتعلق بالحساب بين تاريخين راجياً أن أجد لدى أساتذتنا المهتمين بالبرمجة التعديل عليها وإصلاح عيوبها المتمثلة بما يلي: *الفرق بين تاريخين: مراقبة هل يعطي النتيجة الدقيقة أم لا؟. 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
  2. السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام أقدم لكم دالة تتعلق بالحساب بين تاريخين راجياً أن أجد لدى أساتذتنا المهتمين بالبرمجة التعديل عليها وإصلاح عيوبها المتمثلة بما يلي: *الفرق بين تاريخين: مراقبة هل يعطي النتيجة الدقيقة أم لا؟. 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 يرجى التعديل عليها ليتم المطلوب كما أرجو أن ينفع الله بها وأن يجعلها خالصة لوجهه الكريم. والسلام عليكم ورحمة الله وبركاته. أعتذر عن التكرار.
×
×
  • اضف...

Important Information