Contar registros por fecha sql
 

buenas tardes;

Antes de nada, me presento ya que soy nuevo por estos barrios.

llevo un par de dias dando vuelta a como contar registros por fechas de una base de datos access en excel con macro y .....por ahora no he consegido mucho, hoy he visto en este foro un tema de contar registros por fechas pero, no me quedo muy claro.
me podeis ayudar??.

Lo que necesito es contar los registros que se encuentren en una semana X ( semana actual y semana anterior ).
En la base de datos access tengo varios campos, uno seria estado y otro seria fechas ( las fechas estan escritas en dd/mm/aaaa ).
tengo entendido que las fechas deberian de estar en formato mm/dd/aaaa pero en access no lo consigo cambiar.
Si no se pudiera directamente contar por numero de semana, como lo podria hacer por un rango de fechas??.

El campo estado tiene 4 valores, solo necesito contar 2 ( Devolución y Donación ).
El resultado quiero ponerlo en un formulario (label) pero con que aparezca en una celda me vale.

adjunto excel con los datos del access en hoja 2 y con lo que tengo.

muchs gracias de antemano.

Hola, ¡¡¡bienvenido!!!
Esto es club delphi, y aunque también tratamos otros lenguajes, principalmente es delphi.
No tratamos temas directamente de excel. Aunque sí de importación y de exportación de datos desde y hacia excel.
Si quieres usar lenguaje SQL para conseguir lo que quieres, deberías importar los datos a una base de datos.
Seguramente se podrá hacer directamente en excel, pero, como digo, no es algo que tratemos aquí.
Saludos.

Haber si esto te ayuda...

Código Delphi [-]
Sub Contar_Datos()

    Dim cn As Object
    Dim rs As Object
    Dim strSQL  As String
    Dim strCon As String
    Dim strFile As String
    Dim strFromDate, strToDate As String

    strFile = "C:\Users\Desktop\Base.accdb"
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile
    
    strFromDate = InputBox("Desde (mm/dd/yyyy)?", "Rango Fecha")
    strToDate = InputBox("Hasta (mm/dd/yyyy)?", "Rango Fecha")
    
    strSQL = "Select estado, count(Estado) from Consulta where Fechas between #" & strFromDate & "# And #" & strToDate & "#" & _
             " and (Consulta.estado ='DEVOLUCION' or Consulta.Estado='DONACION')" & _
             " group by estado"

    Set cn = CreateObject("ADODB.Connection")
   
    cn.Open strCon

    Set rs = CreateObject("ADODB.RECORDSET")
    rs.activeconnection = cn
    rs.Open strSQL
    
    Hoja1.Range("A1").CopyFromRecordset rs

    rs.Close
    cn.Close
    Set cn = Nothing
           
End Sub