Как посчитать среднеарифметическое

← →
OlegM © (2003-03-21 14:00) [0]

Привет всем!
Есль поле в таблице по нему надо порсчитать среднее значение всех чисел, как?

← →
MBo © (2003-03-21 14:04) [1]

Издеваешься, что ли? В школе учился?
сложи все и раздели на количество.

← →
Darkwin © (2003-03-21 14:05) [2]

сумму чисел поделить на их колличество

← →
Витал © (2003-03-21 14:06) [3]

COMPUTE Clause
Generates totals that appear as additional summary columns at the end of the result set. When used with BY, the COMPUTE clause generates control-breaks and subtotals in the result set. You can specify COMPUTE BY and COMPUTE in the same query.

Syntax
[ COMPUTE
{ { AVG | COUNT | MAX | MIN | STDEV | STDEVP
| VAR | VARP | SUM }
( expression ) } [ ,...n ]
[ BY expression [ ,...n ] ]
]

← →
OlegM © (2003-03-21 14:11) [4]

Да не знаю, что так можно. Есть ли функция типа Mean, она то только для массивов.

← →
Anatoly Podgoretsky © (2003-03-21 14:11) [5]

query сюда не надо привязывать, речь не о таблица в базе данных, даже если и о них, то вопрос это замалчивает

← →
asafr © (2003-03-21 14:14) [6]

select AVG(Field1) from Table1

← →
OlegM © (2003-03-21 14:23) [7]

Спасибочки!
Но это SQL а в самой Delphi нет такой функции?

← →
Palladin © (2003-03-21 14:29) [8]

как ты ее себе представляешь?

Беспонятия

function DataSetAvg(p_DataSet:TCustomDataSet;p_strFieldName):extendet;
var
Counter:integer;
begin
Counter:=0;
result:=0;
p_DataSet.First;
while not p_DataSet.Eof do
begin
result:=result+p_DataSet.FieldByName(p_strFieldName).AsCurrency;
Counter:=Counter+1;
p_DataSet.Next;
end;
result:=result/counter;
end;

за приколы с курсором во время вычислений не отвечаю

>за приколы с курсором во время вычислений не отвечаю
DisableControls/EnableControls

У TClientDataSet кстати есть замечательное св-во Aggregates, там в Expression можно использовать Avg(имя поля)

Как посчитать среднеарифметическое Найти похожие ветки