|
|
Перевод числа из 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
|
настоящих индейцев проблемы бледнолицых юношей не интересуют.
|
|