您正在使用IPV4(18.205.176.39)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
深圳小产权房       [公益]文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】热门云产品首单特惠秒杀,2核2G云服务器45元/年      
[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
2022年 儿童节 15
2022年 端午节 17
2023年 元 旦 229
2023年 春 节 250
 
本类新增
本类热门文章
您现在的位置:首页 >> ASP/ASP.net >> 内容
ASP常用日期格式化函数 FormatDate()
内容摘要: %'功能:多功能日期格式化函数FunctionFormatDate(sDateTime,sReallyDo)DimsJorkinsJorkin=GetLocale()IfNotIsDate(sDateTime)ThensDateTime=Now()sDateTime=CDate(sDateTime)SelectCaseUCase(sReallyDo'')Ca......
<%

'功能:多功能日期格式化函数

FunctionFormatDate(sDateTime,sReallyDo)

DimsJorkin

sJorkin=GetLocale()

IfNotIsDate(sDateTime)ThensDateTime=Now()

sDateTime=CDate(sDateTime)

SelectCaseUCase(sReallyDo&"")

Case"0","1","2","3","4"

FormatDate=FormatDateTime(sDateTime,sReallyDo)

Case"00"

FormatDate=FormatDate(sDateTime,"YYYY-MM-DDhh: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"为时区.

FormatDate=FormatDate(sDateTime,"YYYY-MM-DDThh:mm:ss.000+08:00")

Case"RFC822","RSS","FEED"'//RFC822格式,一般用于RSS,"+0800"为时区.

SetLocale("en-gb")

FormatDate=FormatDate(sDateTime,"ew,DDeMMYYYYhh:mm:ss+0800")

SetLocale(sJorkin)

Case"RND","RAND","RANDOMIZE"'//随机字符串

Randomize

sJorkin=Rnd()

FormatDate=FormatDate(sDateTime,"YYYYMMDDhhmmss")&_

Fix((9*10^6-1)*sJorkin)+10^6

CaseElse

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))

IfInStr(1,FormatDate,"EW",1)>0Then

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))

EndIf

IfInStr(1,FormatDate,"EMM",1)>0Then

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))

EndIf

EndSelect

EndFunction

%>

用法如下:

<%

'将日期格式化为ISO8601格式

Response.Write(FormatDate("2008-03-0608:03:06","SITEMAP"))

'将日期格式化为RFC822格式

Response.Write(FormatDate("2008-03-0608:03:06","RSS"))

'将日期格式化为(英星期,英月/日/年)

Response.Write(FormatDate(Now(),"eW,EMM/DD/YYYY"))

'将生成一个以年月日时分秒随机数的字符串

Response.Write(FormatDate(Now(),"RND"))

%>

上一篇:用asp实现批量删除bak文件 下一篇:记录集内随机取记录的代码
发布日期:2022/4/26
手机扫二维码直达本页
发布时间:13:42:26
点击:249
录入:齐天大圣
相关文章
Baidu

YiJiaCMS 6.2.1.220509(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
Copyright©2000-2022