set @month=@i --确定农历日结束 set @day=ltrim(@offset)--输出日期set @chinesenum=N'〇一二三四五六七八九十' while len(@year)>0select @outputdate=isnull(@outputdate,'')+ substring(@chinesenum,left(@year,1)+1,1), @year=stuff(@year,1,1,'')set @outputdate=@outputdate+N'年'+ case @mleap1 when @month then N'润' else '' endif cast(@month as int)<10set @outputdate=@outputdate+ case @month when 1 then N'正'else substring(@chinesenum,left(@month,1)+1,1)endelse if cast(@month as int)>=10set @outputdate=@outputdate+ case @month when '10' then N'十' when 11 then N'十一'else N'十二' endset @outputdate=@outputdate + N'月'if cast(@day as int)<10set @outputdate=@outputdate + N'初'+ substring(@chinesenum,left(@day,1)+1,1)else if @day between '10' and '19'set @outputdate=@outputdate+ case @day when '10' then N'初十' else N'十'+substring(@chinesenum,right(@day,1)+1,1) endelse if @day between '20' and '29'set @outputdate=@outputdate+ case @day when '20' then N'二十' else N'廿' end+ case @day when '20' then N'' elsesubstring(@chinesenum,right(@day,1)+1,1) endelseset @outputdate=@outputdate+N'三十'return @outputdateendGO--步骤:调用方法select dbo.fn_GetLunar(getdate())
