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

[محمد حسن المحمد]

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

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

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

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

[عبد العزيز البسكري]

[محمد حسن المحمد]

14 ساعات مضت, عبد العزيز البسكري said:

جزاكم الله خيرا أخي الحبيب عبد العزيز على هذا الدعاء الطيب..

تقبل تحياتي والسلام عليكم.

تم تعديل ديسمبر 29, 2016 بواسطه محمد حسن المحمد