Shital Mistry

• Aug 11th, 2012

 

Question is not clear to me. Specify some details what exactly you want to do?

asifinet

 Profile Answers by asifinet 

• Feb 15th, 2013

 

Code
SET Serveroutput ON 1000000


Declare


  V_Input NUMBER := &TESTED;


  FUNCTION Numbertowords(P_Number IN Out Number) RETURN Varchar2 IS


    V_Words Varchar2(32767) :=  ;


    V_Temp Number;    


    Type Unitsmap IS TABLE Of Varchar2(250) INDEX BY Binary_Integer;


    Type Tensmap IS TABLE Of Varchar2(250) INDEX BY Binary_Integer;    


    V_Unitsmap Unitsmap ;


    V_Tensmap Tensmap   ;


  Begin


    V_Unitsmap(0) := Zero;


    V_Unitsmap(1) := One;


    V_Unitsmap(2) := Two;


    V_Unitsmap(3) := Three;


    V_Unitsmap(4) := Four;


    V_Unitsmap(5) := Five;


    V_Unitsmap(6) := Six;


    V_Unitsmap(7) := Seven;


    V_Unitsmap(8) := Eight;


    V_Unitsmap(9) := Nine;


    V_Unitsmap(10) := Ten;


    V_Unitsmap(11) := Eleven;


    V_Unitsmap(12) := Twelve;


    V_Unitsmap(13) := Thirteen;


    V_Unitsmap(14) := Fourteen;


    V_Unitsmap(15) := Fifteen;


    V_Unitsmap(16) := Sixteen;


    V_Unitsmap(17) := Seventeen;


    V_Unitsmap(18) := Eighteen;


    V_Unitsmap(19) := Nineteen;


    V_Tensmap(2)  := Twenty;


    V_Tensmap(3)  := Thirty;


    V_Tensmap(4)  := Forty;


    V_Tensmap(5)  := Fifty;


    V_Tensmap(6)  := Sixty;


    V_Tensmap(7)  := Seventy;


    V_Tensmap(8)  := Eighty;


    V_Tensmap(9)  := Ninety;


    IF (P_Number = 0) Then


      RETURN Zero;


    End IF;


    IF (P_Number < 0) Then


      V_Temp := Abs(P_Number);      


      RETURN Minus  || Numbertowords(V_Temp);


    End IF;


    V_Temp := TRUNC(P_Number / 1000000);


    IF ( V_Temp > 0) Then 


      V_Words := V_WORDS || Numbertowords(V_Temp) ||  Million;


      P_Number := Mod(P_Number,1000000);


    End IF;


    V_Temp := TRUNC(P_Number / 1000);


    IF ( V_Temp > 0)Then


      V_Words := V_Words || Numbertowords(V_Temp) ||  Thousand;


      P_Number := Mod(P_Number,1000);


    End IF;


    V_Temp := Trunc(P_Number / 100);


    IF ( V_Temp > 0) Then


      V_Words := V_Words ||  Numbertowords(V_Temp) ||  Hundred ;


      P_Number := Mod(P_Number,100);


    End IF;


    V_Temp := P_Number;


    IF (V_Temp > 0) Then


      IF (V_Words !=  ) Then


        V_Words := V_Words || AND ;


       End IF;


      IF (V_Temp < 20) Then


        V_Words := V_Words || V_Unitsmap(V_Temp);


        RETURN V_Words;


      Else


       V_Temp := TRUNC(P_Number/ 10);


        V_Words := V_Words || V_Tensmap(V_Temp);


        IF ((Mod(P_Number ,10)) > 0) Then


          V_Words :=V_Words|| - ||V_Unitsmap(Mod(P_Number,10));


        End IF;


      End IF;        


    End IF;


    RETURN V_Words;


  End;


Begin    


  Dbms_Output.Put_Line(&TESTED|| =||Numbertowords(V_Input));


End;

Ashish

• Mar 10th, 2014

 

Code
Function No_To_Word(Amount Number) Return Varchar2 Is


    Wordsamt Number(30, 12) := 0;


    Words    Varchar2(500) := ;


    Str      Varchar2(50) := ;


    Amt      Number(30, 12) := Amount;


    t_Amt    Number(30, 12) := Amount;


    t_Word   Varchar2(15);


    Pragma Autonomous_Transaction;


  Begin


    Dbms_Output.Put_Line();


    If Nvl(Amt, 0) = 0 Then


      Words := Nil ;


    Else


      If Length(To_Char(Amt)) > 9 Then


        t_Word := Crores ;


      End If;


    


      Wordsamt := Floor(Amt / 1000000000);


      If Wordsamt > 0 Then


        Str := Digitword(Wordsamt);


        If Str =  One  Then


          Str :=  One Hundred ;


        Else


          Str := Digitword(Wordsamt) ||  Hundred ;


        End If;


      Else


        Str := ;


      End If;


      Words    := Words || Str;


      Amt      := Amt - Wordsamt * 1000000000;


      Wordsamt := Floor(Amt / 10000000);


      If Wordsamt > 0 Then


        Str := Digitword(Wordsamt);


        If Str =  One  Then


          Str :=  One Crore ;


        Else


          Str := Digitword(Wordsamt) || Crores ;


        End If;


      Else


        Str := ;


      End If;


      Words    := Words || Str;


      Amt      := Amt - Wordsamt * 10000000;


      Wordsamt := Floor(Amt / 100000);


      Str      := Digitword(Wordsamt);


      If Wordsamt > 0 Then


        If Str =  One  Then


          Str :=  One Lakh ;


        Else


          Str := Digitword(Wordsamt) || Lakhs ;


        End If;


      Else


        Str := ;


      End If;


      Words    := Words || Str;


      Amt      := Amt - Wordsamt * 100000;


      Wordsamt := Floor(Amt / 1000);


      If Wordsamt > 0 Then


        Str := Digitword(Wordsamt) || Thousand ;


      Else


        Str := ;


      End If;


      Words    := Words || Str;


      Amt      := Amt - Wordsamt * 1000;


      Wordsamt := Floor(Amt / 100);


      If Wordsamt > 0 Then


        Str := Digitword(Wordsamt) || Hundred ;


      Else


        Str := ;


      End If;


      Words    := Words || Str;


      Amt      := Amt - Wordsamt * 100;


      Wordsamt := Floor(Amt);


      If Wordsamt > 0 Then


        Str := Digitword(Wordsamt);


      Else


        Str := ;


      End If;


      Words    := Words || Str;


      Amt      := Amt - Wordsamt * 1;


      Amt      := Round(Amt, 3);


      Wordsamt := Floor((Amt - Floor(Amt)) * 100);


      If Wordsamt > 0 Then


        Str := And Paise  || Digitword(Wordsamt);


      Else


        Str := ;


      End If;


      Words := Words || Str;


    End If;


    If Length(To_Char(t_Amt)) > 9 Then


      t_Word := Crores ;


      Words  := Words ||   || t_Word;


    End If;


    Words := Words || Only .;


    Return Words;


  End;