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