Vb.net 如何在VB（outlook 2010）中获取工作周和工作日数？

我们每天使用Outlook发送一封电子邮件，其中包含WW.D格式的工作周和工作日。我们的工作周从周一开始，所以今天是50。2如何使用VB编程添加此内容

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

子生成项（）
Dim objMail作为邮件项
Set newItem=Application.CreateItemFromTemplate（“C:\Users\Update.oft”）
“工作周数
WW=50.2
'设置主题替换
newItem.Subject=Replace（“Shift Passdown”，“”，WW）
newItem.Display
Set newItem=Nothing
端接头

您可以这样做：

Dim cal As New GregorianCalendar()
Dim week As Integer = cal.GetWeekOfYear(Date.Now, CalendarWeekRule.FirstFullWeek, DayOfWeek.Monday)
Dim day As Integer = cal.GetDayOfWeek(Date.Now)
Dim workDayId As String = String.Format("{0:00}.{1}", week, day)

---

您可以这样做：

Dim cal As New GregorianCalendar()
Dim week As Integer = cal.GetWeekOfYear(Date.Now, CalendarWeekRule.FirstFullWeek, DayOfWeek.Monday)
Dim day As Integer = cal.GetDayOfWeek(Date.Now)
Dim workDayId As String = String.Format("{0:00}.{1}", week, day)

---

这在outlook版本的VB中不起作用。我得到一个错误“编译错误预期结束的声明”为所有的行。哦。嗯，您将这个问题标记为VB.NET，并且没有指定您的问题与VBA相关的任何地方。我的解决方案仅适用于VB.NET。它在VBA中不起作用，VBA更类似于VB6和VBScript。我建议您重新询问您的问题，但这次将其适当地标记为VBA而不是VB.NET。这在outlook版本的VB中不起作用。我得到一个错误“编译错误预期结束的声明”为所有的行。哦。嗯，您将这个问题标记为VB.NET，并且没有指定您的问题与VBA相关的任何地方。我的解决方案仅适用于VB.NET。它在VBA中不起作用，VBA更类似于VB6和VBScript。我建议您重新询问您的问题，但这次将其适当地标记为VBA，而不是VB.NET。