|
|
Главная » 2011 » Декабрь » 15 » ФИО Сократить (СократитьИМЯ , резать резалка сокращение)
00:26 ФИО Сократить (СократитьИМЯ , резать резалка сокращение) |
Функция СократитьИмя(ИмяРаботника)
Строка = ИмяРаботника;
Пробел = Найти(Строка," ");
ФамилияИмя = Лев(Строка,Пробел + 1) + ".";
Строка = Сред(Строка,Пробел+1);
Пробел = Найти(Строка," ");
Отчество = Сред(Строка,Пробел+1,1) + ".";
Возврат ФамилияИмя + Отчество
КонецФункции
|
|
Категория: Синтаксис 1С8 |
Просмотров: 1465 |
Добавил: FIERYLIONS
|
|
|
