杨幂精品国产福利在线_欧美日韩视频高清一区免费_91超碰国产在线_手机免费看不卡顿av片_日韩无码av一区二区_色一色综合婷婷成人网站_国产91福利在线精品专区_国产清纯白嫩美女在线播放_500福利视频导航_一级无码电影免费

ASP時間函數(shù):標(biāo)準(zhǔn)時間及UNIX時間戳相互轉(zhuǎn)換及時間格式化

把標(biāo)準(zhǔn)時間轉(zhuǎn)換為UNIX時間戳:

'把標(biāo)準(zhǔn)時間轉(zhuǎn)換為UNIX時間戳
Function ToUnixTime(strTime, intTimeZone)
    If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now
    If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = 0
    ToUnixTime = DateAdd("h",-intTimeZone,strTime)
    ToUnixTime = DateDiff("s","1970-01-01 00:00:00", ToUnixTime)
End Function
'示例:ToUnixTime("2009-12-05 12:52:25", +8),返回值為1259988745 
'response.Write ToUnixTime("2009-12-05 12:52:25", +8)

把UNIX時間戳轉(zhuǎn)換為標(biāo)準(zhǔn)時間:

'把UNIX時間戳轉(zhuǎn)換為標(biāo)準(zhǔn)時間
Function FromUnixTime(intTime, intTimeZone)
    If IsEmpty(intTime) or Not IsNumeric(intTime) Then
        FromUnixTime = Now()
        Exit Function
    End If         
    If IsEmpty(intTime) or Not IsNumeric(intTimeZone) Then intTimeZone = 0
    FromUnixTime = DateAdd("s", intTime, "1970-01-01 00:00:00")
    FromUnixTime = DateAdd("h", intTimeZone, FromUnixTime)
End Function
'示例:FromUnixTime("1259988745", +8),返回值2009-12-05 12:52:25 
'response.Write FromUnixTime("1259988745", +8)

多功能日期格式化函數(shù):

<%
'功能:多功能日期格式化函數(shù)
'來源:http://jorkin.reallydo.com/article.asp?id=477

Function FormatDate(sDateTime, sReallyDo)
 Dim sJorkin
 sJorkin = GetLocale()
 If Not IsDate(sDateTime) Then sDateTime = Now()
 sDateTime = CDate(sDateTime)
 Select Case UCase(sReallyDo & "")
 Case "0", "1", "2", "3", "4"
  FormatDate = FormatDateTime(sDateTime, sReallyDo)
 Case "00"
  FormatDate = FormatDate(sDateTime, "YYYY-MM-DD hh:mm:ss")
 Case "01"
  FormatDate = FormatDate(sDateTime, "YYYY年MM月DD日")
 Case "02"
  FormatDate = FormatDate(sDateTime, "YYYY-MM-DD")
 Case "03"
  FormatDate = FormatDate(sDateTime, "hh:mm:ss")
 Case "04"
  FormatDate = FormatDate(sDateTime, "hh:mm")
 Case "ISO8601", "GOOGLE", "SITEMAP" '//ISO8601格式, 一般用于GoogleSiteMap, "+08:00" 為時區(qū).
  FormatDate = FormatDate(sDateTime, "YYYY-MM-DDThh:mm:ss.000+08:00")
 Case "RFC822", "RSS", "FEED" '//RFC822格式, 一般用于RSS, "+0800" 為時區(qū).
  SetLocale("en-gb")
  FormatDate = FormatDate(sDateTime, "ew, DD eMM YYYY hh:mm:ss +0800")
  SetLocale(sJorkin)
 Case "RND", "RAND", "RANDOMIZE" '//隨機(jī)字符串
  Randomize
  sJorkin = Rnd()
  FormatDate = FormatDate(sDateTime, "YYYYMMDDhhmmss") & _
    Fix((9 * 10^6 -1) * sJorkin) + 10^6
 Case Else
  FormatDate = sReallyDo
  FormatDate = Replace(FormatDate, "YYYY", Year(sDateTime))
  FormatDate = Replace(FormatDate, "DD", Right("0" & Day(sDateTime), 2))
  FormatDate = Replace(FormatDate, "hh", Right("0" & Hour(sDateTime), 2))
  FormatDate = Replace(FormatDate, "mm", Right("0" & Minute(sDateTime), 2))
  FormatDate = Replace(FormatDate, "ss", Right("0" & Second(sDateTime), 2))
  FormatDate = Replace(FormatDate, "YY", Right(Year(sDateTime), 2))
  FormatDate = Replace(FormatDate, "D", Day(sDateTime))
  FormatDate = Replace(FormatDate, "h", Hour(sDateTime))
  FormatDate = Replace(FormatDate, "m", Minute(sDateTime))
  FormatDate = Replace(FormatDate, "s", Second(sDateTime))
  If InStr(1, FormatDate, "EW", 1) > 0 Then
  SetLocale("en-gb")
  FormatDate = Replace(FormatDate, "EW", UCase(WeekdayName(Weekday(sDateTime), False)))
  FormatDate = Replace(FormatDate, "eW", WeekdayName(Weekday(sDateTime), False))
  FormatDate = Replace(FormatDate, "Ew", UCase(WeekdayName(Weekday(sDateTime), True)))
  FormatDate = Replace(FormatDate, "ew", WeekdayName(Weekday(sDateTime), True))
  SetLocale(sJorkin)
  Else
  FormatDate = Replace(FormatDate, "W", WeekdayName(Weekday(sDateTime), False))
  FormatDate = Replace(FormatDate, "w", WeekdayName(Weekday(sDateTime), True))
  End If
  If InStr(1, FormatDate, "EMM", 1) > 0 Then
  SetLocale("en-gb")
  FormatDate = Replace(FormatDate, "EMM", MonthName(Month(sDateTime), False))
  FormatDate = Replace(FormatDate, "eMM", MonthName(Month(sDateTime), True))
  SetLocale(sJorkin)
  Else
  FormatDate = Replace(FormatDate, "MM", Right("0" & Month(sDateTime), 2))
  FormatDate = Replace(FormatDate, "M", Month(sDateTime))
  End If
 End Select
End Function

'將日期格式化為ISO8601格式
Response.Write(FormatDate("2008-03-06 08:03:06", "SITEMAP"))
'將日期格式化為RFC822格式
Response.Write(FormatDate("2008-03-06 08:03:06", "RSS"))

'將日期格式化為(英星期, 英月/日/年)
Response.Write(FormatDate(Now(), "eW, EMM/DD/YYYY"))

'將生成一個以年月日時分秒隨機(jī)數(shù)的字符串
Response.Write(FormatDate(Now(), "RND"))
%>
點(diǎn)贊 0 分享
本文為「本站原創(chuàng)」,未經(jīng)我們許可,嚴(yán)謹(jǐn)任何人或單位以任何形式轉(zhuǎn)載或刊載本文章,我們保留依法追究侵權(quán)的權(quán)力!

微信聯(lián)系我們

億百天技術(shù)客戶服務(wù)

使用微信掃一掃

昵稱:億百天技術(shù)

公司:湖北億百天信息技術(shù)有限公司

電話:027-88773336

手機(jī):15342213852

郵箱:serviceebaitian.cn

相關(guān)欄目

加載中...

成為會員立享特權(quán)

立即注冊億百天公司會員,在線聯(lián)系客服立即享受會員特權(quán),還有豐厚禮品贈送;簽約時可以享受特低折扣優(yōu)惠,期待您的加入!

客服熱線:400-840-3336

我們?yōu)槟峁﹤€性化的售前咨詢服務(wù),及全面的技術(shù)售后服務(wù)。