用'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（1月）之前将我的月份设置为0，最后在第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