Access Tips ［VBA自作関数］

年月日の表示書式をYYYY/mm/ddにする (引数 = 日付型)

内容

Public Function DateFormat(dtmDate As Date) As String
    
    DateFormat = Format(dtmDate, "YYYY/mm/dd")
    
End Function

年月日の表示書式をYYYY/mm/ddにする (引数 = 日付型)

Sub test()
    
    Dim dtmDate         As Date
    
    dtmDate = "2011-06-30"
    
    MsgBox DateFormat(dtmDate)
    
End Sub