Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
21 сен 2024, 10:28

Поиск Максимального и Минимального числа, и вывод их даты

Автор AlexWitcher, 03 фев 2019, 20:14

0 Пользователей и 1 гость просматривают эту тему.

antoneus

Цитата: AlexWitcher от 05 фев 2019, 18:51МаксимальнаяЦена = ТЗ[0].Числа;

А вот и не все, колонки "Числа" не вижу.

AlexWitcher

Цитата: antoneus от 05 фев 2019, 21:36
Цитата: AlexWitcher от 05 фев 2019, 18:51МаксимальнаяЦена = ТЗ[0].Числа;

А вот и не все, колонки "Числа" не вижу.
Я изменил просто, в коде написано МаксимумОсадков = ТЗ[0].Осадки;
1 колонка - дата, 2 - осадки
переменную тоже поменял, но это не имеет значения

antoneus

Чудес не бывает, прикрепи обработку, посмотрю.

AlexWitcher

Цитата: antoneus от 05 фев 2019, 21:47
Чудес не бывает, прикрепи обработку, посмотрю.
https://yadi.sk/d/jZLqvAxMbDqxzQ
Добавлено: 05 фев 2019, 22:06


Цитата: antoneus от 05 фев 2019, 21:47
Чудес не бывает, прикрепи обработку, посмотрю.
Да я сам прекрасно понимаю, что где то с моей стороны косяк, я 1ый раз с ТаблицейЗначений работаю

antoneus

Уже есть ТЗНаФорме, не надо создавать какую-то левую ТЗ без колонок и пытаться что-то с ней делать)

&НаСервере
Процедура ТЗ()

Для каждого СтрокаТЗ из ТЗНаФорме Цикл
Сообщить("Дата: " + Строка(СтрокаТЗ.Дата) + "." + "Осадки: " + СтрокаТЗ.Осадки);
КонецЦикла;
ТЗНаФорме.Сортировать("Дата Убыв ,Осадки Убыв");
МаксимумОсадков = ТЗНаФорме[0].Осадки;

Сообщить("Максимальное число осадков: " + МаксимумОсадков);

КонецПроцедуры


И да, на сервер необязательно ходить для этого, на клиенте все прекрасно работает.

AlexWitcher

Цитата: antoneus от 05 фев 2019, 22:34
Уже есть ТЗНаФорме, не надо создавать какую-то левую ТЗ без колонок и пытаться что-то с ней делать)

&НаСервере
Процедура ТЗ()

Для каждого СтрокаТЗ из ТЗНаФорме Цикл
Сообщить("Дата: " + Строка(СтрокаТЗ.Дата) + "." + "Осадки: " + СтрокаТЗ.Осадки);
КонецЦикла;
ТЗНаФорме.Сортировать("Дата Убыв ,Осадки Убыв");
МаксимумОсадков = ТЗНаФорме[0].Осадки;

Сообщить("Максимальное число осадков: " + МаксимумОсадков);

КонецПроцедуры


И да, на сервер необязательно ходить для этого, на клиенте все прекрасно работает.
Эхх, ну учиться никогда не поздно :befhbt: :D
Добавлено: 05 фев 2019, 23:06


Цитата: antoneus от 05 фев 2019, 22:34
Уже есть ТЗНаФорме, не надо создавать какую-то левую ТЗ без колонок и пытаться что-то с ней делать)

&НаСервере
Процедура ТЗ()

Для каждого СтрокаТЗ из ТЗНаФорме Цикл
Сообщить("Дата: " + Строка(СтрокаТЗ.Дата) + "." + "Осадки: " + СтрокаТЗ.Осадки);
КонецЦикла;
ТЗНаФорме.Сортировать("Дата Убыв ,Осадки Убыв");
МаксимумОсадков = ТЗНаФорме[0].Осадки;

Сообщить("Максимальное число осадков: " + МаксимумОсадков);

КонецПроцедуры


И да, на сервер необязательно ходить для этого, на клиенте все прекрасно работает.
Все больше вопросов, и все меньше ответов. Сортировка по убыванию заработала, но как мне тогда вывести год для этой строки осадков? Как то с индексом работать, или есть способ по проще?

antoneus


wise

(0)

    Для i = 1 По 5 Цикл
        ВвестиДату(Дата, "Введите дату: ");
        ВвестиЧисло(Значение, "Введите значение для даты: ");
        if i<2 then
            МаксЗначение = Значение;
            МинЗначение = Значение;
            МаксДата = Дата;
            МинДата = Дата;
        else
            МаксЗначение = Макс(Значение, МаксЗначение);
            МинЗначение = Мин(Значение, МинЗначение);
            МаксДата = Макс(Дата, МаксДата);
            МинДата = Мин(Дата, МинДата);
        endif;
    КонецЦикла;


на выходе у Вас УЖЕ всё есть...
Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск