XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - @Val per API
Eine dem Profan @Val() ähnliche Funktion
Autor Dieter Zornow
free
DEF ValEx(3) ! shlwapi,StrToIntExA

Proc Aval

    Parameters number$
    declare result&
    ValEx(addr(number$),1,addr(result&)) 1= Dez + hex, 0 = nur Dez
    return result&

endproc

cls
print Aval(0x000AF)
print Val($AF)
waitinput
(optional white space)(optional sign)0X(one or more hexadecimal digits)
The optional sign can be the character - or +; if omitted, the sign is assumed to be positive