DecimalToBinary ( Integer )

convert any positive integer to binary

Average rating: 4.4 (9 votes) Log in to vote

Rob Poelking - Show more from this author
Kiza Solutions
https://kizasolutions.com

Sample input:

DecimalToBinary ( 10 )

Sample output:

1010

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/**
 * ==================================================================
 * DecimalToBinary ( Decimal )
 *
 * PARAMETERS:
 *		@Integer (integer) any positive integer
 * RETURNS:
 *		(integer) number in base 2 binary
 *		
 * DEPENDENCIES:
 *		none
 * PURPOSE:
 *		Use to convert any positive integer to binary
 *		
 * NOTES:
 *		none
 * REVISIONS:
 *		2019-08-07 Revised for FM 18 using While, no longer recursive
 *		2016-11-07 Rob Poelking - initial version
 * ==================================================================
 *
 */

While ( 
	//initial Variables
	[ 
		r=Int(Integer);
		m=0  ;
		bin="" 
	] ; 
	//run while condition is true
		r>0 ; 
	//logic
	[ 
		m=Mod(r ; 2) ; 
		r=Div(r ; 2 ) ;
		bin = m & bin 
	] ; 
	//return
		If ( IsEmpty ( bin ) ; 0 ; bin ) 
)

/*
// for use in FileMaker versions 17 and earlier

Let ([
	n=Int(Integer) ; 
	m=Mod(n ; 2) ; 
	r=Div(n ; 2 ) ;
	binary = Blank ];
	
	If ( r>0 ; DecimalToBinary  ( r ; binary ) & m & binary ; m & binary  )
	)

*/

Use to convert any positive integer (base10) to binary (base2) value.

Comments

		MB, Holland Feb 8, 2017
If you don't want to use the extra parameter fot tail recursion try: Let ( [ n = Int ( dec ) ; x = Ln ( n ) / Ln ( 2 ) ; p = Int( x ) ] ; Case ( n > 0 ; 10^p + dec2bin ( n â€“ 2^p ) ) )

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

DecimalToBinary ( Integer )

Comments

Support this website.

Support this website.