AXForum  
Вернуться   AXForum > Microsoft Dynamics NAV > NAV: Программирование
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 14.01.2010, 15:04   #1  
Storkich is offline
Storkich
Участник
 
149 / 10 (1) +
Регистрация: 08.03.2007
Оффтоп, но выкладываю чтоб было
Функция перевода координат из X Y в A1

Код:
RC(Row : Integer;Col : Integer) : Code[10]
// 65 - код символа 'A' , 64 - код символа '@'
Col -= 1;
// Col - смещение относительно символа 'A'
Ch2 := 65 + Col MOD 26;
Ch1 := 64 + Col DIV 26;
EXIT(DELCHR(STRSUBSTNO('%1%2%3',Ch1,Ch2,Row),'=','@'));
Ни единого IF !
 

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 03:36.