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

الفرق بين تاريخين وطرح أو إضافة لتاريخ


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

السلام عليكم ورحمة الله وبركاته

إخوتي وأساتذتي الكرام أقدم لكم دالة تتعلق بالحساب بين تاريخين راجياً أن أجد لدى أساتذتنا المهتمين بالبرمجة التعديل عليها وإصلاح عيوبها المتمثلة بما يلي:

*الفرق بين تاريخين:  مراقبة هل يعطي النتيجة الدقيقة أم لا؟.

large.58627ce024671_.JPG

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

 

لا تقبل التاريخ كتنسيق تاريخ بل تنسيق عام قمت بإرفاق عمود مساعد للتحويل التاريخ إلى رقم للتاريخين القديم والجديد.

*إضافة أو طرح من تاريخ معين:

large.58627ca341d5c_.JPG

أرغب بأن يدخل أو يخرج القيمة كتاريخ بدلاً من إظهارها كرقم كما يلي:(علماً أنه يجب أن لا يترك أي شرط من شروطها فارغاً ...يمكن وضع قيمة صفر بدلاً من تركه فارغاً)...:wink2:

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

large.58627cfca682f_.JPGlarge.58627cc14266d_.JPG

Function AfterDate(MyDate As String, After As String) As String
'إضافة لتاربخ
If MyDate <> "" Then
AfterDate = -(-After) - (-MyDate)
End If
End Function

يرجى التعديل عليها ليتم المطلوب كما أرجو أن ينفع الله بها وأن يجعلها خالصة لوجهه الكريم.

والسلام عليكم ورحمة الله وبركاته.

أعتذر عن التكرار.

رابط هذا التعليق
شارك

وعليكم السلام أخي الغالي أبو يوسف

مع التواريخ جرب استخدام احدى الدالتين CDATE أو CLNG .. اقرأ حول الدالتين لمعرفة المزيد عنهما لربما يساعدك ذلك في إتمام الأمر إنن شاء الله

  • Like 1
رابط هذا التعليق
شارك

12 دقائق مضت, ياسر خليل أبو البراء said:

وعليكم السلام أخي الغالي أبو يوسف

مع التواريخ جرب استخدام احدى الدالتين CDATE أو CLNG .. اقرأ حول الدالتين لمعرفة المزيد عنهما لربما يساعدك ذلك في إتمام الأمر إنن شاء الله

جزاكم الله خيراً. بارك الله بكم.

رابط هذا التعليق
شارك

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.

×
×
  • اضف...

Important Information