Имя: Пароль:
1C
 
Перевод числа из 16-ричной системы в 10-чную
0 AntonU
 
09.02.07
13:24
Есть ли функция в 1С 8.0 ?
1 dimoff
 
09.02.07
13:29
Странный вопрос: все функции описаны в синтакс-помощнике. Да и написать вроде 5 минут.
2 Господин ПЖ
 
09.02.07
13:31
(1) Настоящие индейцы берут исходник с sinor.ru и переписывают с 7.7 на 8.0.
3 jcage
 
09.02.07
13:33
(2) неправда. Настоящие индейцы делают SQL функции и обращются к ним в прямых запросах.

CREATE FUNCTION ConvSyst10(@num varchar(99), @syst int)
RETURNS bigint
AS
BEGIN
 declare @i bigint,@c int
 SELECT @i=0,@num = UPPER(@num)
 while @num<>''
   select @c=ascii(LEFT(@num,1),
            @i=case when @c>57
                  then @c-55
                  else @c-48 end *power(@syst,len(@num)-1) +@i,  
            @num=right(@num,len(@num)-1)
 return @i
END
4 Господин ПЖ
 
09.02.07
13:40
(3) Зачот.
5 Ковычки
 
09.02.07
14:15
настоящие индейцы делают так

//*******************************************
Процедура Сформировать()
   Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   Числ=Скрипт.Eval("new Number(1234567)");
   Сообщить("Это 16-и " + Числ.toString(16));
   Сообщить("Это 8-и " + Числ.toString(8));
   Сообщить("Это 2-у " + Числ.toString(2));
КонецПроцедуры
6 Ковычки
 
09.02.07
14:19
Вернее

//*******************************************
Процедура Сформировать()
   Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   Числ=Скрипт.Eval("new Number(1234567)");
   Сообщить("Это 16-и " + Числ.toString(16));
   Сообщить("Это 8-и " + Числ.toString(8));
   Сообщить("Это 2-у " + Числ.toString(2));
   Числ=Скрипт.Eval("0xffffffff");
   Сообщить("Это из 16-ти в 10-ти " +Числ);
КонецПроцедуры
7 France
 
09.02.07
14:20
настоящих индейцев проблемы бледнолицых юношей не интересуют.