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

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

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

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

[ياسر خليل أبو البراء]

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

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

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

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

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

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

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