Change Number

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • OCPjahid
    New Member
    • Feb 2008
    • 1

    Change Number

    I want to change number in word.
    such as i write 1792400
    it show seveteen lac ninty two thousand four hundred.


    Jahid
  • amitpatel66
    Recognized Expert Top Contributor
    • Mar 2007
    • 2358

    #2
    Originally posted by OCPjahid
    I want to change number in word.
    such as i write 1792400
    it show seveteen lac ninty two thousand four hundred.


    Jahid
    [code=oracle]

    SELECT TO_CHAR(TO_DATE ('1792400','J') ,'JSP') FROM dual;

    [/code]

    Comment

    • subashsavji
      New Member
      • Jan 2008
      • 93

      #3
      [code=oracle]

      CREATE OR REPLACE FUNCTION NUMBER_CONVERSI ON(NUM NUMBER) RETURN VARCHAR2
      IS
      A VARCHAR2(1000);
      B VARCHAR2(20);
      X NUMBER;
      Y NUMBER := 1;
      Z NUMBER;
      LSIGN NUMBER;
      NO NUMBER;
      BEGIN
      X:= INSTR(NUM, '.');
      LSIGN := SIGN(NUM);
      NO := ABS(NUM);
      IF X = 0 THEN
      SELECT TO_CHAR(TO_DATE (NO, 'J'), 'JSP') INTO A FROM DUAL;
      ELSE
      SELECT to_char(to_date (SUBSTR(NO, 1,
      NVL(INSTR(NO, '.')-1, LENGTH(NO))),
      'J'), 'JSP') INTO A FROM DUAL;
      SELECT LENGTH(SUBSTR(N O, INSTR(NO, '.')+1)) INTO Z FROM DUAL;
      A := A ||' POINT ';
      WHILE Y< Z+1 LOOP
      SELECT TO_CHAR(TO_DATE (SUBSTR(NO, (INSTR(NO, '.')+Y), 1), 'J'), 'JSP')
      INTO B FROM DUAL;
      A := A || B ||' ';
      y :=y+1;
      END LOOP;
      END IF;
      IF LSIGN = -1 THEN
      RETURN 'NEGATIVE '||A;
      ELSE
      RETURN A;
      END IF;
      END;
      [/code]


      Select number_conversi on(-3786.9899876) from dual;
      Last edited by debasisdas; Feb 12 '08, 04:57 AM. Reason: added code=oracle tags

      Comment

      Working...