論壇里又有人問起日期怎樣格式化為:2004-08-09 05:02:20這樣的格式:于是寫了一個左(右)對齊的函數.這函數等價于.NET里String對象的PadLeft和PadRight函數
Function PadLeft(Value,Length,sChar)
Dim strText,I
strText = String(Length,sChar)
strText = strText Value
LeftPad = Right(strText,Length)
End Function
改一下最下面則為這樣:
Function PadRight(Value,Length,sChar)
Dim strText,I
strText = String(Length,sChar)
strText = Value strText
LeftPad = Left(strText,Length)
End Function
使用例子:日期顯示
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")
萬能時間補位代碼
Public Function ForMatDate(DateAndTime, Para) '格式化日期(日期時間,格式)
Dim Y, M, D, H, F, S
IF Not ISNumeric(Para) Or Not ISDate(DateAndTime) Then Exit Function
Y = CStr(Year(DateAndTime))
M = CStr(Month(DateAndTime)):IF Len(M) = 1 Then M = "0" M
D = CStr(Day(DateAndTime)):IF Len(D) = 1 Then D = "0" D
H = CStr(Hour(DateAndTime)):IF Len(H) = 1 Then H = "0" H
F = CStr(Minute(DateAndTime)):IF Len(F) = 1 Then F = "0" F
S = CStr(Second(DateAndTime)):IF Len(S) = 1 Then S = "0" S
Select Case Para
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
Case Else
ForMatDate = DateAndTime
End Select
End Function
Response.Write ForMatDate(Now,"2")
asp一段自動補位的函數
function formatsn(getnum,getbit)
dim formatsnnum,formatsnpre,formatsnj
formatsnnum = getbit – len(getnum)
for formatsnj = 1 to formatsnnum
formatsnpre = formatsnpre "0"
next
formatsn = formatsnpre getnum
end function
使用方法
formatsn(getnum,getbit)
getnum 計數
getbit 共幾位
到此這篇關于ASP中實現字符部位類似.NET里String對象的PadLeft和PadRight函數的文章就介紹到這了,更多相關asp PadLeft和PadRight內容請搜索腳本之家以前的文章或繼續瀏覽下面的相關文章希望大家以后多多支持腳本之家！
