在實際的處理中,還有一種比較另類的日期加減處理,就是在指定的日期中,加上(或者減去)多個日期部分,比如將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