VBA/月と曜日を英語表記に変換するサンプルコードの編集

#navi(../)
* VBAで月と曜日を英語表記に変換する [#h21e012b]
システムのロケールによりますが、本記事を読まれる方は日本語ロケールでWindowsを使っていると思います。~
MonthName, WeekdayNameを使えば簡単に日本語表記(和名)の月と曜日名を取得できます。~
しかし、英語表記が取得できない…~
''Format''関数を使うと簡単に月と曜日の英語表記が取得できます。

#contents
#htmlinsert(office_ads_top.html)

* 関連サイト [#ufd1b6a4]
-[[Microsoft Learn: Format 関数 (Visual Basic for Applications)>https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/format-function-visual-basic-for-applications]]
-[[Microsoft Learn: MonthName 関数 (Visual Basic for Applications)>https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/monthname-function]]
-[[Microsoft Learn: WeekdayName 関数 (Visual Basic for Applications)>https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/weekdayname-function]]

* 動作確認環境 [#re89de07]
- Microsoft® Excel® for Microsoft 365 MSO (バージョン 2310 ビルド 16.0.16924.20054) 32 ビット 
- Windows 10 22H2

* 英語表記の月・曜日を取得する [#i0b9dda4]
英語表記の月・曜日を取得する場合、Format関数を使うと簡単に取得できます。~
完全な月・曜日の名称と省略形の月・曜日の名称を取得できます。

* VBAサンプルコードと実行結果 [#qbb75141]
以下、VBAサンプルコードと実行結果のキャプチャになります。

** サンプルコード [#c76db4d9]
 Option Explicit
 
 Sub Sample()
     Dim longWeekName As String, _
         shortWeekName As String, _
         longMonthName As String, _
         shortMonthName As String
         
     Dim todayDate As Date
     
     todayDate = Date
     
     longWeekName = Format(todayDate, "dddd")
     shortWeekName = Format(todayDate, "ddd")
     
     longMonthName = Format(todayDate, "mmmm")
     shortMonthName = Format(todayDate, "mmm")
     
     MsgBox "Today: " & todayDate & vbCrLf & _
            "dddd: " & longWeekName & vbCrLf & _
            "ddd: " & shortWeekName & vbCrLf & _
            "mmmm:" & longMonthName & vbCrLf & _
            "mmm: " & shortMonthName, _
            vbOKOnly, _
            "Format"
         
 End Sub

** 実行結果 [#f505e1a3]

#ref(01.png)

以上、VBAのFormat関数を使って、月と曜日の英語表記を取得するサンプルコードでした。

タイムスタンプを変更しない