文字列の日付から当月何回目の何曜日かを表示する

<分類:値変換> <使用例:文字列の日付(20190324)から当月何回目の何曜日か(日4)を表示する> <プログラム例> Sub 使用例() Dim date_moji As String Dim rtn1 As String date_moji = "20190324" rtn1 = 共通_文字列の日付から当月何回目の何曜日(date_moji) MsgBox ("文字列の日付(" & date_moji & ")は当月" & Righ…