ник: kot_k_k
толи не правильно условие, тли объяснение т.к. DateDiff("yyyy";[ТабБазаГлавная]![Дата];Date()) - вернет количество ЛЕТ между двумя датами, и как отнимать 30 дней от одного года?????
Str_ = #1/1/2009#
Str_2 = #5/1/2008#
uu = DateDiff("yyyy", Str_, Str_2) - возвращает: -1
Str_ = #1/1/2009#
Str_2 = #5/1/2009#
uu = DateDiff("yyyy", Str_, Str_2) - возвращает: 0
Str_ = #1/1/2009#
Str_2 = #5/1/2010#
uu = DateDiff("yyyy", Str_, Str_2) - возвращает: 1
поэтому нужно использовать DateSerial(),
Пример из хелпа, вам подходит: вычисления количества дней в заданном месяце.
Параметром функции DaysInMonth может быть либо дата, либо строка.
Function DaysInMonth(dteInput As Date) As Integer
Dim intDays As Integer
' Добавим один месяц и вычтем даты, чтобы найти разницу.
intDays = DateSerial(Year(dteInput), Month(dteInput) + 1, Day(dteInput)) _
- DateSerial(Year(dteInput), Month(dteInput), Day(dteInput))
DaysInMonth = intDays
|