免费CHAT GPT-http://chat.winvvv.com欢迎使用

ASP中实现字符部位类似.NET里String对象的PadLeft和PadRight函数开咖啡店日入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")

防护服未成年人性侵维权难