1. append from table1 fields field1, field2, ..., date()
Если таблица, в которую кидаем записи привязана к БД, то поставить в качестве дефалтного значения для этого поля date(), тогда при добавлении записи оно само будет заполняться текущей датой.

2.1 Select field1, field2, ..., date() as field_date from table1 where условие into cursor t0
sele table2
append from dbf('t0')

2.2. Для VFP 6 не будет работать
insert into table2 (field1, field2, ..., field_data) select field1, field2, ..., date() from table1 where условие