Transfer decimal into binary functions

Function zhuan (m) 'translation data

For i = 0 TO 12

P = M mod 2

IF P = 1 THEN

Have = Have & I & ","

END IF

m = int (m / 2)

IF m = 0 THEN

Zhuan = Have

EXIT FUNCTION

END IF

NEXT

END FUNCTION