Asp classic 用'填充月份；0'；

这是我的代码：

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

如果FinalMonth=“”或FinalYear=“”则
FinalMonth=月份（现在（））
FinalYear=年份（现在（））
如果结束
选择案例（最后一个月）
案件“01”、“03”、“05”、“07”、“08”、“10”、“12”
FinalDay=“31”
案件“04”、“06”、“09”、“11”
FinalDay=“30”
案例“02”
如果（（最终EAR Mod 4）0），则
FinalDay=“28”
其他的
FinalDay=“29”
如果结束
结束选择

我想将我的月份设置为数字1（一月）之前的0，最后设置为月份01。我该怎么做呢？

你可以

如果FinalMonth=“”或FinalYear=“”则
FinalMonth=月份（现在（））
FinalYear=年份（现在（））
如果结束
'获取月的最后一天-添加1个月，然后减去1天
最后一天=天（日期序列（最后一个月，最后一个月+1,1）-1）
“pad月
如果（最后一个月<10），则最后一个月=“0”&最后一个月

这个怎么样

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

--

产出：10-02-2018