文字列の日付を数字の日付に変換する

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

Sub 使用例()
    Dim d As String
    Dim s As String
    
    d = "2018/07/28"
    s = 共通_cov_date_d9(d)

    If s <> "" Then
       MsgBox (d & "を " & s & " に変換しました")
    End If
End Sub

Function 共通_cov_date_d9(p1 As String) As String
    共通_cov_date_d9 = CStr((Format(p1, "yyyymmdd")))
End Function