Resolví el acertijo...........la cultura
Mi pc tiene la cultura "es-ES" y el de mi hosting tiene la cultura "en-US" gggg,asi que lo que he hecho es en la función de transformar a fecha poner
Cita: Private Function CambiarFecha(ByVal fechacambiar As String) As Date
Dim fechanueva As String
Dim fecha As Date
Dim dia As String
Dim mes As String
Dim año As String
dia = Mid(fechacambiar, 1, 2)
mes = Mid(fechacambiar, 4, 5)
mes = mes.Remove(2, 3)
año = Mid(fechacambiar, 7, 8)
Select Case String.Intern(CultureInfo.CurrentCulture.Name)
Case "es-ES"
fechanueva = dia & "/" & mes & "/" & año
fecha = CDate(fechanueva)
Return fecha
Case "en-US"
fechanueva = mes & "/" & dia & "/" & año
fecha = CDate(fechanueva)
Return fecha
End Select
End Function
Asi si la maquina es inglesa la convierto a MM/DD/YYYY y si es española a DD/MM/YYYY
Un saludo
PD: si usais eso recordad importar el espacio de nombres System.Globalization