سلام
چطور می توان دو ستون تاریخ و ساعت را با یک دیگر مقایسه کردو اختلاف آنها را نمایش و سپس آنهایی که اختلاف کمتری دارند را به ترتیب از کم به زیاد نمایش داد (هر تاریخ با تاریخ ستون مقابل نمایش داد)
لطقا راهنمایی بفرمایید
با تشکر
اگر می خوای داخل یک لیست یا گرید نمایش بدی، کافیه بر اساس حروف الفبا سورت
کنی، اما اگر می خوای اختلاف بین دوتا تاریخ( شمسی) یا دوتا ساعت رو بدست بیاری باید براش تابع
بنویسی
من می خواهم اختلاف دو تاریخ و ساعت که در یک فیلد در یک رکورد ذخیره شده اند با فیلد دیگر تاریخ و ساعت در همان رکورد را بدست بیاورم
کد:
Function DateDif(date1 As String, Date2 As String)
'Dim A71 As String
'Dim A72 As String
'Dim A468 As String ''
Dim Day1 As Integer
Dim day2 As Integer
Dim Mon1 As Integer
Dim Mon2 As Integer
Dim Year1 As Integer
Dim year2 As Integer
Dim DD, MM, yy As Integer
Day1 = Val(Right(date1, 2))
Mon1 = Val(mid(date1, 6, 2))
Year1 = Val(Left(date1, 4))
day2 = Val(Right(Date2, 2))
Mon2 = Val(mid(Date2, 6, 2))
year2 = Val(Left(Date2, 4))
DD = Day1 - day2
If DD < 0 Then
Mon1 = Mon1 - 1
Day1 = Day1 + 30
DD = Day1 - day2
End If
MM = Mon1 - Mon2
If MM < 0 Then
Year1 = Year1 - 1
Mon1 = Mon1 + 12
MM = Mon1 - Mon2
End If
yy = Year1 - year2
DD ' Day Diff
MM ' Month Dif
yy ' Year Dif
End Function