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

ник: osmor
Ну как-то вот так.
Правда в ВАшей таблице при наличии даты нет знаечния нового тарифа... я добавил ил нужно добавить проверку иначе получите фигню

SELECT N, [Наименование тарифа], IIf(IsNull([Дата]),[Текущий],(([Текущий]/Day(DateSerial(Year([Дата]),Month([Дата])+1,1)-1))*(Day([Дата])-1))+(([Новый]/Day(DateSerial(Year([Дата]),Month([Дата])+1,1)-1))*(Day(DateSerial(Year([Дата]),Month([Дата])+1,1)-1)-Day([Дата])))) AS NewTariff FROM тАбонплата;