MsgBox DatePart("yyyy", Date) MsgBox DatePart("q", Date) MsgBox DatePart("m", Date) MsgBox DatePart("y", Date) MsgBox DatePart("d", Date) MsgBox DatePart("w", Date) MsgBox DatePart("ww", Date) MsgBox DatePart("h", Date) MsgBox DatePart("n"…