ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / 1C Программирование
6 сообщений из 6, страница 1 из 1
1C Программирование
    #36113073
robocip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
robocip
Участник
Если Месяц(Стр.ДатаРождения) = 1 Тогда
Выб.Параметры.др = "" + День(Стр.ДатаРождения) + " Января";
Об8.Параметры.др = "" + День(Стр.ДатаРождения) + " Января";
Об9.Параметры.группа = "Январь";
ИначеЕсли Месяц(Стр.ДатаРождения) = 2 Тогда
Выб.Параметры.др = "" + День(Стр.ДатаРождения) + " Февраля";
Об8.Параметры.др = "" + День(Стр.ДатаРождения) + " Февраля";
Об9.Параметры.группа = "Февраль";
ИначеЕсли Месяц(Стр.ДатаРождения) = 3 Тогда
Выб.Параметры.др = "" + День(Стр.ДатаРождения) + " Марта";
Об8.Параметры.др = "" + День(Стр.ДатаРождения) + " Марта";
Об9.Параметры.группа = "Март";
ИначеЕсли Месяц(Стр.ДатаРождения) = 4 Тогда
Выб.Параметры.др = "" + День(Стр.ДатаРождения) + " Апреля";
Об8.Параметры.др = "" + День(Стр.ДатаРождения) + " Апреля";
Об9.Параметры.группа = "Апрель";
ИначеЕсли Месяц(Стр.ДатаРождения) = 5 Тогда
Выб.Параметры.др = "" + День(Стр.ДатаРождения) + " Мая";
Об8.Параметры.др = "" + День(Стр.ДатаРождения) + " Мая";
Об9.Параметры.группа = "Май";
ИначеЕсли Месяц(Стр.ДатаРождения) = 6 Тогда
Выб.Параметры.др = "" + День(Стр.ДатаРождения) + " Июня";
Об8.Параметры.др = "" + День(Стр.ДатаРождения) + " Июня";
Об9.Параметры.группа = "Июнь";
ИначеЕсли Месяц(Стр.ДатаРождения) = 7 Тогда
Выб.Параметры.др = "" + День(Стр.ДатаРождения) + " Июля";
Об8.Параметры.др = "" + День(Стр.ДатаРождения) + " Июля";
Об9.Параметры.группа = "Июль";
ИначеЕсли Месяц(Стр.ДатаРождения) = 8 Тогда
Выб.Параметры.др = "" + День(Стр.ДатаРождения) + " Августа";
Об8.Параметры.др = "" + День(Стр.ДатаРождения) + " Августа";
Об9.Параметры.группа = "Август";
ИначеЕсли Месяц(Стр.ДатаРождения) = 9 Тогда
Выб.Параметры.др = "" + День(Стр.ДатаРождения) + " Сентября";
Об8.Параметры.др = "" + День(Стр.ДатаРождения) + " Сентября";
Об9.Параметры.группа = "сентябрь";
ИначеЕсли Месяц(Стр.ДатаРождения) = 10 Тогда
Выб.Параметры.др = "" + День(Стр.ДатаРождения) + " Октября";
Об8.Параметры.др = "" + День(Стр.ДатаРождения) + " Октября";
Об9.Параметры.группа = "Октябрь";
ИначеЕсли Месяц(Стр.ДатаРождения) = 11 Тогда
Выб.Параметры.др = "" + День(Стр.ДатаРождения) + " Ноября";
Об8.Параметры.др = "" + День(Стр.ДатаРождения) + " Ноября";
Об9.Параметры.группа = "Ноябрь";
ИначеЕсли Месяц(Стр.ДатаРождения) = 12 Тогда
Выб.Параметры.др = "" + День(Стр.ДатаРождения) + " Декабря";
Об8.Параметры.др = "" + День(Стр.ДатаРождения) + " Декабря";
Об9.Параметры.группа = "Декабрь";
КонецЕсли;

1С 8. Имеется вот такое нелепый и громоздкий код, надо какимто образом сделать чтобы он выглядел прилично, тоесть не миллион условий списком, а какнить профессионально. Не подскажите как ?

ЗЫ: Товарищам которые вместо помощи хотят поехидничать, просьба не писать!!!
...
Рейтинг: 0 / 0
28.07.2009, 12:34
| Ответить | Цитировать | Написать  
1C Программирование
    #36113085
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Господин ПЖ
Участник
Формат(Стр.ДеньРождения, "ДЛФ=DD");

ну и через Лев() обрезать " 2009 г."
...
Рейтинг: 0 / 0
28.07.2009, 12:39
| Ответить | Цитировать | Написать  
1C Программирование
    #36113116
Алексей2003
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей2003
Участник
Код: plaintext
1.
2.
3.
Строка = Формат(Стр.ДатаРождения, "ДЛФ=DD");
Выб.Параметры.др = ТРег(Лев(Строка, Найти(Строка, " ")) + Лев(Сред(Строка, Найти(Строка, " ") +  1 ), Найти(Сред(Строка, Найти(Строка, " ") +  1 ), " ")- 1 ));
Об8.Параметры.др = Выб.Параметры.др;
Об9.Параметры.Группа = Формат(Стр.ДатаРождения, "MMMM");

для спящего время бодрствования равносильно сну
...
Рейтинг: 0 / 0
28.07.2009, 12:50
| Ответить | Цитировать | Написать  
1C Программирование
    #36113132
_VVP_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_VVP_
Участник
robocip,
1. Посмотреть в сторону ф-ции Формат(<Значение>, <Форматная строка>)
2.Например:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
МесяцыВП = Новый Структура("М1,М2,М3,М4,М5,М6,М7,М8,М9,М10,М11,М12","Января,Февраля,Марта,Апреля,Мая,Июня,Июля,Августа,Сентября,Октября,Декабря");
МесяцыИП = Новый Структура("М1,М2,М3,М4,М5,М6,М7,М8,М9,М10,М11,М12","Январь,Февраль,Март,Апрель,Май,Июнь,Июль,Август,Сентябрь,Октябрь,Декабрь");

МесяцКод = "М"+Строка(Месяц(Стр.ДатаРождения));
МесяцыВП.Свойство(МесяцКод,СтрокаМесяц);
СтрокаДР = "" + День(Стр.ДатаРождения) + СтрокаМесяц;
Выб.Параметры.др = СтрокаДР;
Об8.Параметры.др = СтрокаДР;
МесяцыИП.Свойство(МесяцКод,Об9.Параметры.группа);
...
Рейтинг: 0 / 0
28.07.2009, 12:57
| Ответить | Цитировать | Написать  
1C Программирование
    #36113645
robocip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
robocip
Участник
Всем спасибо, разберусь )
...
Рейтинг: 0 / 0
28.07.2009, 15:30
| Ответить | Цитировать | Написать  
1C Программирование
    #36119362
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
отпад )
а в хелпе все написано ;-)
...
Рейтинг: 0 / 0
31.07.2009, 08:49
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / 1C Программирование
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=28&msg=36119362&tid=1523488]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 154ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 209ms
total:  418ms
созд. / загр.: 418ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]