вывод дат по неделям

FATE
Дата: 02.10.2005 21:22:22
помогите,пожалуйста, разобратся:надо сделать так чтобы даты по запросу выводились в виде недель: 05.04.2005-09.04.2005.
Я знаю только такой вариант:
date1 = f_yyyy & f_MM & f_dd
date2 = f_yyyy1 & f_MM1 & (f_dd1 + 1)
S = S + " a.datet between '" & date1 & "'" + "and '" & date2 & "'"
Но в нем даты выводятся по дням.
funddd
Дата: 02.10.2005 22:29:52
посмотри функцию DateAdd
причем ее можно рименит сразу в запросе
то есть
between date1 and DateAdd("w",1,date1)
FATE
Дата: 03.10.2005 10:13:25
спасибо
FATE
Дата: 03.10.2005 11:43:17
не могу понять что не так:

Dim S, a, D, ORDER As String
Dim IntervalType As String
Dim date1 As Date
Dim Number As Double
On Error GoTo Err_Atlasit_Click

IntervalType = "w"
Number = 1
a = "SELECT DISTINCT a.* From VK_Permit_documents a "
S = "WHERE"

ORDER = " ORDER BY a.datet desc"

If Not IsNull(f_dd) And Not IsNull(f_MM) And Not IsNull(f_yyyy) Then


date1 = f_yyyy & f_MM & f_dd

S = S + " a.datet between '" & date1 & "'" + "and '" & DateAdd("IntervalType", Number, date1) & "'"


ElseIf IsNull(f_dd) And IsNull(f_MM) And IsNull(f_yyyy) Then

Else
''MsgBox "Aizpildiet visus atlases kritērija - Datums laukus un mēģiniet atlasīt vēlreiz!"
Exit Sub
End If

S = a + S + ORDER

Debug.Print S
Form.RecordSource = "" & S & ""
AndrewNico
Дата: 03.10.2005 11:49:29
Первое, что бросается в глаза:

S = S + " a.datet between '" & date1 & "'" + "and '" & DateAdd("IntervalType", Number, date1) & "'"

Выделленные кавычки - явно лишние...
FATE
Дата: 03.10.2005 12:06:47
да яуже перебробовала все варианты:
1.S = S + " a.datet between '" & date1 & "'" + "and '" & DateAdd(IntervalType, Number, date1) & "'"
2.S = S + " a.datet between '" & date1 & "'" + "and '" & DateAdd("w", Number, date1) & "'"
3. date1 = f_yyyy & f_MM & f_dd
date1 = DateAdd("w", Number, date1)
S = S + " a.datet between '" & date1 & "'" + "and '" & date2 & "'"
ничего не помогает
AndrewNico
Дата: 03.10.2005 12:08:33
А в S-то, что в итоге получается?
FATE
Дата: 03.10.2005 12:10:53
а в том-то и дело что Debug.Print S ничего не показывает
AndrewNico
Дата: 03.10.2005 12:12:40
А значения f_dd, f_MM, f_yyyy - откуда берутся?
AndrewNico
Дата: 03.10.2005 12:15:33
Кстати, при таком объявлении:

Dim S, a, D, ORDER As String

переменные S, a, D - имеют тип Variant