Func _DecToBinary($iDecimal)
    Local $bReturn, $bSign = False

    If $iDecimal < 0 Then
        $iDecimal *= -1
        $bSign = True
    EndIf

    Do
      $bReturn = Mod($iDecimal, 2) & $bReturn
      If $iDecimal / 2 <> Int($iDecimal / 2) Then
         $iDecimal = Int($iDecimal / 2)
      Else
         $iDecimal /= 2
      EndIf

    Until $iDecimal = 0

    If $bSign = True Then $bReturn = "-" & $bReturn

    Return $bReturn
EndFunc