Извлечение месяца

← →
Georji (2004-12-30 12:23) [0]

Добрый день! Уважаемые мастера подскажите, пожалуйста, где ошибка:
Table1.FieldByName("mes").Value:=IntToStr(MonthOf(Table1.FieldValues["dotar"]));

← →
Sandman25 © (2004-12-30 12:26) [1]

mes - текстовое поле? Если да, то лучше сделать числовым

← →
Georji (2004-12-30 12:27) [2]

Опишу точнее. Думаю так понятнее, что мне нужно:
procedure TGlav.Button3Click(Sender: TObject);
var MonthOf: word;
begin
with Table1 do
begin
First;
while not EOF do
begin
Table1.Edit;
Table1.FieldByName("mes").Value:=IntToStr(MonthOf(Table1.FieldValues["dotar"]));
Table1.Post;
Next;
end;
end;
end;

← →
Georji (2004-12-30 12:30) [3]

Сделал числовым, все равно та же ошибка: "Missing operator or semicolon"

← →
Anatoly Podgoretsky © (2004-12-30 12:31) [4]

1. Почему ты используеешь переменную как функцию или приведение типа?
2. Ты сообщение об ощибке читал?

← →
Sandman25 © (2004-12-30 12:32) [5]

Это компилируется? Переменная MonthOf - зачем?

MesField, DotarField: TField;

MesField := Table1.FieldByName("mes");
DotarField := Table1.FieldByName("dotar");
try
while not Table1.EOF do
begin
Table1.Edit;
MesField.AsInteger := MonthOf(DotarField.AsDateTime);
Table1.Post;
Table1.Next;
end
except
if Table1.State in dsEditModes then
Table1.Cancel;
raise;
end;

← →
Соловьев © (2004-12-30 12:36) [6]

update table
set mes = extract(month from dotar)

← →
Georji (2004-12-30 12:44) [7]

Спасибо! Всех с наступающим Новым годом!!! Успехов во всех делах!

2Georji (30.12.04 12:23)
Не делай этого вообще. Незачем. 8-)

[8] Sergey13 © (30.12.04 12:48)

Если через BDE, то для группировки нужно поле. group by extract(..) не работает :(
Через ado работает.

← →
Georji (2004-12-30 12:56) [10]

Sergey13 © (30.12.04 12:48) [8]
Sandman25 © (30.12.04 12:50) [9]
Все получилось, в BDE работает так как мне нужно.
Еще раз всем СПАСИБО!

Извлечение месяца Найти похожие ветки