Добрый день. Помогите доработать запрос:

(AGF(True,DateDiff('m',[дат_С],[дат_ПО]),[стоим],[износ],([кол_мес]-1))*100)/100 AS dopiz_byd, 
(AGF(False,DateDiff('m',[дат_С],[дат_ПО]),[стоим],[износ],([кол_мес]-1))*100)/100 AS baznow_byd, 
(baznow_byd-[износ]) AS dop_iznos

AGF в Module:

Public Function AGF#(dw As Boolean, ms%, st#, bz#, кол_мес%)
Dim m%, d#, d1#
  d = bz
  For m = 1 To ms
    d1 = (st - d) / ([кол_мес])
    d = d + d1
  Next
  If dw Then AGF = d1 Else AGF = d
End Function

Как заменить:

([кол_мес]-1)

чтоб от кол_мес отнималась сначала -1,
Если же промежуток дат [дат_С],[дат_ПО] больше одного месяца, значит далее -2 и т.д.

http://www.sql.ru/forum/1152921/dorabotka-zaprosa