asp-classic - 用“0”填充月份

Question

这是我的代码：

If FinalMonth = "" OR FinalYear = ""  Then
    FinalMonth = Month(Now())
    FinalYear = Year(Now())
End If

Select Case(FinalMonth)
    Case "01","03","05","07","08","10","12"
        FinalDay = "31"
    Case "04","06","09","11"
        FinalDay = "30"
    Case "02"
        If ( (FinalYear Mod 4) <> 0 ) Then
            FinalDay = "28"
        Else
            FinalDay = "29"
        End If
End Select

我想在每个示例的数字 1（一月）之前将我的月份设置为 0，最后设置为 Month 01。请问我该怎么做？

Answer 1

你可以;

If FinalMonth = "" OR FinalYear = ""  Then
    FinalMonth = Month(Now())
    FinalYear = Year(Now())
End If

'get last day of month - add 1 month then deduct 1 day
FinalDay = Day(DateSerial(FinalYear, FinalMonth + 1, 1) - 1)

'pad month
if (FinalMonth < 10) then FinalMonth = "0" & FinalMonth 

Answer 2

那这个呢 ？

<%=Right("0" & Day(now()), 2)%>-<%=Right("0" & Month(now()), 2)%>-<%=Year(now())%>

输出 : 10-02-2018