s=FormatDate(Date, "yyyy-m-dd")
wsh.echo s
Function FormatDate(date_var, patrn)
Dim RegExp, Match, Matches
Set RegExp = New RegExp
With RegExp
.IgnoreCase = -1: .Global = -1
FormatDate = patrn
.pattern = "(yyyy|d|m)"
For Each Match In .execute(patrn)
FormatDate = Replace(FormatDate, Match, DatePart(Match, date_var))
Next
End With
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024