Asp 日期格式化问题（asp设置日历的控件）深度揭秘

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

文章摘要

文章介绍了自定义的VBA函数`formatDate`，用于将日期和时间字段转换为特定的字符串格式。该函数接受两个参数`t`（日期时间值）和`ftype`（格式类型），并根据不同的`ftype`返回对应的格式化字符串。文章详细描述了每个`ftype`的格式要求，包括： 1. **`1`（yyyy-mm-dd）**：完整的年、月、日格式，年、月、日不足一位时前面补零。2. **`2`（yy-mm-dd）**：年份缩短为两位，不足一位时补零。3. **`3`（mm-dd）**：只保留月份和日期，不足一位时补零。4. **`4`（yyyy-mm-dd hh:mm:ss）**：完整的时间格式，时间不足一位时补零。5. **`5`（hh:mm:ss）**：简洁的时间格式。6. **`6`（yyyy年mm月dd日）**：中文格式，年、月、日不足一位时补零。7. **`7`（yyyymmdd）**：连续的年、月、日，不足一位时补零。8. **`8`（yyyymmddhhmmss）**：连续的年、月、日和时间，不足一位时补零。文章还提到，函数通过`select case`语句根据`ftype`选择合适的格式化方式，并在必要时补充零以确保字段长度符合要求。该函数适用于需要规范时间格式化需求的场景，如数据处理、报表生成等。

‘转换时间时间格式化
Function formatDate(Byval t,Byval ftype)
dim y, m, d, h, mi, s
formatDate=””
If IsDate(t)=False Then Exit Function
y=cstr(year(t))
m=cstr(month(t))
If len(m)=1 Then m=”0″ & m
d=cstr(day(t))
If len(d)=1 Then d=”0″ & d
h=cstr(hour(t))
If len(h)=1 Then h=”0″ & h
mi=cstr(minute(t))
If len(mi)=1 Then mi=”0″ & mi
s=cstr(second(t))
If len(s)=1 Then s=”0″ & s
select case cint(ftype)
case 1
‘ yyyy-mm-dd
formatDate=y & “-” & m & “-” & d
case 2
‘ yy-mm-dd
formatDate=right(y,2) & “-” & m & “-” & d
case 3
‘ mm-dd
formatDate=m & “-” & d
case 4
‘ yyyy-mm-dd hh:mm:ss
formatDate=y & “-” & m & “-” & d & ” ” & h & “:” & mi & “:” & s
case 5
‘ hh:mm:ss
formatDate=h & “:” & mi & “:” & s
case 6
‘ yyyy年mm月dd日
formatDate=y & “年” & m & “月” & d & “日”
case 7
‘ yyyymmdd
formatDate=y & m & d
case 8
‘yyyymmddhhmmss
formatDate=y & m & d & h & mi & s
end select
End Function