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"

[kiozo]

Empezado por 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"

disculpa mi ignorancia..! soy nueva en esto... pero me podrias dar un ejemplo para crear un indice unico para dos campos..???...en este caso usuario y fecha

[Casimiro Notevi]

No conozco MS Sql, pero supongo que será como cualquier otra BD sql, tendrás una opción para crear índices, le indicas los campos, y listo.

De todas formas, búscate información sobre procedimientos almacenados "store procedure", es mucho más cómodo y rápido hacerlo así que no en delphi.

[kiozo]

Empezado por Casimiro Notevi

No conozco MS Sql, pero supongo que será como cualquier otra BD sql, tendrás una opción para crear índices, le indicas los campos, y listo.

De todas formas, búscate información sobre procedimientos almacenados "store procedure", es mucho más cómodo y rápido hacerlo así que no en delphi.

segui tu consejo..! y logre que funcionara mi proceso..!! gracias..!!

[Casimiro Notevi]

Me alegro mucho

[GerTorresM]

te suguiero que uses esta función - DaysBetween(dtNow, dtBirth);

Código Delphi [-]
 var dtNow, dtBirth : TDateTime;
    DaysFromBirth : integer;

dtNow := Now;
dtBirth := EncodeDate(1973, 1, 29);
DaysFromBirth := DaysBetween(dtNow, dtBirth);

gertorresm
Colombia