none
Problema al obtener fecha con VBA y SQL RRS feed

  • Pregunta

  • Hola,

    Estoy teniendo un detalle que no logro encontrar el por qué, se trata de que al recuperar datos de una consulta sql, al obtener la fecha con CDbl(CDate(rsVentas("miFecha"))), me despliega el número 43383 para todos los registros, después con el formato se cambia correctamente, el detalle es por qué despliega ese número, adjunto imagen de referencia.

    fecha_excel

    Y esta es la consulta:

    qry = _
          "SELECT a.cFecha AS miFecha, " _
          & "a.cSerieDocumento + CAST(a.cFolio AS VARCHAR) AS Factura, " _
          & "d.cCodigoCliente AS CodigoCliente, d.cRazonSocial AS RazonSocial, " _
          & "FROM admDocumentos AS a " _
          & "INNER JOIN admClientes AS d ON d.cIdClienteProveedor=a.cIdClienteProveedor " _
          & "WHERE a.cIdDocumentoDe IN (4) " _
          & "AND a.cFecha BETWEEN '" & Format(FechaI, "dd/mm/yyyy") & "' AND '" & Format(FechaF, "dd/mm/yyyy") & "' " _
          & "AND a.cCancelado=0 ORDER BY miFecha, Factura"
        
        rsVentas.Open qry, cnn
        Do While Not rsVentas.EOF
                    
            Renglon = Renglon + 1
            'Cells(Renglon, 1) = Format(rsVentas("miFecha"), "dd-mm-yyyy")
            Cells(Renglon, 1) = CDbl(CDate(rsVentas("miFecha")))
            Cells(Renglon, 1).NumberFormat = "dd-mmm-yyyy"
            Cells(Renglon, 2) = rsVentas("Factura")
            Cells(Renglon, 3) = rsVentas("CodigoCliente")
    

    Gracias por su ayuda.

    Javier

    miércoles, 12 de diciembre de 2018 6:47

Todas las respuestas

  • Hola!

    es lógico que te devuelva un número, mediante cdbl estás convirtiendo la fecha, que has obtenido con cdate, en un número, elimina ese clng y debería resolverse el problema,


    Saludos a todos desde Huelva Emilio http://www.mvp-access.es/emilio/

    miércoles, 12 de diciembre de 2018 17:21
  • Hola Emilio,

    Gracias, realmente copié de algún site ese código, ya que originalmente también me daba problemas con la fecha.

    Saludos,

    Javier

    jueves, 13 de diciembre de 2018 17:46