不用写这么完整，可以直接用日期正则获取
\d{4}-\d{1,2}-\d{1,2}
如果有要使用特殊字符，可以用转义符\
\'
\"
\.
来表示单引号，双引号和点
a = Format(Now, "yyyy-mm-dd hh:mm")或a = Format(Now, "yyyy-mm-dd")
Chr(34)就表示半边的"
