10진수 정수(al_dec)를 일정한 길이(ai_byte)의 2진수 문자열로 변환하는 함수입니다.

ai_byte 가 1 이면 8자리, 2면 16자리, 3이면 24자리 즉, ai_byte*8 자리로 변환합니다.

 

Return Type : string

Function Name :  gf_dec2bins

Argument Type : long   Argument Name : al_dec

Argument Type : integer   Argument Name : ai_byte

 

int li_rem, i

string ls_bin, ls_zero

 

do until al_dec= 0

  li_rem = mod(al_dec, 2)

  al_dec = al_dec /2

 

  ls_bin = string(li_rem) + ls_bin

loop

 

for i = 1 to ai_byte

  ls_zero += '00000000'

next

 

return right(ls_zero + ls_bin, 8*ai_byte)




예) 

gf_dec2bins(1234, 2)

 

->  ‘0000010011010010’ 을 반환합니다.

 

Posted by A4M
,