>Hello again,
>
>in case you're interested, here some performance optimized conversion functions.
>
>

>&& typedef DWORD unsigned long;
>FUNCTION NumToULong(tnNumber)
>  ASSERT BETWEEN(tnNumber,0,4294967295) MESSAGE "Value out of range."
>  RETURN CHR(BITAND(tnNumber,0x000000FF)) + ;
>         CHR(BITAND(BITRSHIFT(tnNumber,8),0x000000FF)) + ;
>         CHR(BITAND(BITRSHIFT(tnNumber,16),0x000000FF)) + ;
>         CHR(BITRSHIFT(tnNumber,24))
>ENDFUNC
>
>&& typedef WORD unsigned short;
>FUNCTION NumToUShort(tnNumber)
>  ASSERT BETWEEN(tnNumber,0,65535) MESSAGE "Value out of range."
>  RETURN CHR(BITAND(tnNumber,0x000000FF)) + ;
>         CHR(BITAND(BITRSHIFT(tnNumber,8),0x000000FF))
>ENDFUNC
>

>
>Regards
>Christian

Christian,

* NumToULong
BINTOC(BITAND(m.tnNumber,0xFFFFFFFF),"RS")
* NumToUShort
LEFT(BINTOC(m.tnNumber,"RS"),2)