文字列の日付から当年(年)を表示する

<分類:値変換>
<使用例:文字列の日付(20190324)から年(2019)を表示する>
<プログラム例>

Sub 使用例()
   Dim date_moji As String
   Dim rtn_date As Date
   Dim rtn1 As String

   date_moji = "20190324"
   rtn_date = 共通_cov_date_9d(date_moji)
   rtn1 = (Year(rtn_date))

   MsgBox ("文字列の日付の年は" & rtn1 & "年です")

End Sub


Function 共通_cov_date_9d(p1 As String) As Date
    Dim d As Date
    d = Left(p1, 4) & "/" & Mid(p1, 5, 2) & "/" & Right(p1, 2)
    共通_cov_date_9d = (Format(d, "yyyy/mm/dd"))
End Function