Dar formato a fechas como fechas de Estados Unidos independientemente de la configuración regional

Cuando se usa Visual Basic para Aplicaciones (VBA) para concatenar fechas en una cadena SQL, debe usar un formato de fecha estándar de EE. UU., independientemente de la región que haya establecido en la herramienta Configuración regional de Panel de control. Este tema contiene una función personalizada que convertirá cualquier fecha al formato de fecha de Estados Unidos.

Function MakeUSDate(DateIn As Variant) As String 
 
    ' Do nothing if the value is not a date. 
    If Not IsDate(DateIn) Then Exit Function 

    ' Format the date value as a U.S. date formatted string expression.
    MakeUSDate = "#" & Month(DateIn) & "/" & Day(DateIn) & "/" & Year(DateIn) & "#"

End Function

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.