Como Saber si una fecha está entre otras dos fechas

[ecfisa]

Hola David.

Intenta de este modo:

Código Delphi [-]
...
  DM.msqry1.Close;
  DM.msqry1.SQL.Clear;
  DM.msqry1.SQL.Add('SELECT * FROM CA_PERIODOSINGRESOS');
  DM.msqry1.SQL.Add('WHERE CAMPO_FECHA BETWEEN :INICIO AND :FIN'); // (*)
  DM.msqry1.ParamByName('INICIO').AsDate := cxDateEdit1.Date;
  DM.msqry1.ParamByName('FIN').AsDate    := cxDateEdit2.Date;
  DM.msqry1.Open;
  if not DM.msqry1.IsEmpty then
    raise Exception.Create('La fecha ya existe');
...

(*) Donde CAMPO_FECHA sería el nombre de la columna a controlar.

Saludos

[davidmedina29]

Empezado por ecfisa

Hola David.

Intenta de este modo:

Código Delphi [-]
...
  DM.msqry1.Close;
  DM.msqry1.SQL.Clear;
  DM.msqry1.SQL.Add('SELECT * FROM CA_PERIODOSINGRESOS');
  DM.msqry1.SQL.Add('WHERE CAMPO_FECHA BETWEEN :INICIO AND :FIN'); // (*)
  DM.msqry1.ParamByName('INICIO').AsDate := cxDateEdit1.Date;
  DM.msqry1.ParamByName('FIN').AsDate    := cxDateEdit2.Date;
  DM.msqry1.Open;
  if not DM.msqry1.IsEmpty then
    raise Exception.Create('La fecha ya existe');
...

(*) Donde CAMPO_FECHA sería el nombre de la columna a controlar.

Saludos

gracias por responder ecfisa pero hay un detalle, el problema es que solo tengo como campos date (Inicio) y (Fin) no tengo otro campo como el que pones CAMPO_FECHA que se puede hacer?

gracias!!

[Casimiro Noteví]

El problema es que no está claro qué tienes y qué quieres.

[davidmedina29]

hola casimiro lo explico otra vez.

tengo una base de datos en sql server con los sig campos: Ejercicio, Periodo, Inicio, Fin.

en Ejercicio tengo un cxCombobox con los sig items: 2014,2015,2016
en Periodo tengo un cxTextEdit que se incrementa en 1, los periodos son: 1, 2, 3 .. etc
en Inicio y Fin tengo dos cxDateEdit en el cual pongo un rango de fechas por ejemplo : Inicio: 20/01/2015, Fin:25/01/2015.

con la BD tengo
msquery en un DM
dataset ligado al msquery en el DM
Msconection ligada a la bd

entonces suponiendo que ya esta dada de alta esa fecha del 20/01/2015 al 25/01/2015, lo que quiero es que si vuelven a ingresar una fecha que este dentro de ese rango por ejemplo 22/01/2015 al 30/01/2015, me marque un error y no deje guardar.
les comparto mi boton guardar.

Código Delphi [-]
procedure TfCatPeriodosInNvo.cxButton1Click(Sender: TObject);
begin
  if cxDateEdit2.Text='' then
    MessageDlg('Falta Fecha Final', mtError, [mbOK], 0)
  else
   if cxDateEdit1.Text='' then
     MessageDlg('Falta Fecha Inivial', mtError, [mbOK], 0)
   else
    if cxComboBox1.Text='' then
      MessageDlg('Falta Ejercicio', mtError, [mbOK], 0)
    else
     if cxTextEdit1.Text='' then
      MessageDlg('Falta Periodo', mtError, [mbOK], 0)
     else
      if (cxDateEdit1.Date) > (cxDateEdit2.Date) then
       MessageDlg('La fecha inicial no puede ser mayor a la final', mtError, [mbOK], 0)
      else
       if yearof(cxDateEdit1.Date)<>cxComboBox1.EditValue then
          MessageDlg('La fecha no coincide con el ejercicio', mtError, [mbOk], 0)
          //raise Exception.Create('La fecha no coincide con el ejercicio');
       else
         if yearof(cxDateEdit2.Date)<>cxComboBox1.EditValue then
            MessageDlg('La fecha no coincide con el ejercicio', mtError, [mbOk], 0)
         else
  begin
   if DM.msqry1.State=dsInsert then
    begin
     DM.msqry1.FieldByName('Ejercicio').AsString := cxComboBox1.Text;
     DM.msqry1.FieldByName('Periodo').AsString := cxTextEdit1.Text;
     DM.msqry1.FieldByName('Inicio').AsString := cxDateEdit1.Text;
     DM.msqry1.FieldByName('Fin').AsString := cxDateEdit2.Text;
     DM.msqry1.Post;
      MessageDlg('Dato Guardado', mtInformation, [mbOK], 0);
      fCatPeriodosInNvo.Close;
     end
    else
   begin
    if dm.msqry1.State=dsEdit then
    DM.msqry1.FieldByName('Inicio').AsDateTime:=cxDateEdit1.Date;
    DM.msqry1.FieldByName('Inicio').AsDateTime:= cxDateEdit2.Date;
    DM.msqry1.Post;
     MessageDlg('Ingreso Guardado', mtInformation, [mbOK], 0);
      fCatPeriodosInNvo.Close;
    end
   end
  end;

si me ayudan se los agradecere mucho!!

[Casimiro Noteví]

Entonces, tienes una tabla con los campos: ... inicio, fin, ...
1. El usuario escribe 2 fechas (inicio y fin)
Quieres saber si no hay ningún registro que tengan esas 2 fechas, la de inicio y las de fin

Código SQL [-]
select count(*) from tabla where inicio=fechaINIusuarioi and fin=fechaFINusuario

Si devuelve mayor de cero es que hay algún registro con esas fechas.

2. El usuario escribe 1 fecha.
Quieres saber que no esté comprendida entre "inicio" y "fin" en ningún registro.

Código SQL [-]
select count(*) from tabla where fechausuario >= inicio  and  fechausuario <= fin

Si devuelve mayor de cero es que esa fecha está comprendida entre las fechas inicio y fin de algún registro.

O acaso quieres una 3 opción:
3. El usuario escribe 2 fechas.
Quieres saber que fechaINIusuario >= inicio de cualquier registro Y fechaFINusuario<=fin de cualquier registro

Y si es otra cosa lo que quieres hacer, tendrás que explicarlo de otra forma.