Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Lukas
Как-то так:

Private Function funCounterInterval(ByVal DatStart As Date) As Long     Do While Date > DateAdd("yyyy", 1, DatStart)         funCounterInterval = funCounterInterval + 1         DatStart = DateAdd("yyyy", 1, DatStart)     Loop End Function Public Function funNemo(ByVal DatStart As Date)     Select Case funCounterInterval(DatStart)         Case Is < 5: funNemo = 0         Case 5 To 9: funNemo = 5         Case 10 To 14: funNemo = 10         Case 15 To 20: funNemo = 15         Case Is > 20: funNemo = 20     End Select End Function

В итоговом поле, данные: =funNemo([ПолеДатыПриемаНаРаботу])