我们经常需要判断一个字符串是否合法日期的问题，vb中提供了一个函数
isDate，但是它的参数需要转化一下，最终函数如下：

Public Function isProperDate(strDate As String)
   Dim strTmp As String
  ‘将输入的日期转换成IsDate（）所接受的日期格式
   strTmp = Mid(strDate, 1, 4) + "," + Mid(strDate, 5, 2) + "," + Mid(strDate, 7, 2)
   getProperDate = IsDate(strTmp)
End Function

这个函数是八位的情况，大家还可以考虑把6位，8位及长度不足时的处理都加入到
这个函数中。