美国日期格式到欧洲

如何解决美国日期格式到欧洲

我有问题，这个宏正在搜索格式为 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)