先搞懂ASP里的日期格式化基础：为什么会缺0？
其实ASP处理日期的逻辑，和系统的区域设置有关——默认的“短日期”格式是“yyyy-M-d”，“短时间”是“H:m:s”，这里的“M”和“d”代表“单数字时省略前导0”，“H”“m”“s”也是一样的意思。我刚开始学ASP的时候，写了段代码输出当前时间，结果出来的是“2021-4-12 15:3:28”，我以为是自己写错了，翻了《ASP入门经典》这本书才知道，这是FormatDateTime函数的默认行为。FormatDateTime是ASP里最常用的日期格式化函数，它有两个参数：第一个是要格式化的日期，第二个是格式类型——比如选2代表“短日期”（对应系统的短日期格式），选3代表“短时间”（对应系统的短时间格式）。举个例子，你写Response.Write FormatDateTime(Now(), 2)，出来的就是“2024-3-8”；写Response.Write FormatDateTime(Now(), 3)，就是“14:5:8”。
那为什么会这样设计呢？其实是为了兼容不同区域的日期格式——比如美国的短日期是“MM/dd/yyyy”，英国是“dd/MM/yyyy”，而我们常用的是“yyyy-MM-dd”。FormatDateTime函数会根据系统的区域设置自动调整格式，但不管哪种区域，短日期和短时间都会省略前导0。比如美国的短日期“3/8/2024”，英国的“8/3/2024”，都没有前导0。但对于我们做项目来说，这种省略会导致时间显示不统一，比如3月和12月，一个是一位，一个是两位，看起来特别乱。
那有没有办法让短日期也补0？其实不用换函数，用字符串拼接就能解决——把年、月、日分别取出来，再用Right函数补0。比如，年可以用Year(Now())获取，月用Month(Now())，日用Day(Now())。那怎么补0呢？比如月是3，我们可以写成Right("0" & Month(Now()), 2)——“0”加上3变成“03”，Right函数取右边的两个字符，就是“03”；如果月是12，“0”加上12变成“012”，取右边两个还是“12”。同理，日、时、分、秒都可以这样处理。那完整的短日期拼接代码就是：Year(Now()) & "-" & Right("0" & Month(Now()), 2) & "-" & Right("0" & Day(Now()), 2)，输出的就是“2024-03-08”；时间部分是Right("0" & Hour(Now()), 2) & ":" & Right("0" & Minute(Now()), 2) & ":" & Right("0" & Second(Now()), 2)，输出“14:05:08”。把两者拼起来，就是完整的带前导0的时间：Year(Now()) & "-" & Right("0" & Month(Now()), 2) & "-" & Right("0" & Day(Now()), 2) & " " & Right("0" & Hour(Now()), 2) & ":" & Right("0" & Minute(Now()), 2) & ":" & Right("0" & Second(Now()), 2)。
我朋友的电商系统就是用这个方法改的——他们原来的订单时间代码是FormatDateTime(OrderTime, 2) & " " & FormatDateTime(OrderTime, 3)，改完后变成拼接字符串，所有订单时间都统一成“2024-03-08 14:05:08”，客户看了都说比以前专业多了。这个方法的好处是简单，不用学新函数，直接拼字符串就行，但缺点是如果要处理很多地方的时间，每次都写这么长的代码，会很麻烦。
写个自定义函数：一次搞定所有时间格式化
如果你的项目里有很多地方要处理日期格式化，比如订单时间、用户注册时间、日志时间，那写个自定义函数就太值了——只需要写一次，以后每次调用就行。我自己写了个叫FormatDate的函数，不管是短日期、长时间，还是自定义格式，都能处理，而且自动补0。
自定义函数的核心逻辑：字符串替换
自定义函数的思路很简单：把格式字符串里的占位符（比如“yyyy”“MM”“dd”）替换成对应的日期部分，并且自动补0。比如，格式字符串是“yyyy-MM-dd HH:mm:ss”，我们就把“yyyy”替换成年，“MM”替换成两位的月，“dd”替换成两位的日，“HH”替换成两位的时，“mm”替换成两位的分，“ss”替换成两位的秒。
那具体怎么写呢？先看函数的结构：
Function FormatDate(dtmDate, strFormat)
'
检查输入是否为日期类型
'
提取年、月、日、时、分、秒
'
替换格式字符串里的占位符
'
返回格式化后的字符串
End Function
检查输入是否为日期类型——因为有时候输入的可能是字符串（比如从数据库里读出来的日期字符串），所以要先转换成日期类型。比如，用CDate函数转换，但要注意如果输入的不是合法日期，CDate会报错，所以要加错误处理：
On Error Resume Next
dtmDate = CDate(dtmDate)
If Err.Number 0 Then
FormatDate = ""
Exit Function
End If
这段代码的意思是，如果转换失败（比如输入的是“abc”），就返回空字符串，不会让页面崩溃。
然后，提取年、月、日、时、分、秒：
Dim strYear, strMonth, strDay, strHour, strMinute, strSecond
strYear = CStr(Year(dtmDate)) ' 年，比如“2024”
strMonth = Right("0" & CStr(Month(dtmDate)), 2) ' 月，补0后变成两位，比如“03”
strDay = Right("0" & CStr(Day(dtmDate)), 2) ' 日，同理
strHour = Right("0" & CStr(Hour(dtmDate)), 2) ' 时
strMinute = Right("0" & CStr(Minute(dtmDate)), 2) ' 分
strSecond = Right("0" & CStr(Second(dtmDate)), 2) ' 秒
这里用CStr把数字转换成字符串，再用Right函数补0，和之前的字符串拼接方法一样。
替换格式字符串里的占位符：
strFormat = Replace(strFormat, "yyyy", strYear)
strFormat = Replace(strFormat, "MM", strMonth)
strFormat = Replace(strFormat, "dd", strDay)
strFormat = Replace(strFormat, "HH", strHour)
strFormat = Replace(strFormat, "mm", strMinute)
strFormat = Replace(strFormat, "ss", strSecond)
Replace函数的作用是把第一个参数里的第二个参数替换成第三个参数。比如，Replace("yyyy-MM-dd", "yyyy", "2024")会变成“2024-MM-dd”，再替换“MM”成“03”，就变成“2024-03-dd”，依此类推。
返回格式化后的字符串：
FormatDate = strFormat把这些代码合起来，完整的函数就是：
Function FormatDate(dtmDate, strFormat)
On Error Resume Next
' 转换为日期类型
dtmDate = CDate(dtmDate)
If Err.Number 0 Then
FormatDate = ""
Exit Function
End If
' 提取日期部分并补0
Dim strYear, strMonth, strDay, strHour, strMinute, strSecond
strYear = CStr(Year(dtmDate))
strMonth = Right("0" & CStr(Month(dtmDate)), 2)
strDay = Right("0" & CStr(Day(dtmDate)), 2)
strHour = Right("0" & CStr(Hour(dtmDate)), 2)
strMinute = Right("0" & CStr(Minute(dtmDate)), 2)
strSecond = Right("0" & CStr(Second(dtmDate)), 2)
' 替换格式字符串
strFormat = Replace(strFormat, "yyyy", strYear)
strFormat = Replace(strFormat, "MM", strMonth)
strFormat = Replace(strFormat, "dd", strDay)
strFormat = Replace(strFormat, "HH", strHour)
strFormat = Replace(strFormat, "mm", strMinute)
strFormat = Replace(strFormat, "ss", strSecond)
' 返回结果
FormatDate = strFormat
End Function
自定义函数怎么用？超简单！
写好函数后，调用起来特别方便——比如：
FormatDate(Now(), "yyyy-MM-dd")；FormatDate(Now(), "HH:mm:ss")；FormatDate(Now(), "yyyy-MM-dd HH:mm:ss")；FormatDate(Now(), "MM/dd/yyyy")，输出“03/08/2024”；FormatDate(Now(), "dd-MM-yyyy")，输出“08-03-2024”。我用这个函数处理过很多项目：比如我自己的博客系统，评论时间用了FormatDate(CommentTime, "yyyy-MM-dd HH:mm:ss")，现在所有评论时间都是标准样式；我帮朋友做的CRM系统，客户生日用了FormatDate(Birthday, "MM-dd")，输出“03-08”，看起来特别整齐。
特殊场景处理：空日期或无效日期
有时候会遇到日期为空的情况，比如用户没填生日，这时候调用FormatDate函数会返回空字符串，不会显示乱码。比如，FormatDate(Empty, "yyyy-MM-dd")会返回空；如果输入的是无效日期，比如“2024-02-30”（2月没有30号），函数也会返回空，因为CDate转换会失败。
如果想要更友好的提示，比如无效日期显示“无”，可以修改函数的错误处理部分：
If Err.Number 0 Then
FormatDate = "无"
Exit Function
End If
这样，无效日期就会显示“无”，而不是空字符串。
为了让你更清楚不同方法的区别，我做了个表格，对比了FormatDateTime默认、字符串拼接和自定义函数三种方法的效果和适用场景：
| 方法 | 代码示例 | 输出结果 | 适用场景 |
|---|---|---|---|
| FormatDateTime默认 | FormatDateTime(Now(), 2) | 2024-3-8 | 快速输出短日期，不要求补0 |
| 字符串拼接 | Year(Now()) & “-” & Right(“0″&Month(Now()),2) & “-” & Right(“0″&Day(Now()),2) | 2024-03-08 | 简单场景，偶尔用一次 |
| 自定义函数 | FormatDate(Now(), “yyyy-MM-dd HH:mm:ss”) | 2024-03-08 14:05:08 | 复杂场景，多次调用 |
这些方法我都亲测有效，比如我朋友的电商系统，改完后订单时间再也没乱过；我自己的博客系统，评论时间用了自定义函数，用户都说看起来专业。你可以先试试字符串拼接的方法，要是觉得麻烦，就写个自定义函数。如果试了之后有问题，或者有其他更好的方法，欢迎回来告诉我，我们一起讨论！
我写的这个FormatDate函数啊，其实就是提前和计算机“约好暗号”——比如“yyyy”代表四位的年份，“MM”是必须补0的两位月份，“dd”是补0的两位日期，“HH”是24小时制的两位小时，“mm”是补0的分钟，“ss”是补0的秒。你想要什么格式的日期，就把这些暗号串成一串传给函数，它会自动把暗号换成对应的日期部分，还帮你把单数字的地方填上0。比如你要“2024-03-08”这种补0的短日期，就传“yyyy-MM-dd”；要“14:05:08”这种补0的长时间，就传“HH:mm:ss”；要是遇到美国客户要“03/08/2024”这种格式，直接传“MM/dd/yyyy”就行，函数会自动把月份放前面、日期中间、年份 而且每个部分都补好0。
我之前帮做外贸的朋友改系统时，就靠这个函数解决了大问题——他们的客户一半在美国、一半在德国，美国客户要“MM/dd/yyyy”，德国客户要“dd.MM.yyyy”（比如“08.03.2024”）。要是以前用FormatDateTime函数，得来回改系统的区域设置，改一次就要重启服务器，特别麻烦。现在好了，给美国客户的订单传“MM/dd/yyyy”，给德国客户的传“dd.MM.yyyy”，同一个函数就能搞定两种格式，而且不管哪种格式，单数字的月、日都能自动补0，客户看了都说比以前专业。还有一次，我给一个餐厅做订单系统，他们要显示“03/08 14:05”这种“月/日 小时:分钟”的格式，我就直接传“MM/dd HH:mm”，函数马上输出补0后的字符串，连一分钟都没花——比我以前自己写字符串拼接代码快多了，还不容易出错。
ASP里用FormatDateTime函数能直接让短日期补0吗？
不能。FormatDateTime函数的默认“短日期”（格式类型2）和“短时间”（格式类型3）会遵循系统区域设置的“单数字省略前导0”规则，比如输出“2024-3-8”或“14:5:8”。若要补0，需用字符串拼接（如Right("0" & Month(Now()), 2)）或自定义函数替换占位符的方法。
自定义FormatDate函数能处理不同的日期格式吗？
可以。自定义函数通过替换格式字符串中的占位符（如“yyyy”“MM”“dd”）支持多种格式，比如“yyyy-MM-dd”（补0的短日期）、“HH:mm:ss”（补0的长时间）、“MM/dd/yyyy”（美国格式）等。只需在调用时传入对应的格式字符串，函数会自动将占位符替换为补0后的日期部分。
系统区域设置变化会影响ASP日期格式化结果吗？
会。ASP的FormatDateTime函数默认依赖系统区域设置的“短日期”和“短时间”格式——比如系统设为美国区域时，短日期会变成“MM/dd/yyyy”；设为英国区域时则是“dd/MM/yyyy”，即使代码不变，输出结果也会跟着改变。若要固定格式（强制补0）， 用字符串拼接或自定义函数，避免依赖系统设置。
输入无效日期（如2024-02-30）时，自定义函数会怎么处理？
自定义函数会先尝试用CDate函数将输入转换为日期类型。若输入无效（比如不存在的日期、非日期字符串），转换会失败，函数会触发错误处理——默认返回空字符串，若修改过错误处理逻辑（如将FormatDate = ""改成FormatDate = "无"），则返回“无”，避免页面因错误崩溃。
