ASP中实现字符部位类似.NET里String对象的PadLeft和PadRight函数
论坛里又有人问起日期怎样格式化为:2004-08-0905:02:20这样的格式:于是写了一个左(右)对齐的函数.这函数等价于.NET里String对象的PadLeft和PadRight函数
FunctionPadLeft(Value,Length,sChar) DimstrText,I strText=String(Length,sChar) strText=strText&Value LeftPad=Right(strText,Length) EndFunction
改一下最下面则为这样:
FunctionPadRight(Value,Length,sChar) DimstrText,I strText=String(Length,sChar) strText=Value&strText LeftPad=Left(strText,Length) EndFunction
使用例子:日期显示
AA=year(now)&"-"&PadLeft(month(now),2,"0")&"-"&PadLeft(Day(now),2,"0")&""&PadLeft(Hour(now),2,"0")&":"&PadLeft(Minute(now),2,"0")&":"&PadLeft(Second(now),2,"0")
万能时间补位代码
PublicFunctionForMatDate(DateAndTime,Para)'格式化日期(日期时间,格式) DimY,M,D,H,F,S IFNotISNumeric(Para)OrNotISDate(DateAndTime)ThenExitFunction Y=CStr(Year(DateAndTime)) M=CStr(Month(DateAndTime)):IFLen(M)=1ThenM="0"&M D=CStr(Day(DateAndTime)):IFLen(D)=1ThenD="0"&D H=CStr(Hour(DateAndTime)):IFLen(H)=1ThenH="0"&H F=CStr(Minute(DateAndTime)):IFLen(F)=1ThenF="0"&F S=CStr(Second(DateAndTime)):IFLen(S)=1ThenS="0"&S SelectCasePara Case"0" ForMatDate=Y&"-"&M&"-"&D&""&H&":"&F&":"&S Case"1" ForMatDate=Y&"-"&M&"-"&D&""&H&":"&F Case"2" ForMatDate=Y&"-"&M&"-"&D Case"3" ForMatDate=Y&"/"&M&"/"&D Case"4" ForMatDate=Y&"年"&M&"月"&D&"日" Case"5" ForMatDate=M&"-"&D&""&H&":"&F Case"6" ForMatDate=M&"/"&D Case"7" ForMatDate=M&"月"&D&"日" Case"8" ForMatDate=Y&"年"&M&"月" Case"9" ForMatDate=Y&"-"&M Case"10" ForMatDate=Y&"/"&M Case"11" ForMatDate=right(Y,2)&"-"&M&"-"&D&""&H&":"&F Case"12" ForMatDate=right(Y,2)&"-"&M&"-"&D Case"13" ForMatDate=M&"-"&D CaseElse ForMatDate=DateAndTime EndSelect EndFunction Response.WriteForMatDate(Now,"2")
asp一段自动补位的函数
functionformatsn(getnum,getbit) dimformatsnnum,formatsnpre,formatsnj formatsnnum=getbit–len(getnum) forformatsnj=1toformatsnnum formatsnpre=formatsnpre&"0" next formatsn=formatsnpre&getnum endfunction
使用方法
formatsn(getnum,getbit)
getnum计数
getbit共几位
到此这篇关于ASP中实现字符部位类似.NET里String对象的PadLeft和PadRight函数的文章就介绍到这了,更多相关aspPadLeft和PadRight内容请搜索毛票票以前的文章或继续浏览下面的相关文章希望大家以后多多支持毛票票！
声明：本文内容来源于网络，版权归原作者所有，内容由互联网用户自发贡献自行上传，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任。如果您发现有涉嫌版权的内容，欢迎发送邮件至：czq8825#qq.com（发邮件时，请将#更换为@）进行举报，并提供相关证据，一经查实，本站将立刻删除涉嫌侵权内容。