Error de campo "Hora de impresion" al exportar excel usando Crystal Reports

Question

Hola a todos =), yo uso Crystal Reports para exportar Excel ,PDF y Word, pero el problema que cuando uso campo especial que se llama "Hora de impresion" pero normal funciona con PDF y Word, con la hora del formato 1:23 pm, pero al exportar el excel sale asi..la hora asi "00/01/1900  12:22:43 p.m."..

Te muestro la imagen, y ves el cuadrado de color rojo que dice "Hora de impresion" ahi sale error de formato de hora al exportar el excel.

Y el codigo tambien te lo muestro... por favor alguien tiene alguna idea de solucionar osea puedes hacer una nueva formula.. o correguir el campo especial "Hora de impresion"..por favor ayudamee!!

Gracias!.

Private Sub Exportar(ByVal oRpt As ReportDocument, ByVal Tipo As String)
        Dim Extension As String = String.Empty
        Dim oStream As IO.MemoryStream = New IO.MemoryStream
        Select Case Tipo
            Case "PDF"
                oStream = oRpt.ExportToStream(ExportFormatType.PortableDocFormat)
                Response.ContentType = "application/pdf"
                Extension = "PDF"
            Case "EXCEL"
                oStream = oRpt.ExportToStream(ExportFormatType.Excel)
                Response.ContentType = "application/vnd.ms-excel"
                Extension = "XLS"
            Case "WORD"
                oStream = oRpt.ExportToStream(ExportFormatType.WordForWindows)
                Response.ContentType = "application/ms-word"
                Extension = "DOC"
        End Select
        Response.AddHeader("Content-Disposition", "attachment;filename=" & Me.Page.Title.Replace(" ", String.Empty) & "." & Extension)
        Response.Clear()
        Response.Buffer = True
        Response.BinaryWrite(oStream.ToArray())
        Response.End()
    End Sub
    Protected Sub IB_EXCEL_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        Dim objRpt As New ReportDocument()
        objRpt.Load(Server.MapPath("~/Reportes/RptTurnos.rpt"))
        objRpt.SetDataSource(VistaTabla)
        Exportar(objRpt, "EXCEL")
    End Sub
    Protected Sub IB_WORD_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        Dim objRpt As New ReportDocument()
        objRpt.Load(Server.MapPath("~/Reportes/RptTurnos.rpt"))
        objRpt.SetDataSource(VistaTabla)
        Exportar(objRpt, "WORD")
    End Sub
    Protected Sub IB_PDF_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        Dim objRpt As New ReportDocument()
        objRpt.Load(Server.MapPath("~/Reportes/RptTurnos.rpt"))
        objRpt.SetDataSource(VistaTabla)
        Exportar(objRpt, "PDF")
    End Sub