1.随机生成日期
洛扎网站建设公司成都创新互联公司,洛扎网站设计制作，有大型网站制作公司丰富经验。已为洛扎1000多家提供企业网站建设服务。企业网站搭建\成都外贸网站制作要多少钱，请找那个售后服务好的洛扎做网站的公司定做！
Format(DateSerial(Rnd * 100, Rnd * 12, Rnd * 31), "yyyymmdd")
2.用函数IsDate()
---------------------------------------------
Debug.WriteLine(Format(DateSerial(Rnd() * 100, Rnd() * 12, Rnd() * 31), "yyyy-MM-dd"))
debug：1971-06-18
笔误，你把yyyymmdd换成yyyy-MM-dd这样试验一下。
我测试了没问题的
dim date as DateTime = DateTime.Parse(TextBox1.Text)
TextBox2.Text = date.ToShortDateTime()
日期类型有好多种转换表达式， 特别的使用.ToString("YYYY-mm-dd") 这种形式可以自定义ToString里面的格式化样式。
Dim a As String
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函数，这个函数是用于把字符型变量转换成日期型变量，
字符型变量（本例中的a）如果不是标准的日期格式，请先用字符串函数处理成标准日期格式再用CDate函数进行转换，否则会报错