Formato de Fecha Dataset

Question

Saludos, estoy trabajando en un reporte que genera el listado de los asuetos por año, la consulta se genera en sql (unicamente la fecha sin horas), se traslada a un dataset en visual basic, que al hacer una "preview data" lo muestra sin las horas, pero al convertirlo a excel muestra el formato de la fecha con horas, y no necesito que muestre las horas. 

Gracias por su atención y apoyo

---

Jeanifer Taracena

Answer 1

Hola   JeanyTC

 

Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma,  te  sugiero realizar lo siguiente:

 

•  Necesitamos que nos compartas el código o fragmento de código que estas desarrollando ya que es muy importante para que la comunidad de foros de MSDN pueda asesorarte de manera correcta. 

 

 

Gracias por usar los foros de MSDN.

 

Pablo Rubio

 

 ____

 

Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

 

Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

 

Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

 

 

Answer 2

Muchas gracias....

El script que genera los datos es este:

SELECT CONVERT(DATE,FECHA,1) as Fecha,
DESCRIPCION AS [Feriado y/o Asueto]
FROM RHTC_FERIADO_OFICIAL
WHERE YEAR(FECHA) = 2011
AND COD_ESTATUS='AC'
ORDER BY Fecha

Y en la aplicación es este:

Protected Sub btnGenerar_Click(sender As Object, e As EventArgs) Handles btnGenerar.Click
        Dim taasuetos As New DS_RH_GA_REPORTETableAdapters.taAsuetosTableAdapter
        Dim dtasuetos As DS_RH_GA_REPORTE.taAsuetosDataTable
        Dim Titulo As String = "Listado de Feriados y/o Asuetos"
        Dim subTitulo As String = "Correspondientes al Año" + ddlAnios.SelectedValue

        Try
            dtasuetos = taasuetos.ObtieneAsuetos(ddlAnios.SelectedValue, "AsuetosFeriados.aspx", Me.Usuario)

            If dtasuetos.Rows.Count > 0 Then
                convert_to_Excel.export(dtasuetos, Titulo, subTitulo)
            Else
                wucCuadroMensaje.mostrar("No existen registros para el año seleccionado.")
                mvAsuetosFeriados.SetActiveView(vMensaje)
            End If
        Catch ex As Exception
            If ex.Message <> "Subproceso anulado." Then
                ErrorBLL.reportaError(Me.CodPersona, Me.Pagina, ex, "btnGenerar_Click")
            End If
        End Try

    End Sub

Gracias por tu ayuda

---

Jeanifer Taracena