在 Outlook 中格式化日期时，有没有办法强制使用区域设置？

Question

我想知道是否有与"[$-409]mmmm yyyy" 等效的 Outlook VBA，它可以让 Excel 在您想要的语言环境中显示日期。
Format(Date, "[$-409]mmmm yyyy") 只是默默地被忽略，只显示在系统语言环境中（我需要在两个不同的地方使用 2 个不同的语言环境，因此不能选择更改系统语言环境）。

编辑：我的问题实际上与this one 几乎是重复的，而且在应用程序 Outlook 或 PowerPoint 中似乎都不可能。

Answer 1

对不起，我没有在评论中明确表达我的观点。

当您在格式中包含“$-409”时，是您决定需要美国格式日期。 Excel 可能会帮助您创建美国格式的日期，但它不会帮助您决定需要哪种格式的日期。

您必须确定 Jesse 得到一个美国约会对象，John 得到一个英国约会对象，而 Jacque 得到一个法国约会对象。一旦您做出决定，VB 将在格式化日期时接受国家代码，但我不相信 VBA 提供任何此类功能。由于您只有两个语言环境，我建议您自己进行转换。

Option Explicit
Sub Demo()

 Dim Prompt As String
 Dim Recipient As String
 Dim MonthsFrench() As Variant
 Dim Today As Date

 Today = Now()
 MonthsFrench = VBA.Array("", "Janvier", "Févier", "Mars", "Avril", "Mai", "Juin", _
                          "Juillet", "Auguste", "Septembre", "Octobre", "Novembre", "Décembre")
 ' I have used VBA.Array so lower bound is zero regardless of option base setting

 Debug.Print Format(Today, "d mmmm yyyy")
 Debug.Print Format(Today, "mmmm d, yyyy")
 Debug.Print Day(Today) & " " & MonthsFrench(Month(Today)) & " " & Year(Today)

 Do While True
   If Recipient = "" Then
     Prompt = "Recipient name?"
   Else
     Prompt = "Last recipient, " & Recipient & " preferred date is "
     Select Case Recipient
       Case "Jesse"
         Prompt = Prompt & Format(Today, "mmmm d, yyyy")
       Case "John"
         Prompt = Prompt & Format(Today, "d mmmm yyyy")
       Case "Jacque"
         Prompt = Prompt & Day(Today) & " " & MonthsFrench(Month(Today)) & " " & Year(Today)
       Case Else
         Prompt = "Last recipient not known"
     End Select
     Prompt = Prompt & vbLf & "Next recipient name?"
   End If
   Recipient = InputBox(Prompt)
   If Recipient = "" Then
     Exit Sub
   End If
 Loop

End Sub