ASP函数-2个日期格式转换函数
将日期格式化为 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
- 转载请注明来源:IT学习网 网址:http://www.t086.com/ 向您的朋友推荐此文章
- 特别声明: 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系我们,我们会尽快予以更正。