Visual Basic Foro

SOLUCIONADO!!!!!!!!!!!!!!!
 
 
 

Mil Gracias!!!!!

Aprendi algo nuevo gracias!!!!!!!!!!!!!

Efectivamente uno de los usuarios tiene un Windows y Excel en Ingles.......... aunque la configuracion regional estaba bien (configurado de acuerdo con el pais y sus formatos) no se porque hacia esto; pero pasaba.

como veran en el codigo mas abajo implemente la solucion que me indico NEBIRE, y el problema seguia ocurriendo, pero NEBIRE tambien me indico como convertir en texto un numero con: .NumberFormat = "@" . Entonces me recorde que existe DatePart y se me ocurrio hacer el codigo que les muestro; solucionando asi el problema:

For ii = 1 To MSHFlexGrid_CUP_DISPONB.Rows - 1
            For J = 1 To 6
                'If J = 4 Or J = 5 Or J = 6 Then .Cells(ii + fila, J + 1) = CDate(Format(MSHFlexGrid_CUP_DISPONB.TextMatrix(ii, J), "DD/MM/YYYY"))
                'If J = 4 Or J = 5 Or J = 6 Then
                '    .Cells(ii + fila, J + 1) = CDate(Format(MSHFlexGrid_CUP_DISPONB.TextMatrix(ii, J), "DD/MM/YYYY"))
                '    .Cells(ii + fila, J + 1).Select
                '    .Cells(ii + fila, J + 1).NumberFormat = "[$-C0A]" & Chr(34) & "día " & Chr(34) & "d" & Chr$(34) & " del mes " & Chr$(34) & "mmmm" & Chr(34) & " del año " & Chr(34) & "yyyy;@" ' "mm/dd/yyyy"
                'End If
                If J = 4 Or J = 5 Or J = 6 Then
                    .Cells(ii + fila, J + 1) = DatePart("d", CDate(Format(MSHFlexGrid_CUP_DISPONB.TextMatrix(ii, J), "DD/MM/YYYY")))
                    .Cells(ii + fila, J + 1).NumberFormat = "@"
                    .Cells(ii + fila, J + 1) = .Cells(ii + fila, J + 1) & DatePart("m", CDate(Format(MSHFlexGrid_CUP_DISPONB.TextMatrix(ii, J), "DD/MM/YYYY")))
                    .Cells(ii + fila, J + 1) = .Cells(ii + fila, J + 1) & DatePart("yyyy", CDate(Format(MSHFlexGrid_CUP_DISPONB.TextMatrix(ii, J), "DD/MM/YYYY")))
                End If
                If J <> 4 Or J <> 5 Or J <> 6 Then .Cells(ii + fila, J + 1) = MSHFlexGrid_CUP_DISPONB.TextMatrix(ii, J)
            Next J
            .Cells(1, 5) = CStr(ii)
        Next ii

Muchas gracias a NEBIRE, a Waldo, y a Ale_xi, (y a este ultimo el link de codigo de descarga, nunca pude descargarme el codigo de ejemplo que me sugirio, si por favor me puede ayudar(trate de descargarlo por navegador y fallo, luego lo volvi a intentar y me solicitaba registrarme obligado si queria bajarme el codigo)).

Gracias por responder. Disculpen por no responder inmediatamente. Entre el trabajo, familia y otras actividades no he podido revisar el código; este es uno de varios bugs que tiene mi programa; pero los otros son de lógica, y no sintácticos, esos son mi deber buscarles solución. Probare lo que me dicen y les estaré informando, aunque también en otras paginas vi otras posibles soluciones que también probare. Nuevamente muchas gracias, les estaré informando que tal me fue.

Agrego adicional el código con que relleno el MSHFflexgrid por si acaso, para que lo vean:

