'函数名:GetDateStr
  '作用：取日期的样式
  '参数：AddDate,DateRule,DateAlign,DateCssStr,ByRef ColSpanNum
  '---------------------------------------------------------------
  Function GetDateStr(ChannelID,AddDate,DateRule,DateAlign,DateCssStr,ByVal ColNumber,ByRef ColSpanNum)
         If CStr(DateRule) <> "0" And CStr("DateRule") <> "" Then
        Dim NowDate,NowFormatStr
      If DateDiff("d",AddDate,Now())-ChkClng(C_S(ChannelID,47))<0 Then NowFormatStr=" style=""color:red"""  Else  NowFormatStr=" style=""color:#000"" "

      If Lcase(DateAlign)="left" Then
       GetDateStr="&nbsp;<span" & NowFormatStr & DateCssStr &">" & DateFormat(AddDate, DateRule) & "</span>"
       ColSpanNum = ColNumber+1
      Else
       GetDateStr="</td><td width=""*"" nowrap align=" & DateAlign & "><span" & NowFormatStr & DateCssStr & ">" & DateFormat(AddDate, DateRule) & "</span>"
       ColSpanNum = ColNumber+2
      End If
    Else
    GetDateStr="":ColSpanNum = ColNumber+1
    End If
  End Function
  '取得日期样式(div+css)
  Function GetDCDateStr(ChannelID,AddDate,DateRule,DateCssStr)
    If CStr(DateRule) <> "0" And CStr("DateRule") <> "" Then
        Dim NowFormatStr
      If DateDiff("d",AddDate,Now())-ChkClng(C_S(ChannelID,47))<0 Then
       NowFormatStr=" style=""color:red"""
      Else
       NowFormatStr=" style=""color:#000"" "
      End If
      GetDCDateStr="&nbsp;<span" & NowFormatStr & DateCssStr &">" & DateFormat(AddDate, DateRule) & "</span>"
    Else
    GetDCDateStr=""
    End If
        End Function
  
    '返回格式化后的时间
     Function GetTimeFormat(DateTime)
        if DateDiff("n",DateTime,now)<5 then
      GetTimeFormat="刚刚"
     elseif DateDiff("n",DateTime,now)<60 then
      GetTimeFormat=DateDiff("n",DateTime,now) & " 分钟前"
     elseif DateDiff("h",DateTime,now)<12 Then
      GetTimeFormat=DateDiff("h",DateTime,now) & " 小时前"
     else
      GetTimeFormat=formatdatetime(DateTime,2)
     end if
     End Function

红色为修改的部分，改过之后还是一样。

 我只学了C#和java ， VB没学过， 不会改。

望高人帮忙解决一下。