PL/SQL Function To Convert A Binary Number To A Decimal Number

-- Converts a given binary number to decimal,
-- given a non-binary number - but results are unpredictable.
-- Does not handle decimals ...

CREATE OR REPLACE FUNCTION f_from_binary(in_num IN NUMBER) RETURN NUMBER IS
  ln_pos  NUMBER := 0;
  lv_bin  VARCHAR2(4000) := LTRIM(RTRIM(TO_CHAR(ABS(in_num))));
  ln_num  NUMBER := 0;
  ln_Sign NUMBER;
BEGIN
  IF in_num >= 0 THEN
    ln_Sign := 1;
  ELSE
    ln_Sign := -1;
  END IF;

  FOR i IN 1 .. LENGTH(lv_bin) LOOP
    ln_num := ln_num +
              (SUBSTR(lv_bin, i, 1) * POWER(2, LENGTH(lv_bin) - i));
  END LOOP;

  RETURN ln_num * ln_Sign;
END f_from_binary;
/

Some Other Important PL/SQL Scripts:

1. PL/SQL Function To Compute The Factorial Of A Number
2. PL/SQL Function To Convert A Decimal Number To A Binary Number
3. PL/SQL Function To Convert Ruppies(Numbers) In Words
4. PL/SQL Function To Generate The Fibonacci Series
5. PL/SQL Procedure For Counting All Tables And Respective Rows From Database
6. PL/SQL Procedure To Display Monthly Calender
7. PL/SQL Procedure To Reverse A String
8. PL/SQL Script To Calculate Weekdays Between Two Given Dates