Помогите, пожалуйста, высчитать средний балл

[cska-fanat-kz]

пусть у вас в документа 31 колонка типа число для оценок К1-К31
и реквизит шапки Месяц типа дата
тогда среднюю считаем:
СтрокаТЧ = Элементы.ТЧОценок.ТекущиеДанные;

мКоличествоДнейВТекущемМесяце = День(КонецМесяца(Месяц));
мСуммаВсехОценок = 0;
мКоличествоДнейСОценками = 0;
Для Ш=1 По мКоличествоДнейВТекущемМесяце Цикл
    Если СтрокаТЧ["К"+Строка(Ш)] <> 0 Тогда
        мСуммаВсехОценок = мСуммаВсехОценок + СтрокаТЧ["К"+Строка(Ш)];
        мКоличествоДнейСОценками = мКоличествоДнейСОценками + 1;
    КонецЕсли;
КонецЦикла;

Если мКоличествоДнейСОценками <> 0 Тогда
    Сообщить("Средний балл - "+Строка(мСуммаВсехОценок/мКоличествоДнейСОценками));
КонецЕсли;

[Willy Moon]

пусть у вас в документа 31 колонка типа число для оценок К1-К31
и реквизит шапки Месяц типа дата
тогда среднюю считаем:
СтрокаТЧ = Элементы.ТЧОценок.ТекущиеДанные;

мКоличествоДнейВТекущемМесяце = День(КонецМесяца(Месяц));
мСуммаВсехОценок = 0;
мКоличествоДнейСОценками = 0;
Для Ш=1 По мКоличествоДнейВТекущемМесяце Цикл
    Если СтрокаТЧ["К"+Строка(Ш)] <> 0 Тогда
        мСуммаВсехОценок = мСуммаВсехОценок + СтрокаТЧ["К"+Строка(Ш)];
        мКоличествоДнейСОценками = мКоличествоДнейСОценками + 1;
    КонецЕсли;
КонецЦикла;

Если мКоличествоДнейСОценками <> 0 Тогда
    Сообщить("Средний балл - "+Строка(мСуммаВсехОценок/мКоличествоДнейСОценками));
КонецЕсли;

Большое спасибо, работает:)

[дфтын]

Боже мой куда делось образование люди среднее посчитать не могут. извините. просто у меня такаяже проблема. подаваны не умеют считать срденее.

[Дмитрий@]

Цитата: Дмитрий@ от Сегодня в 11:38
Тот код который я кинул в предыдущем сообщении, он что не работает?
К сожалению, нет

А более подробно можно, там вроде все хорошо, на какой строке выскакивает ошибка, и какая?