美国日期格式到欧洲

Question

我有问题，这个宏正在搜索格式为 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, _
    Criteria1:=">=" & (n- 4), Operator:=xlAnd, Criteria2:="<=" & (n)        
Else
    ActiveSheet.ListObjects(1).Range.AutoFilter Field:=12, _
    Criteria1:=">=" & (n- 2), Operator:=xlAnd, Criteria2:="<=" & (n)