Блин уже надоело искать эту ф-цию! CDec(Expression) не помогает, так как в хексе и буквы! А как заставить его распознавать их как число??? Хожу окольными путями... Так надоело! Подскажите что-нибудь, знатоки!

| Сообщение посчитали полезным:

SeQuick

Val("&H" & Expression)

| Сообщение посчитали полезным:

Я VB не знаю, но вот как это на паскале:

function StrToInt(s:PChar):integer;
var i,r,expo:integer; bitMin,bitHex:boolean;
begin
r:=0;
i:=0;
while s[i]=' ' do inc(i);
bitMin:=(s[i]='-');
if bitMin then inc(i);
bitHex:=(s[i]='$');
if bitHex then inc(i,1);
if bitHex
then expo:=16
else expo:=10;
if i<lstrlen(s) then begin
while
(byte(s[i])>=byte('0'))and(byte(s[i])<=byte('9'))or
bitHex and(byte(s[i])>=byte('A'))and(byte(s[i])<=byte('F'))or
bitHex and(byte(s[i])>=byte('a'))and(byte(s[i])<=byte('f')) do begin
case s[i] of
'0'..'9':r:=r*expo+(integer(s[i])-integer('0'));
'A','a':r:=r*expo+10;
'B','b':r:=r*expo+11;
'C','c':r:=r*expo+12;
'D','d':r:=r*expo+13;
'E','e':r:=r*expo+14;
'F','f':r:=r*expo+15;
end;
inc(i);
end;
if s[i]=''
then Result:=r
else Result:=0;
end else Result:=0;
end;

Переложить на VB думаю труда не составит.

| Сообщение посчитали полезным:

SeQuick

Проще всего сделать так: decA = CDec(Clng("&H" & Expression))

и на выходе получи Dec значение HEX выражения +)))

-----
One death is a tragedy, one million is a statistic.

| Сообщение посчитали полезным:

ZaZa, Stiver так и написал... ;)

| Сообщение посчитали полезным:

d1v0x
Ух... просто не заметил, бывает... Но немного по другому, согласись...

-----
One death is a tragedy, one million is a statistic.

| Сообщение посчитали полезным:

Спасибо ребята! Очень признателен! Вы дали исчерпывающий ответ! Тема закрыта.

| Сообщение посчитали полезным: