Ver Mensaje Individual
  #13  
Antiguo 13-07-2008
Avatar de donald shimoda
donald shimoda donald shimoda is offline
Miembro
 
Registrado: jul 2008
Ubicación: Argentino en Santa Cruz de la Sierra
Posts: 1.083
Reputación: 19
donald shimoda Va por buen camino
Cita:
Empezado por roman Ver Mensaje
Aquí un ejemplo, suponiendo que las fechas inicial y final las tomas de sendos DateTimePicker:
Creo que esta solución mas segura sobre el tipo de dato manejado

Código:
var
  Fecha, FechaFinal: TDate;

begin
  ZQuery1.SQL.Text := 'insert into tabla (empleado, fecha) values(:empleado, :fecha)';

  Fecha := DateTimePicker1.Date;
  FechaFinal := DateTimePicker2.Date;

  while (Fecha < FechaFinal) do
  begin
    ZQuery1.ParamByName('empleado').AsString := 'fernando';
    ZQuery1.ParamByName('fecha').AsDate := Fecha;
    ZQuery1.ExecSQL;
    IncDay(Fecha,1); 
  end;
end;
Mas detalles sobre la función IncDay aqui

HTH
__________________
Donald Shimoda [Team RO] - Blogs: Remobjects Pascal

Última edición por donald shimoda fecha: 13-07-2008 a las 07:53:20. Razón: Agregue data importante
Responder Con Cita