| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Замена даты в табл.Paradox [D5, D6, Paradox]
z_olga_al © (2003-02-22 09:31:00)Братья по разуму!
Пожалуйста помогите! Есть таблица Paradox, а в ней поле "Date" в формате
принятом в России (**.**.1991); (**.**.1992); Уважаемые мастера,
как составить SQL-запрос или программку, Чтобы программно заменить большое количество
данных соответственно с 1901 на 2001; с 1902 на 2002 ( проблема в том,
что эта таблица создавалась давно и на старой доброй двойке когда еще не существовала проблемма 2000г.)
Ольга.
Anatoly Podgoretsky (2003-02-22 12:50:00) [1]Ну раз ты согласилась, то вот тебе РАБОТАЮЩАЯ процедура
// Table1 - TTable привязанное к нужной таблице.
// Таблица должна быть открыта и пуска поле называется DateX
procedure Form1.Button1Click(Sender: TObject);
const
MaxYearToConvert = 1930;
var
d, m, y: Word;
begin
while not Table1.Eof do begin
DecodeDate(Table1DATEX.Value, y, m, d);
if (y <= MaxYearToConvert) and (y > 0) then begin
Table1.Edit;
Table1DATEX.Value := EncodeDate(y+100, m, d);
Table1.Post;
end;
Table1.Next;
end;
end;
end;
Вот эта будет работать без ошибки с годом.
z_olga_al (2003-02-22 12:05:00) [2]Спасибо Роман! Все чудненько работает.
Заменила все даты. Но почему-то чтобы заменить
2002 нужно вводить на год больше т.е.2003.
А так все ОК! Еще раз с праздником
Романов Р.В. (2003-02-22 10:44:00) [3]Забыл написать. Перед началом цикла нужно переместить курсор на первую запись методом First
Anatoly Podgoretsky (2003-02-22 10:43:00) [4]Она категарически против навигационных методов.
Романов Р.В. (2003-02-22 10:20:00) [5]Как заменить запросом не знаю. Можно пройти по всем записям и заменить нужные.
// Table1 - TTable привязанное к нужной таблице.
// Код не проверял. Могут быть ошибки.
var
d, d1: TDate;
begin
d := EncodeDate(1920, 1, 1);
with Table1 do
begin
if Active and CanModify then
while not Eof do
begin
d1 := FiedByName("Date").AsDateTime;
if d1 < d then
begin
Edit;
FiedByName("Date").AsDateTime := IncMonth(d1, 12 * 100);
Post;
end;
Next;
end;
end;
end;
| |
