Convert Decimal To Binary Function in Powerbuilder

//====================================================================
// Function: f_dectobin()
//--------------------------------------------------------------------
// Description: Convert Decimal to Binary function in Powerbuilder
//--------------------------------------------------------------------
// Arguments:
// 	value	integer	iDec
//--------------------------------------------------------------------
// Returns:  string
//====================================================================

Boolean bDone
String sBin
Int i

If iDec = 0 Or iDec = 1 Then
	sBin = String(iDec)
Else
	Do While Not bDone
		i = Mod(iDec, 2)
		iDec = Int(iDec / 2)
		sBin = String(i) + sBin
		If iDec = 1 Then
			bDone = True
			sBin = "1" + sBin
		End If
	Loop
End If

sBin = Right("0000000" + sBin, 8)

Return sBin

//====================================================================

// Function: f_dectobin()

//--------------------------------------------------------------------

// Description: Convert Decimal to Binary function in Powerbuilder

//--------------------------------------------------------------------

// Arguments:

// value integer iDec

//--------------------------------------------------------------------

// Returns: string

//====================================================================

Boolean bDone

String sBin

Int i

If iDec = 0 Or iDec = 1 Then

sBin = String(iDec)

Else

Do While Not bDone

i = Mod(iDec, 2)

iDec = Int(iDec / 2)

sBin = String(i) + sBin

If iDec = 1 Then

bDone = True

sBin = "1" + sBin

End If

Loop

End If

sBin = Right("0000000" + sBin, 8)

Return sBin

Good Luck!

PowerBuilder Tips & Tricks

December 8, 2020

Was this article helpful?

Connection Information

Convert Decimal To Binary Function in Powerbuilder

My Website Links