create function LastDayOfMonth(@DT datetime)
returns datetime
as
begin
 /*{ Конвертит дату в последний день месяца }*/ 
declare @M pk
,@Y pk

select @M=Month(@DT), @Y=Year(@DT)

if @M<> 12 
	set @DT=Dateadd(day,- 1 ,convert(datetime,'01.'+CONVERT(char( 2 ),@M+ 1 )+'.'+CONVERT(char( 4 ),@Y), 104 ))
else
	set @DT=convert(datetime,'31.12.'+CONVERT(char( 4 ),@Y), 104 )
return @DT
end
GO
create function GetPeriodDate
(@DT datetime		 -- Дата
 
,@PERIOD_ID pk		 -- id периода (см. табл. "vartp")
 
,@PERIOD_DT_ID pk	 -- Дата в периоде (см. view "setdate") 1-начальная, 2-текущая, 3-конечная
 
)
returns datetime
as
begin
 /*{ Возвращает дату начала(конца) периода }*/ 
declare 
 @K pk
,@K1 pk

if @PERIOD_DT_ID in ( 1 , 3 ) begin
	if @PERIOD_ID= 2   -- день
 
		set @DT=Convert(datetime,FLOOR(Convert(float,@DT)))
	else
	if @PERIOD_ID= 3  begin  -- неделя
 
		if @PERIOD_DT_ID= 3  set @K= 7 
		else
			set @K= 0 
		set @DT=DateAdd(day,@K-DatePart(weekday,@DT)+ 1 ,@DT)
	end
	else
	if @PERIOD_ID= 4  begin  -- декада
 
		set @K=Day(@DT)
		set @K1=case when @K<= 10  then  1  when @K<= 20  then  11  else  21  end
		if @PERIOD_DT_ID= 3  and @K1<> 21  set @K1=@K1+ 9 
		if not(@PERIOD_DT_ID= 3  and @K1= 21 )
			set @DT=DateAdd(day,@K1-@K,@DT)
		else
			set @DT=dbo.LastDayOfMonth(@DT)
	end
	else
	if @PERIOD_ID= 5  begin  -- месяц
 
		if @PERIOD_DT_ID= 3   -- конец месяца
 
			set @DT=dbo.LastDayOfMonth(@DT)
		else	 -- начало месяца
 
			set @DT=Dateadd(day,-DatePart(day,@DT)+ 1 ,@DT)
	end
	else
	if @PERIOD_ID= 6  begin  -- квартал
 
			if @PERIOD_DT_ID= 3   -- конец квартала
 
				set @K= 0 
			else
				set @K= 1 
			set @DT=convert(datetime,'1.'+CONVERT(char( 2 ),(DatePart(quarter,@DT)-@K)* 3 +@K)+'.'+CONVERT(char( 4 ),Year(@DT)), 104 )
				 --DateAdd(month,-((DatePart(month,@DT)-(DatePart(quarter,@DT)-1)*3)-1),@DT)
 
			if @PERIOD_DT_ID= 3 
				set @DT=dbo.LastDayOfMonth(@DT)
	end
	else
	if @PERIOD_ID= 7  begin  -- полугодие
 
			set @K=Month(@DT)
			if @PERIOD_DT_ID= 3  begin -- конец квартала
 
				if @K< 6  set @K= 5 
				else set @K= 12 
			end
			else begin
				if @K< 6  set @K= 1 
				else set @K= 6 
			end
			set @DT=convert(datetime,'1.'+CONVERT(char( 2 ),@K)+'.'+CONVERT(char( 4 ),Year(@DT)), 104 )
			if @PERIOD_DT_ID= 3 
				set @DT=dbo.LastDayOfMonth(@DT)
	end
	else
	if @PERIOD_ID= 8  begin  -- год
 
			set @K=Year(@DT)
			if @PERIOD_DT_ID= 3  begin -- конец года
 
				set @DT=convert(datetime,'31.12.'+CONVERT(char( 4 ),@K), 104 )
			end
			else begin
				set @DT=convert(datetime,'1.1.'+CONVERT(char( 4 ),@K), 104 )
			end
	end
	else 
	if @PERIOD_ID<> 1  set @DT=NULL
end
return @DT
end
GO