'---------------------------------------------------------------
'函数名:GetDateStr
'作用:取日期的样式
'参数:AddDate,DateRule,DateAlign,DateCssStr,ByRef ColSpanNum
'---------------------------------------------------------------
Function GetDateStr(AddDate,DateRule,DateAlign,DateCssStr,ByVal ColNumber,ByRef ColSpanNum)
If CStr(DateRule) <> "0" And CStr("DateRule") <> "" Then
Dim NowDate,NowFormatStr
NowDate=Now
If (Year(NowDate) & Month(NowDate) & Day(NowDate)) = (Year(AddDate) & Month(AddDate) & Day(AddDate)) Then
NowFormatStr=" style=""color:red"""
Else