Convert Decimal To Binary Function in Powerbuilder
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | //==================================================================== // 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!
Users Today : 94
Users Yesterday : 197
This Month : 1783
This Year : 1783
Total Users : 221877
Views Today : 232
Total views : 918663
Who's Online : 2