Если ДатаН < ДатаК Тогда

       бДатаН = НачМесяца(ДатаН);

       бДатаК = НачМесяца(ДатаК);

       КвоМес = 0;

       Пока бДатаН < бДатаК Цикл

           бДатаН = НачМесяца(ДобавитьМесяц(бДатаН,1));

           КвоМес = КвоМес + 1;

       КонецЦикла;       

       Если ДатаЧисло(ДатаН) <> 1 Тогда

           КвоМес = Макс(0,КвоМес-1);

       КонецЕсли;

       Возврат КвоМес;

       Возврат 0;

КонецФункции