Cita:
Empezado por roman
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