Dates anglaises

Function DateUS(ByVal dt As Variant)

If IsNull(dt) Then Exit Function

DateUS = "#" & Month(dt) & "/" & Day(dt) & "/" & Year(dt) & "#"

End Function

Function DateFR(ByVal dt As Variant)

If IsNull(dt) Then Exit Function

DateFR = "#" & Day(dt) & "/" & Month(dt) & "/" & Year(dt) & "#"

End Function