Dim datJissiDate As New Date(2007, 12, 1, 2, 59, 1) Dim strJissiDate As String = "2007/12/1 2:59:1" Debug.WriteLine(Format(datJissiDate, "short date")) Debug.WriteLine(Format(strJissiDate, "short date")) Debug.WriteLine(Format(datJissiDate, "yyyy/MM/dd(ddd)")) Debug.WriteLine(Format(strJissiDate, "yyyy/MM/dd(ddd)")) Debug.WriteLine(Format(CDate(strJissiDate), "yyyy/MM/dd(ddd)"))