Sub Sample() MsgBox CVDate("1997/09/17") '97/09/17を返します MsgBox CVDate("17-Sep-97") '97/09/17を返します MsgBox CVDate(35690) '97/09/17を返します MsgBox CVDate("平成9年9月17日") '97/09/17を返します End Sub