ASP函数-2个日期格式转换函数
发布时间:2022-01-08 15:47 所属栏目:120 来源:互联网
导读:将日期格式化为 RFC822 格式 Function DateToRFC822(byVal dtaVal) Dim strCurLocale : strCurLocale = GetLocale() SetLocale(en-gb) dtaVal = CDate(dtaVal) DateToRFC822 = WeekdayName(Weekday(dtaVal),True), _ Right(0Day(dtaVal),2) _ MonthName(Month
将日期格式化为 RFC822 格式 Function DateToRFC822(byVal dtaVal) Dim strCurLocale : strCurLocale = GetLocale() SetLocale("en-gb") dtaVal = CDate(dtaVal) DateToRFC822 = WeekdayName(Weekday(dtaVal),True)&", "& _ Right("0"&Day(dtaVal),2)&" "& _ MonthName(Month(dtaVal),True)&" "& _ Year(dtaVal)&" "& _ Right("0"&Hour(dtaVal),2)&":"& _ Right("0"&Minute(dtaVal),2)&":"& _ Right("0"&Second(dtaVal),2)&" "& _ " +0800" SetLocale(strCurLocale) End Function 类似Gmail的中文日期格式(作者:Loveyuki) Function DateToStr(DateTime) Dim DateD,DateM,DateY DateD=Int(Day(Now()))-Int(Day(DateTime)) DateM=Month(Now())-Month(DateTime) DateY=Year(Now())-Year(DateTime) If DateD=0 And DateM=0 And DateY=0 Then DateTime=Hour(DateTime)&":"&Minute(DateTime) ElseIf DateY=0 Then DateTime=Month(DateTime)&"月"&Day(DateTime)&"日" Else DateTime=Year(DateTime)&"-"&Month(DateTime)&"-"&Day(DateTime) End If DateToStr=DateTime End Function (编辑:ASP站长网) |
相关内容
网友评论
推荐文章
热点阅读