本主题包含一个将任何日期转换为美国日期格式的自定义函数。
Function MakeUSDate(DateIn As Variant) As String
' 如果值不是日期,则不执行任何操作.
If Not IsDate(DateIn) Then Exit Function
' 将日期值格式化为美国日期格式的字符串表达式.
MakeUSDate = "#" & Month(DateIn) & "/" & Day(DateIn) & "/" & Year(DateIn) & "#"
End Function