RosettaCodeData/Task/Date-format/VBA/date-format.vba

Function DateFormats()
    Debug.Print Format(Date, "yyyy-mm-dd")
    Debug.Print Format(Date, "dddd, mmmm dd yyyy")
End Function