'以下函数将日期参数进行格式转化，例如：2017-01-02
Function ShortDateToLongDate(strChangeDate)
b=split(strChangeDate,"-")
If Int(b(1))>=0 And Int(b(1))<=9 Then
b(1)="0" & b(1)
End If
If Int(b(2))>=0 And Int(b(2))<=9 Then
b(2)="0" & b(2)
End If
strChangeDate=b(0) & "-" & b(1) &"-" & b(2)
End Function