ASP函数-2个日期格式转换函数

发布时间：2022-01-08 16:51:06 所属栏目：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

（编辑：ASP站长）

【免责声明】本站内容转载自互联网，其相关言论仅代表作者个人观点绝非权威，不代表本站立场。如您发现内容存在版权问题，请提交相关链接至邮箱：bqsm@foxmail.com，我们将及时予以处理。

一个不错的有关mysql和	多功能吸尘器买哪种品
首发649元！Redmi 10A	迷你吸尘器怎样迷你吸