【ASP】設定長度字串格式
'設定固定長度格式，不足長度前面補0 Function Format (Expression, sFormat) Dim exLen, s1, s2 s1 = Len(Expression) s2 = Len(sFormat) If s1 < s2 Then exLen = s2 - s1 Format = String(exLen, Left(sFormat, 1)) & Expression Else Format = Right(Expression, s2) End If End Function '以民國表示今天日期 response.write Format (Year(Now) - 1911, "000") & "/" & Format (Month(Now), "00") & "/" & Format (Day(Now), "00") => 103/01/15 '補足四位數，不足前面補0 response.write Format (687, "0000") => 0687 PS：另外一種寫法針對 日期格式 yyyy/MM/dd