在做数据校验时，不同的日期格式比较结果不相同，需要转换成相同的日期格式，进行比较。
下面是长用的日期格式化的函数 
GetCurrentDate = FormatDateTime(date,0)
'date是要格式化的日期参数
'0表示日期格式类型，分别有以下几种：
'0 如果是日期型，结果是短日期格式。如果是有时间部分，结果为长日期时间
'1 长日期型：2008年4月11日
'2 短日期型：2008-4-11
'3 长时间型：结果如：10：30：52
'4 短时间型：结果如：10：35