Print Text Month Calendar

IF  EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[myCalendar]') AND type in (N'FN', N'IF', N'TF', N'FS', N'FT'))
DROP FUNCTION [dbo].[myCalendar]
GO
-- =============================================
-- Author:		Bernie Diaz
-- Create date: 10/28/2012
-- Description:	print month calendar info
-- =============================================
CREATE FUNCTION [dbo].[myCalendar] 
(
@DATE DATETIME
)
RETURNS VARCHAR(MAX)
AS
BEGIN
	-- Declare the return variable here
	DECLARE @todayDate DATETIME,@lastDayDate DATETIME,@firstDayDate DATETIME,
	 @c_Date DATETIME,@c_day INT,@today INT,@month INT,@weeDay INT,@str VARCHAR(MAX),@i INT
	,@hdr VARCHAR(MAX)
	,@monthN VARCHAR(MAX)
	,@pr INT, @po INT

	SELECT @todayDate=@DATE --DATEADD(MONTH,-9,GETDATE())
	SET @i =1


	SELECT	
		 @firstDayDate=
				CONVERT(DATETIME,CONVERT(VARCHAR(10),
				DATEADD(DAY,1,DATEADD(s,-1,DATEADD(mm, DATEDIFF(m,0,DATEADD(MONTH,-1,@todayDate))+1,0)))
				,112))
		,@lastDayDate=
				CONVERT(DATETIME,CONVERT(VARCHAR(10),
				DATEADD(s,-1,DATEADD(mm, DATEDIFF(m,0,@todayDate)+1,0))
				,112))
		,@month=MONTH(@todayDate)
		,@today=DAY(@todayDate)
		,@monthN=DATENAME(MONTH,@todayDate)
	SELECT @weeDay=DATEPART(dw,@firstDayDate)
	
	SET @pr=(11-LEN(@monthN))/2;
	IF @pr=0 SET @pr=1;
	SET @po=(11-LEN(@monthN))-@pr;
	IF @po=0 SET @po=1;
	SET @hdr=' <<'
				+REPLICATE(' ',@pr)+@monthN
				+' '
				+ RTRIM(CAST(YEAR(@todayDate) AS CHAR))
				+REPLICATE(' ',@po)+'>>'
				+CHAR(13)
				+' Su Mo Tu We Th Fr Sa';

	WHILE @i < @weeDay
	BEGIN
		SELECT	@str=COALESCE(@str,'')+ REPLICATE(' ',3)
		SET @i=@i+1
	END


	SET @c_Date=@firstDayDate

	WHILE @c_Date<=@lastDayDate
	BEGIN

		SET @c_day = DAY(@c_Date)
		SELECT	@str=COALESCE(@str,'')+ REPLICATE(' ',3-LEN(@c_day)) + RTRIM(CAST(@c_day AS CHAR))
		
		IF @i = 7 
		BEGIN
			SET @str=COALESCE(@str,'')+ CHAR(13);
			SET @i=1
		END ELSE BEGIN SET @i=@i+1 END

	SET @c_Date=DATEADD(DAY,1,@c_Date)
	END

	--print @hdr+CHAR(13)+@str


	-- Return the result of the function
	RETURN @hdr+CHAR(13)+@str

END

GO