Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / 1C Программирование / 6 сообщений из 6, страница 1 из 1
28.07.2009, 12:34
    #36113073
robocip
robocip
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1C Программирование
Если Месяц(Стр.ДатаРождения) = 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:39
    #36113085
Господин ПЖ
Господин ПЖ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1C Программирование
Формат(Стр.ДеньРождения, "ДЛФ=DD");

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

для спящего время бодрствования равносильно сну
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2009, 12:57
    #36113132
_VVP_
_VVP_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1C Программирование
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, 15:30
    #36113645
robocip
robocip
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1C Программирование
Всем спасибо, разберусь )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2009, 08:49
    #36119362
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1C Программирование
отпад )
а в хелпе все написано ;-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / 1С [игнор отключен] [закрыт для гостей] / 1C Программирование / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 440ms
Закрыть
start [/forum/topic.php?fid=28&mobile=1&tid=1523488]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 152ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 206ms
total:  440ms
x
x
Закрыть


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