数据库 日期加减处理

在实际的处理中，还有一种比较另类的日期加减处理，就是在指定的日期中，加上（或者减去）多个日期部分，比如将2005年3月11日，加上1年3个月11天2小时。对于这种日期的加减处理，dateadd函数的力量就显得有点不够。

要实现多个日期部分的加减处理，最主要的就是把要加减的日期字符分解，然后根据分解的结果在指定日期的对应日期部分加上相应的值，其难点在于如何分解日期字符，以及判断分解后的日期字符属于哪个日期部分。要顺利地分解出日期字符的话，首先要规定日期加减的日期字符的格式，可以这样定义：
y-m-d h:m:s.m | -y-m-d h:m:s.m

说明：要加减的日期字符输入方式与日期字符串相同。日期与时间部分用空格分隔，最前面一个字符如果是减号（-）的话，表示做减法处理，否则做加法处理。如果日期字符只包含数字，则视为日期字符中，仅包含天的信息。

确定了日期字符格式后，处理方法就可以这样确定：获取日期字符的第一个字符，判断处理方式，然后将要加减的日期字符按空格分拆为日期和时间两部分，对于日期部分从低位到高位逐个截取日期数据进行处理，对于时间从高位到低位逐个处理。
以下是实现日期的多个部分同时加减处理的用户定义函数代码：

create function f_dateadd(
@date datetime,
@datestr varchar(23)
)returns datetime
as
begin
declare @bz int,@s varchar(12),@i int
if @datestr is null or @date is null
or(charindex('.',@datestr)>0
and @datestr not like '%[:]%[:]%.%')
return(null)
if @datestr='' return(@date)
select @bz=case
when left(@datestr,1)='-' then -1
else 1 end,
@datestr=case
when left(@date,1)='-'
then stuff(rtrim(ltrim(@datestr)),1,1,'')
else rtrim(ltrim(@datestr)) end
if charindex(' ',@datestr)>1
or charindex('-',@datestr)>1
or(charindex('.',@datestr)=0
and charindex(':',@datestr)=0)
begin
select @i=charindex(' ',@datestr+' ')
,@s=reverse(left(@datestr,@i-1))+'-'
,@datestr=stuff(@datestr,1,@i,'')
,@i=0
while @s>'' and @i<3
select @date=case @i
when 0 then dateadd(day,@bz*reverse(left(@s,charindex('-',@s)-1)),@date)
when 1 then dateadd(month,@bz*reverse(left(@s,charindex('-',@s)-1)),@date)
when 2 then dateadd(year,@bz*reverse(left(@s,charindex('-',@s)-1)),@date)
end,
@s=stuff(@s,1,charindex('-',@s),''),
@i=@i+1
end
if @datestr>''
begin
if charindex('.',@datestr)>0
select @date=dateadd(millisecond
,@bz*stuff(@datestr,1,charindex('.',@datestr),''),
@date),
@datestr=left(@datestr,charindex('.',@datestr)-1)+':',
@i=0
else
select @datestr=@datestr+':',@i=0
while @datestr>'' and @i<3
select @date=case @i
when 0 then dateadd(hour,@bz*left(@datestr,charindex(':',@datestr)-1),@date)
when 1 then dateadd(minute,@bz*left(@datestr,charindex(':',@datestr)-1),@date)
when 2 then dateadd(second,@bz*left(@datestr,charindex(':',@datestr)-1),@date)
end,
@datestr=stuff(@datestr,1,charindex(':',@datestr),''),
@i=@i+1
end
return(@date)
end