ASP中实现字符部位类似.NET里String对象的PadLeft和PadRight函数(asp string转int)快来看

随心笔谈3个月前发布 admin
215 00
🌐 经济型:买域名、轻量云服务器、用途:游戏 网站等 《腾讯云》特点:特价机便宜 适合初学者用 点我优惠购买
🚀 拓展型:买域名、轻量云服务器、用途:游戏 网站等 《阿里云》特点:中档服务器便宜 域名备案事多 点我优惠购买
🛡️ 稳定型:买域名、轻量云服务器、用途:游戏 网站等 《西部数码》 特点:比上两家略贵但是稳定性超好事也少 点我优惠购买

文章摘要

这篇文章介绍了自定义的VBA函数ForMatDate,用于格式化日期时间。该函数接受两个参数:DateAndTime(日期时间)和Para(格式参数)。Para决定了输出的格式,例如显示到分钟、小时或不显示时间等。文章详细展示了函数的逻辑,包括对输入参数的合法性检查、日期时间的拆分以及根据不同格式参数生成相应的输出。例如,当Para为0时,输出格式为“年-月-日 H:F:S”,而Para为2时则仅显示“年-月-日”。文章还提到,该函数通过CStr语句将数值转换为字符串,并使用If语句对结果进行填充,确保输出格式正确。整体来看,文章重点介绍了函数的实现逻辑和使用场景。


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

© 版权声明

相关文章