Hi: I have this data: ventas_encabezado_historico_sat Query
VEH_EMPRESA VEH_TIENDA VEH_FECHA VEH_STATUS VEH_TOTAL VEH_HORA DLC T01 6/1/2003 V 30 8:31:05 AM DLC T01 6/1/2003 V 114.28 8:38:44 AM DLC T01 6/1/2003 V 63.2 8:41:13 AM DLC T01 6/1/2003 V 8.75 8:42:47 AM dlc T01 6/1/2003 V 12.35 8:50:59 AM dlc T01 6/1/2003 V 63.97 8:53:10 AM DLC T01 6/1/2003 V 10 8:54:24 AM DLC T01 6/1/2003 V 50.65 8:57:54 AM DLC T01 6/1/2003 V 36 9:01:04 AM Where veh_fecha is type date, veh_hora is type date and veh_total is double And I have this code where I try to get the # of registres and a sum in a specific date for a specific time interval (15 minutes) but the select do not work, it returns 0 o the result of the full day, what I’m doing wrong? HORA_INICIO = TimeSerial(7, 0, 0) '7:00 am Do Cantidad_Ventas = 0 VALOR_VENTAS = 0 'voy a calcular los valores de atención strSQL = "select Count(*) as Cantidad, Sum(veh_total) as Valor from " & _ "ventas_encabezado_historico_sat where " & _ "veh_empresa='" & EMP & "' and " & _ "veh_tienda='" & Tienda & "' and " & _ "veh_fecha=" & MakeUSDate(MAX_ESTADISTICA) & " and " & _ "Veh_hora>=" & MakeUSTime(HORA_INICIO) & " And " & _ "veh_hora<" & MakeUSTime(HORA_INICIO + TimeSerial(0, 15, 0)) Set RST = DB.OpenRecordset(strSQL) 'ya tengo calculado los valores, los tengo que guardar Cantidad_Ventas = RST!Cantidad If IsNull(RST!valor) = True Then VALOR_VENTAS = 0 Else VALOR_VENTAS = RST!valor End If RST.Close Set RST = DB.OpenRecordset("Select * from estad_atencion where 1=0") RST.AddNew RST!est_empresa = EMP RST!est_tienda = Tienda RST!est_fecha = MAX_ESTADISTICA RST!est_hora = HORA_INICIO RST!est_atencion = Cantidad_Ventas RST!est_valor = VALOR_VENTAS RST.Update RST.Close HORA_INICIO = HORA_INICIO + TimeSerial(0, 15, 0) Loop Until HORA_INICIO > TimeSerial(22, 0, 0) Function MakeUSDate(X As Variant) As String If Not IsDate(X) Then Exit Function MakeUSDate = "#" & Month(X) & "/" & Day(X) & "/" & Year(X) & "#" End Function Function MakeUSTime(X As Variant) As String If Not IsDate(X) Then Exit Function MakeUSTime = "#" & Hour(X) & ":" & Minute(X) & ":" & Second(X) & "#" End Function -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.10 - Release Date: 4/14/2005