如何重新格式化显示的日期？

Question

我正在保存电子邮件和附件。

我需要弄清楚如何重新格式化我的代码要显示的默认日期。目前，结果为mm / dd / yyyy。

此日期将在保存电子邮件或附件的文件路径中。我需要使用yyyy-mm-dd格式，因为我不能在文件路径中包含斜杠。

我要学习的测试代码如下：

Sub testdate()
'Get Friday's Date
Dim NextFriday As Date
NextFriday = Date + 8 - Weekday(Date, vbFriday)

'Popup
MsgBox "Next Friday's Date is " & NextFriday
End Sub

Answer 1

考虑使用Format$：

Sub testdate()
    'Get Friday's Date
    Dim NextFriday As Date
    NextFriday = Date + 8 - Weekday(Date, vbFriday)

    'Popup
    MsgBox "Next Friday's Date is " & Format$(NextFriday, "yyyy-mm-dd")
End Sub