Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-02-2007
amadis amadis is offline
Miembro
 
Registrado: may 2005
Ubicación: San José, Colón, Entre Ríos, Argentina
Posts: 315
Poder: 20
amadis Va por buen camino
Question ¿existe un Extract Week? o algo similar

Existe alguna forma de hacer un Extract WEEK para comparar la fecha y por ejemplo obtener los registros cuyo campo fecha esten dentro de esta semana?
Responder Con Cita
  #2  
Antiguo 05-02-2007
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Aunque depende del motor que estés utilizando creo que no existe en general. Pero puedes crear un par de variables acotando la semana dInicio y dFin, que sería el comienzo y final de la semana a consultar y luego mediante:

Código SQL [-]
Where Fecha Between dInicio And dFin

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #3  
Antiguo 05-02-2007
amadis amadis is offline
Miembro
 
Registrado: may 2005
Ubicación: San José, Colón, Entre Ríos, Argentina
Posts: 315
Poder: 20
amadis Va por buen camino
Bueno ahí lo até con alambres, usando Between.

Calculo que dia es segun el numero Ej hoy es Lunes 5 entonces la semana va desde lunes a domingo (lo uso igual al domingo)
Si fuera miercoles la semana siempre es de lunes a domingo entonces calculo que NUMERO fue el lunes y hago Between Lunes a domingo siempre.

Código Delphi [-]

// Datos (Tdatamodule);
// Consulta(TQuery);

 F,F1, F2 : string ;

begin

F := FormatDateTime('dddd',Date);

// inicio determinacion plazo de la semana

If F = 'Lunes' then
               Begin
                F1 := datetostr(Date);
                F2 := datetostr(Date+6);
               End;

If F = 'Martes' then
               Begin
                F1 := datetostr(Date-1);
                F2 := datetostr(Date+5);
               End;

If F = 'Miércoles' then
               Begin
                F1 := datetostr(Date-2);
                F2 := datetostr(Date+4);
               End;

If F = 'Jueves' then
               Begin
                F1 := datetostr(Date-3);
                F2 := datetostr(Date+3);
               End;


If F = 'Viernes' then
               Begin
                F1 := datetostr(Date-4);
                F2 := datetostr(Date+2);
               End;

If F = 'Sabado' then
               Begin
                F1 := datetostr(Date-5);
                F2 := datetostr(Date+1);
               End;

If F = 'Domingo' then
               Begin
                F1 := datetostr(Date-6);
                F2 := datetostr(Date);
               End;

// fin determinacion plazo de la semana

datos.consulta.Active := False;
datos.consulta.SQL.Clear;

Datos.consulta.Params.CreateParam(ftDate, 'F1', ptInput);
Datos.consulta.Params.CreateParam(ftDate, 'F2', ptInput);

datos.consulta.SQL.Append('select nombres,numero,fechapago,importe,paga');
datos.consulta.SQL.Append('from clientes inner join cuotas on clientes.codigo = cuotas.cod_cliente');
datos.consulta.SQL.Append('where fechapago Between Cast(:F1 as SQL_Date)  and Cast(:F2 as SQL_Date)');
datos.consulta.ParamByName('F1').AsDate := strtodate(F1);
datos.consulta.ParamByName('F2').AsDate := strtodate(F2);

Última edición por amadis fecha: 05-02-2007 a las 16:53:49.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Sustituir domino w2k por algo similar en linux josemmerida Linux 2 14-04-2006 02:48:43
Algo de Oracle similar a MSDE. Chojj Oracle 2 04-05-2005 17:46:51
Existe algo similar al DBRadioGroup pero con CheckBox ??? arieliten Varios 1 18-03-2005 23:24:33
HAcer algo similar a la Combinacion de correspondencia de Word oliverinf Impresión 7 27-04-2004 14:51:43
existe algo similar a TFileListBox para Http? miguel_fr Internet 1 14-04-2004 07:15:35


La franja horaria es GMT +2. Ahora son las 00:50:55.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi