Расчет времени/периода

Среда, 06 Мая 2015 г. 08:02 + в цитатник

Всем доброго времени суток!
Есть таблица вида:

Поле1	Поле2	Поле3
05/05/2015	00:30:12	25.10019
05/05/2015	00:30:13	25.10113
05/05/2015	00:30:40	25.10056
05/05/2015	00:30:41	25.10056
05/05/2015	00:30:42	25.10467
05/05/2015	00:30:43	25.1031
05/05/2015	00:30:44	25.10472
05/05/2015	00:30:45	25.10232

Результат должен быть:

Период	Сек.
05/05/2015 00:30:12 - 05/05/2015 00:30:13	1
05/05/2015 00:30:40 - 05/05/2015 00:30:45	5

Никак не могу сообразить как решить. Решил в запросе использовать еще значение(текущее время + 1 сек).

SELECT Format((Поле1 & " " & Поле2),"mm\/dd\/yyyy hh:nn:ss") AS Data, Лист1.Поле3 AS v, Format(DateAdd("s",1,Data),"mm\/dd\/yyyy hh:nn:ss") AS Data2
FROM Лист1
WHERE (((Лист1.[Поле3])>25.1))
ORDER BY Format((Поле1 & " " & Поле2),"mm\/dd\/yyyy hh:nn:ss");

Data	v	Data2
05/05/2015 00:30:12	25.10019	05/05/2015 00:30:13
05/05/2015 00:30:13	25.10113	05/05/2015 00:30:14
05/05/2015 00:30:40	25.10056	05/05/2015 00:30:41
05/05/2015 00:30:41	25.10056	05/05/2015 00:30:42
05/05/2015 00:30:42	25.10467	05/05/2015 00:30:43
05/05/2015 00:30:43	25.1031	05/05/2015 00:30:44
05/05/2015 00:30:44	25.10472	05/05/2015 00:30:45

И сравнивать время.

Dim i As Integer
Dim q As Date

Private Sub Кнопка0_Click()
Dim rs As Object
Set rs = CurrentProject.Connection.Execute("Select Data,Data2,v from q_Лист1")

i = 0
With CurrentDb.OpenRecordset("t1")
     rs.MoveFirst
     q = rs("Data")
     'Debug.Print q & "-" & i
     Do While Not rs.EOF
        If rs("Data") = q Then
           i = i + 1
           q = rs("Data2")
        Else
           .AddNew
           !period = rs("Data")
           !sec = i
           i = 0 'Обнуляем счетчик
           q = rs("Data") 'Присваиваем текущее значение даты
           'Debug.Print q & "-" & i
           .Update
        End If
        rs.MoveNext
     Loop
End With
Set rs = Nothing
MsgBox "OK"
End Sub