ExcelVBAで日付をYYYYMMDD形式の文字列にする

▼日付データをYYYYMMDD形式の文字列にするユーザー定義関数

Function YYYYMMDD(日付 As Date) As Variant
 If 日付 >= #3/1/1900# Then
  YYYYMMDD = Format(日付, "yyyymmdd")
 Else
  YYYYMMDD = CVErr(xlErrValue)
 End If
End Function

ネタ元