Private Sub RellEFlexGRID_Laboratorio()
    If RecS.EOF = True Or RecS.BOF = True Then
        RejillLAB = False
        Exit Sub
    Else
        RejillLAB = True
    End If
    Screen.MousePointer = vbHourglass
    MSHFlexGrid_CUP_DISPONB.Redraw = False
    RecS.MoveFirst
    If MSHFlexGrid_CUP_DISPONB.Rows = 1 Then
        'MSHFlexGrid_CUP_DISPONB.Redraw = True
        MSHFlexGrid_CUP_DISPONB.Clear
        Col_ViewLab
        'sOLUCION TEMPORAL'''''''''''
        Rellenn_2_Laboratorio
        Exit Sub
    End If
    Rellenn_2_Laboratorio
End Sub
Private Sub Rellenn_2_Laboratorio()
    MSHFlexGrid_CUP_DISPONB.Row = 1
    MSHFlexGrid_CUP_DISPONB.Col = 1
    MSHFlexGrid_CUP_DISPONB.Rows = MSHFlexGrid_CUP_DISPONB.Rows + 1
    MSHFlexGrid_CUP_DISPONB.RowSel = MSHFlexGrid_CUP_DISPONB.Rows - 1
    MSHFlexGrid_CUP_DISPONB.ColSel = MSHFlexGrid_CUP_DISPONB.Cols - 1
    MSHFlexGrid_CUP_DISPONB.Clip = RecS.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString)
    MSHFlexGrid_CUP_DISPONB.Row = 1
    MSHFlexGrid_CUP_DISPONB.Redraw = True
    Screen.MousePointer = vbDefault
End Sub

Espero les sirva, y gracias por adelantado, si me pueden dar luz con respecto a este problema que tengo.

Hola tal como el título del Asunto: "Problema con Formato de Fechas durante Exportación a Excel de un MSHflexgrid", internamente el valor es Ejemplo: 08/11/2016 (dd/mm/yyyy) (verificado durante los puntos de interrupción, en un paso a paso) y en el archivo de Excel (en este caso versión 2007) resultante queda como 11/08/2016. y cuando la fecha es 11/11/2016 o superior si queda normal (dd/mm/yyyy).

Agradezco sus impresiones al respecto.

Este es el código completo de la exportación que estoy usando:

Private Sub CMD_EXPORT_ExcelLAB_Click()
    Dim HOY_DAT_Lab As Date
    Dim ii As Long          '|
    Dim J As Long           '|
    Dim fila As Long        '|
    Set obj_Excel = CreateObject("Excel.Application")
    obj_Excel.Visible = False
    Set obj_Libro = obj_Excel.Workbooks.Add
    Set obj_Hoja = obj_Libro.Sheets(1)
    obj_Libro.Sheets(1).Select
    Set obj_Hoja = obj_Excel.ActiveSheet
    obj_Excel.Visible = True
    fila = 5
    HOY_DAT_Lab = Date
    With obj_Hoja
        .Cells(5, 2) = "CÉDULA"
        .Cells(5, 3) = "PACIENTE"
        .Cells(5, 4) = "EXAMENES"
        .Cells(5, 5) = "REALIZADO"
        .Cells(5, 6) = "RECIBIDO"
        .Cells(5, 7) = "RETIRADO"
        On Error Resume Next
        .Columns("A:A").ColumnWidth = 0.92
        .Columns("B:B").ColumnWidth = 9.29
        .Columns("C:C").ColumnWidth = 23
        .Columns("D:D").ColumnWidth = 60
        .Columns("E:E").ColumnWidth = 14.14
        .Columns("F:F").ColumnWidth = 14.14
        .Columns("G:G").ColumnWidth = 14.14
        .Cells.Select
        .Cells.Interior.Color = &HFFFFFF
        .Cells(5, 2).Font.Color = -16711681
        .Cells(5, 2).Interior.Color = &HC00000
        .Cells(5, 2).Font.Bold = True
        .Cells(5, 3).Font.Color = -16711681
        .Cells(5, 3).Interior.Color = &HC00000
        .Cells(5, 3).Font.Bold = True
        .Cells(5, 4).Font.Color = -16711681
        .Cells(5, 4).Interior.Color = &HC00000
        .Cells(5, 4).Font.Bold = True
        .Cells(5, 5).Font.Color = -16711681
        .Cells(5, 5).Interior.Color = &HC00000
        .Cells(5, 5).Font.Bold = True
        .Cells(5, 6).Font.Color = -16711681
        .Cells(5, 6).Interior.Color = &HC00000
        .Cells(5, 6).Font.Bold = True
        .Cells(5, 7).Font.Color = -16711681
        .Cells(5, 7).Interior.Color = &HC00000
        .Cells(5, 7).Font.Bold = True
        .Cells(5, 2).Select
        .Cells(5, 2).AutoFilter
        .Cells(1, 2) = "SERVICIO MÉDICO"
        .Cells(1, 2).Font.Color = &H400040
        .Cells(1, 2).Font.Bold = True
        .Cells(2, 2) = "AMP"
        .Cells(2, 2).Font.Color = &HFF&
        .Cells(2, 2).Font.Bold = True
        .Cells(1, 4) = "EXPORTANDO   :"
        .Cells(1, 6) = "/ " & CStr(MSHFlexGrid_CUP_DISPONB.Rows - 1)
        .Cells(1, 4).Font.Bold
        .Cells(1, 5).Font.Bold
        .Cells(1, 6).Font.Bold
        .Cells(2, 5).Font.Color = &H400040
        .Cells(2, 5).Font.Bold = True
        .Cells(3, 5) = "EXPORTACIÓN EXCEL AL " & CStr(HOY_DAT_Lab)
        .Cells(3, 5).Font.Color = &H400000
        For ii = 1 To MSHFlexGrid_CUP_DISPONB.Rows - 1
            For J = 1 To 6
                If J = 4 Or J = 5 Or J = 6 Then .Cells(ii + fila, J + 1) = CDate(Format(MSHFlexGrid_CUP_DISPONB.TextMatrix(ii, J), "DD/MM/YYYY"))
                If J <> 4 Or J <> 5 Or J <> 6 Then .Cells(ii + fila, J + 1) = MSHFlexGrid_CUP_DISPONB.TextMatrix(ii, J)
            Next J
            .Cells(1, 5) = CStr(ii)
        Next ii
        .Cells(1, 4) = ""
        .Cells(1, 5) = ""
        .Cells(1, 6) = ""
        .Cells(2, 5) = "CONSULTAS PACIENTES LABORATORIO"
        On Error Resume Next
        MousePointer = vbDefault
        Set obj_Hoja = Nothing
        Set obj_Libro = Nothing
        Set obj_Excel = Nothing
    End With
End Sub

Agradezco la amabilidad de ustedes, para Waldo, el diseno de la base de datos tiene ya previstos los campos tipo fecha y en el codigo VB6 ya hay varibles de tipo Date para almacenar las fechas, acostumbro usar mucho Format(nombreVarible, "DD/MM/YYYY"),  esto ultimo incluso dentro del Query .... " & Format(DateTimePicker.Value, "DD/MM/YYYY") & " ...RESTO DEL QUERY o uso .... " & Format(Var_tipo_Date, "DD/MM/YYYY") & " ...RESTO DEL QUERY.
Obviamente si como dices tu la base de datos me devuelve un valor YYYY/MM/DD, pienso debo mostrarle el resultado al usuario con cambio en el formato a DD/MM/YYYY por codigo. 
Con respecto al Ado Command nunca lo he usado, siembre he usado Query sql dentro de un String, y no entiendo bien lo del parametro tipo Date. Quien me enseno me dijo que asi se veia mas profesional... cuestion criterios supongo...
Y nuevamente muchas gracias Waldo.

Y lo que me dice obethermy esta bien; pero los Query's SQL de Access no son tan compatibles (Standar ANSII 92 creo sino me equivoco), y todos los comandos SQL contenidos a lo largo de todos los formularios del programa deben ser revisados, porque yo puedo exportar a un archivo .cvs pero creo que igual deberia modificar los comandos SQL que envia mi programa contra la base de datos. Por ejemplo en versiones viejas de Oracle no existia el INNER JOIN ... y si mi programa le lanzara un query con INNER JOIN a una BD Oracle de una version que no lo soporte voy a obtener un posible error en RUNTIME. Ahora te pregunto que tan compatibles son los Query's SQL  de Access contra SQL Server Express ??
Porque son muchas lineas de codigo que deberia modificar....
Igual Tambien agradecido contigo obethermy por querer ayudarme.

Muchas Gracias por tu explicación obethermy y también a ti Waldo, que respondiste primero. Si también es que mi aplicación es un poco pesada y hace muchos querys seguidos, ya que debe verificar existencia de ciertos datos o hacer comprobaciones con los datos antes de guardar, ejemplo saber si ya el dato de una persona ya estaba registrado para un día en particular y que no se repita dos veces la misma acción con esa persona con unas mismas condiciones en una misma fecha, etc, etc. Entre otras cosas ...
Espero yo también poder aportar más adelante algo de lo poco que sé ... para ayudar a otros.
Saludos desde Venezuela.

El path es el siguiente: \\Coordinacion-1\Users\Public\Documents\ARCHIVOS VARIOS\CARLOS VINCENT\CAMI.mdb

y te dejo parte del codigo del modulo .bas que usa mi aplicacionpara conectarse a la base de datos:

Public Sub Ini_BD()
  If IsNumeric(Servidores) = True Then
    If Conex.State = 1 Then Conex.Close                         'Pregunto primero si está abierta la base de datos; por si acaso, de un mal cierre anterior de la base de datos
    Conex.Provider = "Microsoft.Jet.OLEDB.4.0;"                 'Establesco mi Proveedor de motor de Base de Datos
    '***********************************************************'
    '//     ESTE CODIGO GENERA ERROR 7005 CUANDO SE SELECCIONA UN REGISTRO EN EL DATAGRID      // OJO
    'If Err.Number <> 0 Then                                     'Verifico si ocurrió error (Esto por si se ejecuta  el aplicativo, en un equipo donde no está instalado el motor de base de datos ACCESS)
    '    MsgBox "Se ha producido un Error al intentar acceder al motor de Base de Datos JET, por favor verifique o comuníquese con soporte técnico carlosvincent@hotmail.com . La descripción del error es la siguiente: " & Err.Number & ". : " & Err.Description & ".", vbCritical, "CAMIRED" 'Mensaje de error y su descripción
    '    Terminacion
    'End If
    '***********************************************************'En algunos entornos Unix/Linux que usen WINE para la ejecuión de aplicaciones Windows pueden darse estos casos, y también en instalaciones Windows que no tengan instado MS Office; puede darse este error
    Verif_BD                                                    'Verifico existencia de base de datos
    '///////////////////////////////                    //////////////////////////////////////////////////////////////////
    Conex.ConnectionTimeout = 590 '/------------------> / EN EVALUACIÒN...                                               /
    Conex.CommandTimeout = 590    '/                    / POR ERRORES EN CONCURRENCIA (SI FALLA SE BUSCARÁ OTRA SOLUCIÓN)/
    '///////////////////////////////                    //////////////////////////////////////////////////////////////////
    Conex.ConnectionString = "Data Source=" & Patch_BD & " ;Jet OLEDB:Database Password=45RT6" 'Especifico mi cadena de conexión a la base de Datos, indico el Path y la contraseña
    Conex.Open                                                  'Abro mi conexión
    If RecS.State = 1 Then RecS.Close                           'Por si acaso el RecordSet no hubieses sido cerrado anteriormente lo cierro antes de ponerme a trabajar con él
    RecS.CursorLocation = ClientServi
    RecS.CacheSize = CacheTamaño
    RecS.Open CONSULTA, Conex, TipoCursor, BloQueos             'Abro el RecordSet y lo lleno con mi consulta, para esta operación hago mención de mi conección "Conex", defino el tipo de cursor y defino el control de concurrencia
  Else
  '///////////////////////////////////////////////////////////////
    If Conex.State = 1 Then Conex.Close                         '/
    Conex.Open Servidores                                       '/
    Conex.ConnectionTimeout = 590                               '/
    Conex.CommandTimeout = 590                                  '/
    If RecS.State = 1 Then RecS.Close                           '/----------------------->en prueba
    RecS.CursorLocation = ClientServi                           '/
    RecS.CacheSize = CacheTamaño                                '/
    RecS.Open CONSULTA, Conex, TipoCursor, adLockReadOnly       '/
  End If                                                        '/
  '///////////////////////////////////////////////////////////////
End Sub

Espero me puedan ayudar, es raro; repito con W7 funciona perfecto pero la computadora que tiene Windows XP SP3 va lenta como una tortuga.

Probare como tu dices Waldo, usando direccion IP 192.xxx.xxx.xxx a ver que pasa.

Muchas gracias por responder tan pronto, y disculpa si mi codigo es un poco desordenado, je je je