Here's an example using the Orders table from the Northwind sample database
....
Public Sub CompareDates()
Dim rstOrder As ADODB.Recordset
Dim dtmOrderDate As Date
Dim intResult As Integer
Set rstOrder = New ADODB.Recordset
With rstOrder
.ActiveConnection = CurrentProject.Connection
.Open "SELECT * FROM Orders ORDER BY OrderDate"
Do Until .EOF
If Not IsEmpty(dtmOrderDate) Then
Debug.Print DateDiff("d", dtmOrderDate,
..Fields("OrderDate"))
End If
dtmOrderDate = .Fields("OrderDate")
.MoveNext
Loop
.Close
End With
End Sub
--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com
The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.
