ASP函数-2个日期格式转换函数
发布时间：2022-01-09 05:15:55 所属栏目：Asp教程 来源：互联网
导读：将日期格式化为 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 （编辑：应用网_常德站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
