DECLARE @FromMonth CHAR(6),@ToMonth CHAR(6);
SELECT @FromMonth='200101',@ToMonth='201401';
DECLARE @Language NVARCHAR(4000);
SET @Language=@@LANGUAGE;
IF @@LANGUAGE<>N'русский' SET LANGUAGE Russian;
WITH
 Dates(D)AS(SELECT CAST(@FromMonth+'01' AS DATETIME) UNION ALL SELECT DATEADD(DAY,1,D) FROM Dates WHERE D<DATEADD(DAY,-1,@ToMonth+'01'))
,WeekDays(Y,M,D,WD,N,WNo)AS(SELECT YEAR(D), MONTH(D), STR(DAY(D),2),(@@DATEFIRST+DATEPART(WEEKDAY,D))%7, DATENAME(MONTH,D),(DAY(D)-1+(@@DATEFIRST+DATEPART(WEEKDAY, CONVERT(CHAR(6),D,112)+'01')-2)%7)/7 FROM Dates)
,Calendar AS
(
 SELECT Y,M,WNo
, CASE WHEN WNo=0 AND M=1 THEN STR(Y,4) ELSE''END[Год]
, LEFT(CASE WNo WHEN 0 THEN CASE M WHEN 1 THEN REPLICATE('=',8)ELSE REPLICATE('-',8)END WHEN 2 THEN N ELSE''END,8)[Месяц]
, ISNULL([2],'')[Пн]
, ISNULL([3],'')[Вт]
, ISNULL([4],'')[Ср]
, ISNULL([5],'')[Чт]
, ISNULL([6],'')[Пт]
, ISNULL('['+[0]+']','')[Сб]
, ISNULL('['+[1]+']','')[Вс]
 FROM WeekDays PIVOT (MAX(D) FOR WD IN([0],[1],[2],[3],[4],[5],[6])) Pvt
)
SELECT [Год],[Месяц],[Пн],[Вт],[Ср],[Чт],[Пт],[Сб],[Вс] FROM Calendar ORDER BY Y,M,WNo OPTION(MAXRECURSION 0);
IF @@LANGUAGE<>@Language SET LANGUAGE @Language;