Бесплатные уроки по 1С

Как проверить на целое число в 1С 8 8.2 8.3? &НаСервере Функция ПроверитьЧислоНаЦелое(ПроверяемоеЧисло) Возврат ПроверяемоеЧисло = Цел(ПроверяемоеЧисло); КонецФункции Для «Обычных форм» Функция ПроверитьЧислоНаЦелое(ПроверяемоеЧисло) Возврат ПроверяемоеЧисло = Цел(ПроверяемоеЧисло); КонецФункции Применение функции на практике: &НаКлиенте Процедура ПроверкаЦеныНацелое(); Для Каждого СтрокаТЧ Из Объект.ТЧ Цикл Если ПроверитьЧислоНаЦелое(СтрокаТЧ.Цена) <> Истина Тогда Сообщить(«Обнаружена не точная цена: » + СтрокаТЧ.Номенклатура + » … Читать далее

Как проверить на четное число в 1С 8 8.2 8.3? &НаСервере Функция ПроверитьЧетноеЧисло(ПроверяемоеЧисло) Число = ПроверяемоеЧисло%2=0; Возврат Число; КонецФункции Ниже пример использования функции на четное число. &НаКлиенте Процедура СтрокиПроверитьНаЧет(); Для Каждого СтрокаТЧ Из Объект.ТЧ Цикл // ПроверитьЧетноеЧисло(СтрокаТЧ.НомерСтроки); //Сообщить(ПроверитьЧетноеЧисло(СтрокаТЧ.НомерСтроки)); Если ПроверитьЧетноеЧисло(СтрокаТЧ.НомерСтроки) = Истина Тогда Сообщить(«Четное :» + СтрокаТЧ.НомерСтроки); КонецЕсли; КонецЦикла КонецПроцедуры // Сама функция проверки на … Читать далее