Преобразование Hex To Decimal Для @-формул

phantom76

Well-Known Member
Lotus team
25.02.2005
360
9
41
RU г.Москва
#1
может кто уже писал подобныую формулу?

Надо преобразовать значение техстового поля из HEX в Decimal на языке @-формул, или буду изобретать велосипед.
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#2
Скопипащено.
Преобразование чисел в 16-ричные коды (строки) и обратно
Две приводимые ниже функции решают утилитарные задачи
Вызывает интерес математические приемы их решения

SourceNumber - целое беззнаковое 4-х байтное число, а его 16-ричный код (SourceHexCode), соответственно, восьмизначный.

dec := @Explode ("0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15");
hex := @Explode ("0 1 2 3 4 5 6 7 8 9 A B C D E F");
base := @Power (16; 7:6:5:4:3:2:1:0);

nn := SourceNumber;
hh := @Implode (@Replace (@Text (@Modulo (nn / base; 16)); dec; hex); "");

hh := SourceHexCode;
nn := @Sum (base * @TextToNumber (@Explode (@ReplaceSubstring (@Right("00000000" + @UpperCase (hh); 8); hex; dec + " "))));