如何在VBA（outlook 2010）中获取工作周和日编号？

Question

我们使用Outlook发送每日电子邮件，其中包含WW.D格式的工作周和日。我们的工作周从星期一开始，所以今天就像50.2我如何使用VBA添加它？

Sub MakeItem()
    Dim objMail As MailItem   

    Set newItem = Application.CreateItemFromTemplate("C:\Users\Update.oft")
    ' Work week number
    WW = 50.2

    ' Setup Subject replacing the <SHIFT>
    newItem.Subject = Replace("<WorkWeek> Shift Passdown ", "<WorkWeek>", WW)
    newItem.Display

    Set newItem = Nothing
End Sub

Answer 1

试试这个：

WW = Format(Now, "ww") & "." & Weekday(Now, vbMonday)

“Format”函数返回一个字符串中的表达式，该字符串使用提供的“format”参数格式化（在这种情况下为ww，返回一年中的一周），Weekday()函数返回编号为星期几，其中第一天是VBDayOfWeek枚举，作为第二个参数提供（在这种情况下为vbMonday）。