Поиск следующего вхождения данной даты с запросом MS Access

Question

В настоящее время я работаю над базой данных, в которой хранятся данные о лицензировании программного обеспечения, такие как имя программного обеспечения, дата покупки, стоимость, количество и т. Д. После того, как программное обеспечение принадлежит в течение 12 месяцев мы должны заплатить сбор за обслуживание.

Мой вопрос заключается в том, как спроектировать запрос, который займет дату покупки, и вычислить следующее вхождение этой даты, которое будет храниться в поле даты обслуживания. Пример) Если лицензия была приобретена 31.12.1999 года, мне необходимо будет оплатить обслуживание на 12/31/2016.

У меня нет большого опыта работы с MS Access или SQL-запросами, и после изучения этого на некоторое время я даже не уверен, что это возможно. Я был бы признателен за любую помощь, которую вы, ребята, могли бы мне дать!

Answer 1

Вот функция, которая будет делать именно это:

Public Function DateNextAnnualDay(_ 
    ByVal AnnualDay As Date) _ 
    As Date 

    Dim SomeDate  As Date 
    Dim NextAnnualDay As Date 
    Dim Years   As Integer 

    SomeDate = Date 

    NextAnnualDay = AnnualDay 
    Years = DateDiff("yyyy", AnnualDay, SomeDate) 
    If Years < 0 Then 
     ' Don't calculate hypothetical annual days. 
    Else 
     NextAnnualDay = DateAdd("yyyy", Years, AnnualDay) 
     If DateDiff("d", SomeDate, NextAnnualDay) <= 0 Then 
      ' Next annual day falls earlier in the year than SomeDate. 
      NextAnnualDay = DateAdd("yyyy", Years + 1, AnnualDay) 
     End If 
    End If 

    DateNextAnnualDay = NextAnnualDay 

End Function 

Answer 2

Синтаксис

SELECT DateAdd("yyyy",1,[MyDate]) AS MaintDate 
FROM Table; 

Answer 3

Если вам нужно сделать более сложный запрос вы можете написать функцию в модуле, а затем получить доступ к нему в запросе с помощью VBA. Например, вы можете перебирать через петлю, чтобы соответствовать условию

Function GetNextDate(ByVal dteOriginalDate As Date) As Date 

While dteOriginalDate <= DateTime.Now 

    dteOriginalDate = DateAdd("Yyyy", 1, dteOriginalDate) 

Wend 

GetNextDate = dteOriginalDate 

End Function 

Будет итерацию добавление одного года с даты первоначального до точки, в которой дата в будущем. Вы можете построить его в запросе (используя щелчок правой кнопкой мыши -> сборка), чтобы каждая строка проходила через ваш код и применяла логику.

Это позволит вам сохранить исходную дату лицензии в вашей базе данных и рассчитать следующую дату выполнения, не зная (или изменить) промежуточные годы.