Cita:
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;