Функция Date

[warshadow]

Всем доброй ночи )Вопрос такой мне нужно в условие отбора добавить 2-е функции:
1) разница с начала года по текущую дату?
2) продажи за каждый месяц года?

[Abrakadabra]

Сообщение от warshadow

в условие отбора

в условие отбора чего? Запроса?

Сообщение от warshadow

1) разница с начала года по текущую дату?

результат в днях, месяцах, секундах?

[warshadow]

Сообщение от Abrakadabra

в условие отбора чего? Запроса?

Да, запроса на выборку

Сообщение от Abrakadabra

результат в днях, месяцах, секундах?

разница с начала года по текущую дату
Ну например:чтобы было только на сегодняшней день, то мы используем функцию Date()
А какая есть функция которая : с начала года по текущую дату?

[Teslenko_EA]

Здравствуйте warshadow.
MS Access допускает использование в теле SQL конструкции VBA функций:
select * from Table where Дата Between DateSerial(31,12,2008) And Date()
select * from Table where Дата Between DateSerial(1,1,2009) And DateSerial(31,1,2009)
о функции DateSerial Вы можете получить информацию в справочной системе VBA.
Евгений.

[warshadow]

Спасибо Евгений
А как можно лучше наверное это реализовать в запрос на выборку в поле условие отбора?)

[Teslenko_EA]

Здравствуйте warshadow.
Строка запроса, является источником записей, формировать её текст можно в коде формы для которой запрос может быть источником. Разместив на форме два поля для ввода дат и кнопку, формирование SQL строки источника может осуществляться так:

Sub Button1_Click()
Const s0 = "select * from Table where Дата Between  CDate('"
Const s2 = "') And CDate('", s4 = "')"
Dim s1$, s3$, s$
s1 = Nz(Field1): s3 = Nz(Field2)
If Not IsDate(s1) Then
ElseIf Not IsDate(s3) Then
Else
    s = s0 + s1 + s2 + s3 + s4
    Me.RecordSource = s
End If
End Sub

Евгений.