Como Saber si una fecha está entre otras dos fechas

[[AgustinOrtu]]

Bienvenido

Lo que comento el compañero BDWONG es correcto, ya que es una de las posibles soluciones

Hay varias formas de solucionar tu problema: Bloquear la insercion cuando la fecha ya existe

Podes validar en el nivel de la base de datos: con triggers o definiendo una clave
Podes validar a nivel de DataSet (si es que usas DataSets para insertar), mediante los eventos, por ejemplo BeforePost
Podes lanzar una consulta (Query) entre esas fechas: si devuelve algo significa que "esta ocupado", si no, esta disponible
Podes recorrer un DataSet y usar la funcion DaysBetween
...

Cual es la mas apropiada solamente podes decirlo vos ya que no sabemos como funciona tu aplicacion; no sabemos si programas a nivel de base de datos (stored procedures, triggers, etc), a nivel de servidor de aplicaciones, si trabajas con dataset o combinas query + comands; no sabemos que base de datos estas usando; no sabemos si se ejecutan operaciones en concurrente; y un largo etc

No es un regaño, simplemente que es imposible responder con precision cuando la pregunta no es precisa. A veces nos dan la respuesta no de la manera en que esperamos, pero un ejemplo o caso similar y esta en nosotros el entenderlo, asimilarlo y aplicarlo

El titulo y consulta de tu pregunta es "Como Saber si una fecha está entre otras dos fechas" y eso se puede hacer con DaysBetween, con CompareDate, con InRange, y seguro muchas mas formas que desconozco

[ecfisa]

Hola davidmedina29.

No está del todo claro si la consulta es como verificar si una fecha está entre otras dos (como dice el título de tu primer mensaje), o verificar si una fecha ya existe en la base de datos (como dice el texto de tu segundo mensaje).

En el primer caso, el tipo TDate se puede comparar por <, >, =, <=, >=, sea directamente sobre los valores o haciendote una función si la reutilización lo amerita:

Código Delphi [-]
function IsDateBetweenDates(const CurrentDate, FromDate, ToDate: TDate): Boolean;
begin
  Result := (CurrentDate >= FromDate) and (CurrentDate <= ToDate);
end;

En el segundo caso, como te ha comentado Agustín, deberías dar toda la información sobre el gestor de BD y componentes con que estas trabajando para poder darte una respuesta concreta. (ver un poco del código que usas tampoco nos vendría mal).

Saludos

[davidmedina29]

Buen dia una disculpa si no me explique bien, uso delphi 7 y sql server, mi idea es que al momento de dar click en guardar me lanze un mensaje de error si es que el rango de las dos fechas que pongo ya existe en la BD, aqui les dejo el codigo del boton guardar.

Código Delphi [-]
with msqry1 do  // en esta parte esta la idea de lo que quiero hacer pero no estabien.
  begin
      close;
      SQL.Clear;
      sql.Add(('Select*From CA_PERIODOSINGRESOS Between :Inicio and :Fin'));
      msqry1.ParamByName('Inicio').AsDate:=cxDateEdit1.Date;
      msqry1.ParamByName('Fin').AsDate:=cxDateEdit2.Date;
      Open;
  end;
  if not msqry1.IsEmpty then
      MessageDlg('La fecha ya existe', mtError, [mbOK], 0) 
      else
  if cxDateEdit2.Text='' then
    begin
        MessageDlg('Falta Fecha Final', mtError, [mbOK], 0);
      end
  else
    if cxDateEdit1.Text='' then
      begin
        MessageDlg('Falta Fecha Inivial', mtError, [mbOK], 0);
        end
      else
      if cxComboBox1.Text='' then
        begin
          MessageDlg('Falta Ejercicio', mtError, [mbOK], 0);
          end
        else
        if cxTextEdit1.Text='' then
          begin
            MessageDlg('Falta Periodo', mtError, [mbOK], 0)
            end
          else
          if (cxDateEdit1.Date) > (cxDateEdit2.Date) then
            begin
              MessageDlg('La fecha inicial no puede ser mayor a la final', mtError, [mbOK], 0)
              end
             else
    begin
      DM.msqry1.Append;
      DM.msqry1.FieldByName('Ejercicio').AsString := cxComboBox1.Text;
      DM.msqry1.FieldByName('Periodo').AsString := cxTextEdit1.Text;
      DM.msqry1.FieldByName('Inicio').AsDateTime := cxDateEdit1.Date;
      DM.msqry1.FieldByName('Fin').AsDateTime := cxDateEdit2.Date;
      DM.msqry1.Post;
      DM.msqry1.SQL.Add('order by Periodo');
      MessageDlg('Dato Guardado', mtInformation, [mbOK], 0);
      fCatPeriodosInNvo.Close;
        cxTextEdit1.Clear;
        cxDateEdit1.Clear;
        cxDateEdit2.Clear;
      end;
end;

Alguna sugerencia? se los agradeceria mucho.
Saludos!!

[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!!

[[AgustinOrtu]]

Bien pero cual es el problema? Da error en algun punto? El query no devuelve los resultados esperados?

Has depurado tu programa?

[davidmedina29]

Gracias por sus respuestas, no estaba tan perdido ecfisa pero el detalle que no tengo esa columna de campo_fecha debe de tener solo fecha inicial y fecha final entonces ahi esta el detalle amigo mi base de datos cuenta con 4 campos: Ejercicio, Periodo, Inicio y Fin no le puedo meter otro campo. que podria hacer ahi

Saludos y gracias de nuevo por responder!!