【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