Есть ли у числа дробная часть?

Подскажите, как узнать, есть ли у числа дробная часть или нет, например 2 – нет дробнойчасти, 2,5 – есть?
Примерно так:
Если (число-Окр(Число))<>0 тогда
флДробЧасть = 1;
Иначе
флДробЧасть = 0;
КонецЕсли;
Вместо функции Окр можно использовать функцию Цел.

Комментарии | опубликовано: 12 Сентябрь 2007, 10:37

Как получить список всех констант конфигурации?

Подскажите, пожалуйста, можно ли в 1С программно открыть список констант?
Открыть программно нельзя, но если есть такая необходимость, то можно сделать свою форму, на форму выложить таблицу значений, и заполнить ее константами.
Примерно так:
//ТЗ – таблица значений на форме
Процедура ПриОткрытии()
Для Инд=1 По Метаданные.Константа() Цикл
ТЗ.НоваяСтрока();
ТЗ.Идент=Метаданные.Константа(Инд).Идентификатор;
ТЗ.Комментарий=Метаданные.Константа(Инд).Комментарий;
КонецЦикла;
КонецПроцедуры;

Комментарии | опубликовано: 12 Сентябрь 2007, 10:37

Как узнать номер квартала

Подскажите, пожалуйста, как узнать номер квартала в 1с 7.7?
НомерКвартала=Цел((ДатаМесяц(НачКвартала(ТекущаяДата()))+2)/3);

Комментарии | опубликовано: 7 Сентябрь 2007, 10:31


<--- Предыдущая страница Следующая страница --->