Dim MyDate1 As Integer = Integer.Parse(DateTime.Parse("2011/3/4").ToString("yyyyMMdd"))