Formato Fecha segun idioma del SQL.Server

[jesolorzano]

Yo tengo igual dos servidores con distintos idiomas por defecto en mi caso programa con VB6 y cuando le paso las variables de tipo fecha utilizo dos funciones que me formatean la fecha dependiendo a que server se lo mande:

Por ejemplo tengo la funcion FechaSQL para las fechas que le mando al servidor que esta en español:

Código:

Public Function FechaSQL(ByVal vfecha As String) As String
    ' La fecha la convierte al formato: 'mm/dd/yyyy'
    'sqlserver lo utilizo porque me estoy conectando a un sql server y necesito la fecha
    On Local Error GoTo SQLDateValErr
    '
    If IsDate(vfecha) Then
        ' si es una fecha válida, convertirla
        FechaSQL = "'" & Format$(vfecha, "mm/dd/yyyy") & "'"
    Else
        ' si no es una fecha válida, devolverlo sin modificar
        FechaSQL = vfecha
    End If
    '
    Exit Function
    '
SQLDateValErr:
    ' Si hay error, la fecha por defecto 1-Ene-1980
    Err = 0
    FechaSQL = "'01/01/1980'"
End Function

Claro esto dependerá del formato que necesites en determinado momento.
Y en la cadena de la consulta la utilizo asi:

Código:

sqlstr="select * from tabla where fecha>=" & FechaSQL(txtfecha_inicial.Value)  & "and fecha<=" & FechaSQL(txtfecha_final.Value)

Espero te sirva.

Saludos.