لجمع تاريخين في حالة تساوي 360 يضاف 30 يوم في اجازة موظف

السلام عليكم

يتم مقارنة تاريخين عن طريق Date.Compare بحيث نرسل لها ممررين وهما التاريخ الاول و التاريخ الثاني

هذه الوظيفة اي Compare ترجع قيمة رقمية فإن كانت صفر فإن التاريخين متساويين

وإن أرجعت القيمة واحد كان التاريخ الاول أكبر من التاريخ الثاني

أما 2 فالتاريخ الثاني أكبر من التاريخ الاول, على العموم شاهد النصوص التالية:

 Dim ComDate As Integer = Date.Compare(date1, date2)
		If ComDate = 0 Then
			Return "قيمة الوقتين متساويتين"

		ElseIf ComDate = 1 Then
			Return "لا يمكن أن يكون التاريخ الحالي أصغر من تاريخ تعيين الموظف"

		Else
			'Will be -1 That's a valid Value 
			'( Complete Executing All Below Script )
		End If

حمل المثال المرفق لتشاهد أسخراج عائد قيمة المقارنة بين التواريخ بالعربي

يتضمن المثال مقارنة تاريخ الميلاد و المقارنة بين تاريخين, و المقارنة بين وقتين و حساب تنزيل حجم ملف كعملية Download

بالتوفيق إن شاء الله.

CalculateYearsMonthsDaysandDownloads.rar