Consulta Restar horas GTM al exportar de sql a excel

[jmerlos282]

Iniciado por Malenko

Y te valdría que se sumara las 6 horas en el momento de lanzar al consulta para traer los datos al Excel? Si es así, podrías poner la consulta que usas (no está en el código que has puesto), o si lo quieres usar tu mismo, prueba con [URL="http://msdn.microsoft.com/es-es/library/ms186819.aspx"]DateAdd[/URL].

Gracias amigo mira tengo varias consultas, las cuales te dejo abajo, nunca he usado este DateAdd déjame le voy dando una leída. Si vez algunas funciones no conocidas es por la conexión especifica con la aplicación que te comento.

Código vb:

Public Sub Inicio_Consulta()
' Fecha inicial 1 dia menos y fecha final 1 dia mas para sacar todas las muestras del dia
  ThisDisplay.datestart = VBA.Format(ThisDisplay.Finicial.Value, "yyyy/mm/dd") & " 00:00:00"
  ThisDisplay.dateend = VBA.Format(ThisDisplay.Finicial.Value, "yyyy/mm/dd") & " 23:59:59"
      Barras "Iniciando Busqueda...", 10
     DoEvents
      Objetos False
      ThisDisplay.crearRep.Visible = False
      ThisDisplay.Status1.ForeColor = vbBlack
End Sub
 

Código vb:

Public Sub consultaSQL(ByVal cSQL As String)
    'abrir la conexion
  On Error GoTo Error_BaseDatos
   DoEvents
    Dim CnSQL As ADODB.Connection
    Set CnSQL = New ADODB.Connection
    Set Conexion = New ADODB.Connection
    CnSQL.CommandTimeout = 10000
    CnSQL.Open ThisDisplay.iSQLconex
    Comando = cSQL
         'Consulta
    Set Consulta = New ADODB.Recordset
   DoEvents
    Consulta.Open Comando, CnSQL
Exit Sub
'Errores Durante la Creacion del Reporte
Error_BaseDatos:
    MsgBox "Error con Base de Datos" & VBA.Chr(13) & _
           "Error de Sistema: " & VBA.Chr(13) & VBA.Err.Description, VBA.vbCritical, "Error Conexion con Base de Datos"
End Sub
 

Código vb:

Public Sub sacafechas(ByVal nhini As Date, ByVal nhfin As Date)
 On Error Resume Next
Dim intervalo As Integer
 Dim n As Integer
 Dim h, i, j As Date
  n = 3
  intervalo = 5
 With ThisDisplay.General_Tags
 '*-*-*-*-*-Crear Fechas para Busqueda y Tabla *-*-*-*-*
      i = 0
'      intervalo = Val(intervalo)
'      intervalo = Abs(intervalo)
      If intervalo = 0 Then intervalo = 1
    StringFechas = "("
  Do
   .Cols = n + 1
   h = VBA.Format(nhini + i, "DD/MM/YYYY HH:mm:ss")
    If h > nhfin Then h = VBA.Format(nhfin, "DD/MM/YYYY HH:mm:ss")
 '  .ColDisplayFormat(n) = "DD/MM/YYYY HH:mm:ss"
   .TextMatrix(3, n) = VBA.Format(h, "DD/MM/YYYY")
   .TextMatrix(4, n) = VBA.Format(h, "HH:mm:ss")
     If .Cols > 4 Then StringFechas = StringFechas & "' OR "
   j = DateAdd("n", 5, h)
     StringFechas = StringFechas & " DateAndTime >  '" & VBA.Format(h, "yyyy/mm/dd hh:mm:ss") & "' And DateAndTime <  '" & VBA.Format(j, "yyyy/mm/dd hh:mm:ss")
   i = DateAdd("n", intervalo, i)
   n = n + 1
  Loop While Not h = nhfin
    StringFechas = StringFechas & "')"
 End With
End Sub