مقایسه تاریخ

[automa]

سلام
چطور می توان دو ستون تاریخ و ساعت را با یک دیگر مقایسه کردو اختلاف آنها را نمایش و سپس آنهایی که اختلاف کمتری دارند را به ترتیب از کم به زیاد نمایش داد (هر تاریخ با تاریخ ستون مقابل نمایش داد)
لطقا راهنمایی بفرمایید
با تشکر

[Di Di]

اگر می خوای داخل یک لیست یا گرید نمایش بدی، کافیه بر اساس حروف الفبا سورت

کنی، اما اگر می خوای اختلاف بین دوتا تاریخ( شمسی) یا دوتا ساعت رو بدست بیاری باید براش تابع

بنویسی

[automa]

من می خواهم اختلاف دو تاریخ و ساعت که در یک فیلد در یک رکورد ذخیره شده اند با فیلد دیگر تاریخ و ساعت در همان رکورد را بدست بیاورم

[Di Di]

کد:

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