Converting number into letters ...

Question

Is there in Oracle ( or in Forms ) a function that allow the conversion from a number (ex. 1523) to
letters ( One thousand Five hundred twenty three ) ???
Tx in advance
Xavier.

Answer 1

Hi,
i think the following code will take care ofall cases - i have tried it and am using this.
FUNCTION CHK_AMT (v_chk_amt IN NUMBER)
RETURN VARCHAR2 IS chk_amt_word VARCHAR2(32767);
v_period NUMBER(11,0);
v_tot_len NUMBER(11,0);
v_paise NUMBER(11,0);
v_paise_len NUMBER(11,0);
v_paise_diff NUMBER(11,0);
v_Rs NUMBER(11,0);
v_Rs_len NUMBER(11,0);
v_ten NUMBER(11,0);
v_hund NUMBER(11,0);
v_thous NUMBER(11,0);
v_hund_thous NUMBER(11,0);
v_million NUMBER(11,0);
v_amt_char VARCHAR2(14);
v_m_word VARCHAR2(35);
v_ht_word VARCHAR2(35);
v_t_word VARCHAR2(35);
v_h_word VARCHAR2(35);
v_ten_word VARCHAR2(35);
v_paise_word VARCHAR2(35);
v_chk_amt_word VARCHAR2(150);
BEGIN
-- ****************** CONVERT TO STRING AND LOCATE THE PERIOD *******
SELECT TO_CHAR(v_chk_amt, '99999999D99') INTO v_amt_char FROM dual;
v_amt_char := LTRIM(v_amt_char);
SELECT INSTR(RTRIM(v_amt_char),'.') INTO v_period FROM dual;
-- ***************************************** DETERMINE PAISES *********
SELECT LENGTH(v_chk_amt) INTO v_tot_len FROM dual;
v_paise_len := v_tot_len - v_period;
IF v_paise_len = 0 THEN
v_paise := 0;
ELSIF v_paise_len = 1 THEN
v_paise := SUBSTR(v_amt_char,v_period + 1, 1)| |'0';
ELSE
v_paise := SUBSTR(v_amt_char,v_period + 1, 2);
END IF;
-- ****************** DETERMINE AMT LENGTH LESS PERIOD AND PAISES *******
IF v_period = 0 THEN
v_Rs_len := v_tot_len;
ELSE
v_Rs_len := v_period - 1;
END IF;
v_Rs:= SUBSTR(v_chk_amt,1,v_Rs_len);
-- **************************** DETERMINE ONE AND TENTH POSTIONS *********
IF v_Rs_len > 0 THEN
IF v_Rs_len = 1 THEN
v_ten := SUBSTR(v_chk_amt,1,1);
ELSE
v_ten := SUBSTR(v_chk_amt,v_Rs_len - 1,2);
END IF;
ELSE
v_ten_word := 'NO ';
v_ten := 0;
END IF;
-- ************************************* DETERMINE HUNDREDTH POSITION *******
IF v_Rs_len > 2 THEN
v_hund := SUBSTR(v_chk_amt,v_Rs_len - 2,1);
ELSE
v_hund := 0;
END IF;
-- ******************** DETERMINE THOUSAND AND TEN THOUSAND POSITIONS ******
IF v_Rs_len > 3 THEN
IF v_Rs_len = 4 THEN
v_thous := SUBSTR(v_chk_amt, 1, 1);
ELSE
v_thous := SUBSTR(v_chk_amt,v_Rs_len - 4,2);
END IF;
ELSE
v_thous := 0;
END IF;
-- ********************************* DETERMINE HUNDRED-THOUSAND POSITION *****
IF v_Rs_len > 5 THEN
v_hund_thous := SUBSTR(v_chk_amt,v_Rs_len - 5,1);
ELSE
v_hund_thous := 0;
END IF;
-- ************************** DETERMINE MILLION AND TEN MILLION POSITIONS ******
IF v_Rs_len > 6 THEN
IF v_Rs_len = 7 THEN
v_million := SUBSTR(v_chk_amt,v_Rs_len - 6,1);
ELSE
v_million := SUBSTR(v_chk_amt,v_Rs_len - 7,2);
END IF;
ELSE
v_million := 0;
END IF;
-- ************************************************************ BUILD WORD *******
IF v_million > 0 THEN
SELECT CHK_AMT_NAME| |' Million '
INTO v_m_word
FROM ESC_CHK_AMT
WHERE chk_amt_nbr = v_million;
END IF;
IF v_hund_thous > 0 THEN
SELECT CHK_AMT_NAME| |' Hundred '
INTO v_ht_word
FROM ESC_CHK_AMT
WHERE chk_amt_nbr = v_hund_thous;
IF v_thous = 0 THEN
v_t_word := 'Thousand ';
END IF;
END IF;
IF v_thous > 0 THEN
SELECT CHK_AMT_NAME| |' Thousand '
INTO v_t_word
FROM ESC_CHK_AMT
WHERE chk_amt_nbr = v_thous;
END IF;
IF v_hund > 0 THEN
SELECT CHK_AMT_NAME| |' Hundred '
INTO v_h_word
FROM ESC_CHK_AMT
WHERE chk_amt_nbr = v_hund;
END IF;
IF v_ten > 0 THEN
SELECT CHK_AMT_NAME
INTO v_ten_word
FROM ESC_CHK_AMT
WHERE chk_amt_nbr = v_ten;
END IF;
IF (v_paise = 0) THEN
v_paise_word := NULL;
v_chk_amt_word := 'Rs. '| |v_m_word| |v_ht_word| |v_t_word| |v_h_word| |v_ten_word| |' Only.';
ELSE
v_paise_word := v_paise| |' paise';
v_chk_amt_word := 'Rs. '| |v_m_word| |v_ht_word| |v_t_word| |v_h_word| |v_ten_word| |
' AND '| |v_paise_word| |' Only.' ;
END IF;
RETURN(v_chk_amt_word);
END;
/*Create table script*/
CREATE TABLE ESC_CHK_AMT(
CHK_AMT_NBR NUMBER(2,0),
CHK_AMT_NAME VARCHAR2(25));
/*Insert Script*/
INSERT INTO ESC_CHK_AMT VALUES (1,'One');
INSERT INTO ESC_CHK_AMT VALUES (2,'Two');
INSERT INTO ESC_CHK_AMT VALUES (3,'Three');
INSERT INTO ESC_CHK_AMT VALUES (4,'Four');
INSERT INTO ESC_CHK_AMT VALUES (5,'Five');
INSERT INTO ESC_CHK_AMT VALUES (6,'Six');
INSERT INTO ESC_CHK_AMT VALUES (7,'Seven');
INSERT INTO ESC_CHK_AMT VALUES (8,'Eight');
INSERT INTO ESC_CHK_AMT VALUES (9,'Nine');
INSERT INTO ESC_CHK_AMT VALUES (10,'Ten');
INSERT INTO ESC_CHK_AMT VALUES (11,'Eleven');
INSERT INTO ESC_CHK_AMT VALUES (12,'Twelve');
INSERT INTO ESC_CHK_AMT VALUES (13,'Thirteen');
INSERT INTO ESC_CHK_AMT VALUES (14,'Fourteen');
INSERT INTO ESC_CHK_AMT VALUES (15,'Fifteen');
INSERT INTO ESC_CHK_AMT VALUES (16,'Sixteen');
INSERT INTO ESC_CHK_AMT VALUES (17,'Seventeen');
INSERT INTO ESC_CHK_AMT VALUES (18,'Eighteen');
INSERT INTO ESC_CHK_AMT VALUES (19,'Nineteen');
INSERT INTO ESC_CHK_AMT VALUES (20,'Twenty');
INSERT INTO ESC_CHK_AMT VALUES (21,'Twenty-One');
INSERT INTO ESC_CHK_AMT VALUES (22,'Twenty-Two');
INSERT INTO ESC_CHK_AMT VALUES (23,'Twenty-Three');
INSERT INTO ESC_CHK_AMT VALUES (24,'Twenty-Four');
INSERT INTO ESC_CHK_AMT VALUES (25,'Twenty-Five');
INSERT INTO ESC_CHK_AMT VALUES (26,'Twenty-Six');
INSERT INTO ESC_CHK_AMT VALUES (27,'Twenty-Seven');
INSERT INTO ESC_CHK_AMT VALUES (28,'Twenty-Eight');
INSERT INTO ESC_CHK_AMT VALUES (29,'Twenty-Nine');
INSERT INTO ESC_CHK_AMT VALUES (30,'Thirty');
INSERT INTO ESC_CHK_AMT VALUES (31,'Thirty-One');
INSERT INTO ESC_CHK_AMT VALUES (32,'Thirty-Two');
INSERT INTO ESC_CHK_AMT VALUES (33,'Thirty-Three');
INSERT INTO ESC_CHK_AMT VALUES (34,'Thirty-Four');
INSERT INTO ESC_CHK_AMT VALUES (35,'Thirty-Five');
INSERT INTO ESC_CHK_AMT VALUES (36,'Thirty-Six');
INSERT INTO ESC_CHK_AMT VALUES (37,'Thirty-Seven');
INSERT INTO ESC_CHK_AMT VALUES (38,'Thirty-Eight');
INSERT INTO ESC_CHK_AMT VALUES (39,'Thirty-Nine');
INSERT INTO ESC_CHK_AMT VALUES (40,'Forty');
INSERT INTO ESC_CHK_AMT VALUES (41,'Forty-One');
INSERT INTO ESC_CHK_AMT VALUES (42,'Forty-Two');
INSERT INTO ESC_CHK_AMT VALUES (43,'Forty-Three');
INSERT INTO ESC_CHK_AMT VALUES (44,'Forty-Four');
INSERT INTO ESC_CHK_AMT VALUES (45,'Forty-Five');
INSERT INTO ESC_CHK_AMT VALUES (46,'Forty-Six');
INSERT INTO ESC_CHK_AMT VALUES (47,'Forty-Seven');
INSERT INTO ESC_CHK_AMT VALUES (48,'Forty-Eight');
INSERT INTO ESC_CHK_AMT VALUES (49,'Forty-Nine');
INSERT INTO ESC_CHK_AMT VALUES (50,'Fifty');
INSERT INTO ESC_CHK_AMT VALUES (51,'Fifty-One');
INSERT INTO ESC_CHK_AMT VALUES (52,'Fifty-Two');
INSERT INTO ESC_CHK_AMT VALUES (53,'Fifty-Three');
INSERT INTO ESC_CHK_AMT VALUES (54,'Fifty-Four');
INSERT INTO ESC_CHK_AMT VALUES (55,'Fifty-Five');
INSERT INTO ESC_CHK_AMT VALUES (56,'Fifty-Six');
INSERT INTO ESC_CHK_AMT VALUES (57,'Fifty-Seven');
INSERT INTO ESC_CHK_AMT VALUES (58,'Fifty-Eight');
INSERT INTO ESC_CHK_AMT VALUES (59,'Fifty-Nine');
INSERT INTO ESC_CHK_AMT VALUES (60,'Sixty');
INSERT INTO ESC_CHK_AMT VALUES (61,'Sixty-One');
INSERT INTO ESC_CHK_AMT VALUES (62,'Sixty-Two');
INSERT INTO ESC_CHK_AMT VALUES (63,'Sixty-Three');
INSERT INTO ESC_CHK_AMT VALUES (64,'Sixty-Four');
INSERT INTO ESC_CHK_AMT VALUES (65,'Sixty-Five');
INSERT INTO ESC_CHK_AMT VALUES (66,'Sixty-Six');
INSERT INTO ESC_CHK_AMT VALUES (67,'Sixty-Seven');
INSERT INTO ESC_CHK_AMT VALUES (68,'Sixty-Eight');
INSERT INTO ESC_CHK_AMT VALUES (69,'Sixty-Nine');
INSERT INTO ESC_CHK_AMT VALUES (70,'Seventy');
INSERT INTO ESC_CHK_AMT VALUES (71,'Seventy-One');
INSERT INTO ESC_CHK_AMT VALUES (72,'Seventy-Two');
INSERT INTO ESC_CHK_AMT VALUES (73,'Seventy-Three');
INSERT INTO ESC_CHK_AMT VALUES (74,'Seventy-Four');
INSERT INTO ESC_CHK_AMT VALUES (75,'Seventy-Five');
INSERT INTO ESC_CHK_AMT VALUES (76,'Seventy-Six');
INSERT INTO ESC_CHK_AMT VALUES (77,'Seventy-Seven');
INSERT INTO ESC_CHK_AMT VALUES (78,'Seventy-Eight');
INSERT INTO ESC_CHK_AMT VALUES (79,'Seventy-Nine');
INSERT INTO ESC_CHK_AMT VALUES (80,'Eighty');
INSERT INTO ESC_CHK_AMT VALUES (81,'Eighty-One');
INSERT INTO ESC_CHK_AMT VALUES (82,'Eighty-Two');
INSERT INTO ESC_CHK_AMT VALUES (83,'Eighty-Three');
INSERT INTO ESC_CHK_AMT VALUES (84,'Eighty-Four');
INSERT INTO ESC_CHK_AMT VALUES (85,'Eighty-Five');
INSERT INTO ESC_CHK_AMT VALUES (86,'Eighty-Six');
INSERT INTO ESC_CHK_AMT VALUES (87,'Eighty-Seven');
INSERT INTO ESC_CHK_AMT VALUES (88,'Eighty-Eight');
INSERT INTO ESC_CHK_AMT VALUES (89,'Eighty-Nine');
INSERT INTO ESC_CHK_AMT VALUES (90,'Ninety');
INSERT INTO ESC_CHK_AMT VALUES (91,'Ninety-One');
INSERT INTO ESC_CHK_AMT VALUES (92,'Ninety-Two');
INSERT INTO ESC_CHK_AMT VALUES (93,'Ninety-Three');
INSERT INTO ESC_CHK_AMT VALUES (94,'Ninety-Four');
INSERT INTO ESC_CHK_AMT VALUES (95,'Ninety-Five');
INSERT INTO ESC_CHK_AMT VALUES (96,'Ninety-Six');
INSERT INTO ESC_CHK_AMT VALUES (97,'Ninety-Seven');
INSERT INTO ESC_CHK_AMT VALUES (98,'Ninety-Eight');
INSERT INTO ESC_CHK_AMT VALUES (99,'Ninety-Nine');
/*Create Index*/
CREATE INDEX ESC_CHK_AMT_INDEX ON ESC_CHK_AMT(CHK_AMT_NBR);
DROP PUBLIC SYNONYM "ESC_CHK_AMT";
CREATE PUBLIC SYNONYM "ESC_CHK_AMT" FOR "ESC_CHK_AMT";
null