数字の日付を通常の日付に変換する

＜分類：値変換＞
＜使用例：数字の日付を通常の日付に変換する 20180728 → 2018/07/28＞
＜プログラム例＞

Sub 使用例()
    Dim d As String
    Dim s As String
    
    d = "20180728"
    s = 共通_cov_date_9d(d)

    If s <> "" Then
       MsgBox (d & " を " & s & " に変換しました")
    End If
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