guardar y determinar días entre rango de fechas..!!

[kiozo]

hola que tal espero me puedan ayudar con mi problema!!

tengo una tabla que se llama viaticos..!! manejo fecha_inicial y fecha_final de los dias que el empleado saldra...!! si su fecha_inicial es el 07/03/2010 y fecha_final 10/03/2010 ..necesito guardar las fechas entre esos dias..! para el determinado empleado...!!

que se guarden..!

07/03/2010
08/03/2010
09/03/2010
10/03/2010...

espero su ayuda..!!

[Casimiro Notevi]

¿Lo quiéres en delphi?, ¿en sql?, si es en sql, ¿para qué base de datos?

[kiozo]

lo quiero en delphi7... estoy manejando sql server 2000!!

[Casimiro Notevi]

Lo mejor en este caso es hacerlo desde la base de datos, mediante un procedimiento o trigger, aunque desde delphi puedes hacerlo usando un bucle que vaya aumentando la fecha inicial hasta que se iguale con la fecha final, para ello puedes usar la función: IncDay
Le pasas una fecha y el número de días que quieres aumentarla y te devuelve esa fecha que corresponda,

fechamanana := IncDay(fechahoy,1);

[MAXIUM]

Empezado por Casimiro Notevi

fechamanana := IncDay(fechahoy,1);

Código Delphi [-]
fechaayer := IncDay(fechahoy,-1);

[kiozo]

Empezado por Casimiro Notevi

Lo mejor en este caso es hacerlo desde la base de datos, mediante un procedimiento o trigger, aunque desde delphi puedes hacerlo usando un bucle que vaya aumentando la fecha inicial hasta que se iguale con la fecha final, para ello puedes usar la función: IncDay
Le pasas una fecha y el número de días que quieres aumentarla y te devuelve esa fecha que corresponda,

fechamanana := IncDay(fechahoy,1);

Encontre una manera de hacerlo... pero ahora el problema es como comparar las fechas para que no me guarde fechas repetidas de un empleado...! trabaje con un memo no se si haya otra forma de hacerlo..!

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  FechaIni,FechaFin: Tdatetime;
  Fecha: string;
begin
   ShortDateFormat := 'dd/mm/yyyy';
  fechaIni :=  strtodate('07/03/2010');
  fechaFin := strtodate('10/03/2010');
   for i := trunc(fechaIni) to trunc(FechaFin) do
  begin
    Fecha  := datetostr(i);
    Memo1.lines.Add(fecha)
  end;
end;

[Casimiro Notevi]

Si lo vas a guardar en la base de datos, no tienes problemas ya que puedes crear un campo índice y único para el par de campos "usuario" y "fecha"