美国日期格式到欧洲

问题描述

我有问题，这个宏正在搜索格式为 mm/dd/yyyy 的日期，我需要这种格式为 dd/mm/yyyy。请帮我修复它

这是我的代码

 n = Format(Date,"dd/mm/yyyy")
 If Weekday(Now()) = vbMonday Then
    ActiveSheet.ListObjects(1).Range.AutoFilter Field:=12,_
    Criteria1:=">=" & (n- 4),Operator:=xlAnd,Criteria2:="<=" & (n)
Else
If Weekday(Now()) = vbTuesday Then
    ActiveSheet.ListObjects(1).Range.AutoFilter Field:=12,Criteria2:="<=" & (n)        
Else
    ActiveSheet.ListObjects(1).Range.AutoFilter Field:=12,_
    Criteria1:=">=" & (n- 2),Criteria2:="<=" & (n)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）