I am needing some code to convert a dollar amount such as $3,622.50 to written text such as Three Thousand Six Hundred Twenty Two and 50/100 Dollars *********. I am printing payroll checks and the banks are really start to crack down on the certification process.

This message has been edited. Last edited by: dberry,

Here is the code I worked up to convert numbers to text up to $999,999,999.00. Still testing every digit but it seems to be right.

%CONVERT CHECK AMOUNT TO TEXT

/VAR.X 175 SETVAR
/VAR.Y 1690 SETVAR
VAR.X VAR.Y MOVETO
/NTMB 9 10 SETFONT
(PAY )SH
/NTMBI 7 SETFONT

/VARcent 34 73 2 GETFIELD
/VAR1-2 34 70 2 GETFIELD
/VAR1 34 71 1 GETFIELD
/VAR2 34 70 1 GETFIELD
/VAR3 34 69 1 GETFIELD
/VAR4-5 34 66 2 GETFIELD
/VAR4 34 67 1 GETFIELD
/VAR5 34 66 1 GETFIELD
/VAR6 34 65 1 GETFIELD
/VAR7-8 34 62 2 GETFIELD
/VAR7 34 63 1 GETFIELD
/VAR8 34 62 1 GETFIELD
/VAR9 34 61 1 GETFIELD

%-------------------------------

CASE VAR9 {}
%HUNDRED MILLION DOLLAR PLACEMENT
(1) {( ONE HUNDRED)SH}
(2) {( TWO HUNDRED)SH}
(3) {( THREE HUNDRED)SH}
(4) {( FOUR HUNDRED)SH}
(5) {( FIVE HUNDRED)SH}
(6) {( SIX HUNDRED)SH}
(7) {( SEVEN HUNDRED)SH}
(8) {( EIGHT HUNDRED)SH}
(9) {( NINE HUNDRED)SH}
ENDCASE

%-------------------------------

IF VAR8 (1) eq
{
CASE VAR7-8 {}
%TEEN PLACEMENT
(10) {( TEN MILLION)SH}
(11) {( ELEVEN MILLION)SH}
(12) {( TWELVE MILLION)SH}
(13) {( THIRTEEN MILLION)SH}
(14) {( FOURTEEN MILLION)SH}
(15) {( FIFTEEN MILLION)SH}
(16) {( SIXTEEN MILLION)SH}
(17) {( SEVENTEEN MILLION)SH}
(18) {( EIGHTEEN MILLION)SH}
(19) {( NINETEEN MILLION)SH}
ENDCASE
}
ELSE
{
CASE VAR8 {}
%TEN MILLION DOLLAR PLACEMENT
(2) {( TWENTY)SH}
(3) {( THIRTY)SH}
(4) {( FORTY)SH}
(5) {( FIFTY)SH}
(6) {( SIXTY)SH}
(7) {( SEVENTY)SH}
(8) {( EIGHTY)SH}
(9) {( NINETY)SH}
ENDCASE

IF VAR8(*)ne VAR8(0)ne and VAR8(1)ne and VAR7(0)ne and
{(-) SH}
ENDIF

IF VAR8(0)eq VAR7(0)ne and
{( ) SH}
ENDIF

IF VAR7 (0) eq
{( MILLION) SH}
ENDIF

CASE VAR7 {}
%MILLION DOLLAR PLACEMENT
(1) {(ONE MILLION)SH}
(2) {(TWO MILLION)SH}
(3) {(THREE MILLION)SH}
(4) {(FOUR MILLION)SH}
(5) {(FIVE MILLION)SH}
(6) {(SIX MILLION)SH}
(7) {(SEVEN MILLION)SH}
(8) {(EIGHT MILLION)SH}
(9) {(NINE MILLION)SH}
ENDCASE
}
ENDIF

%-------------------------------

CASE VAR6 {}
%HUNDRED THOUSAND DOLLAR PLACEMENT
(1) {( ONE HUNDRED)SH}
(2) {( TWO HUNDRED)SH}
(3) {( THREE HUNDRED)SH}
(4) {( FOUR HUNDRED)SH}
(5) {( FIVE HUNDRED)SH}
(6) {( SIX HUNDRED)SH}
(7) {( SEVEN HUNDRED)SH}
(8) {( EIGHT HUNDRED)SH}
(9) {( NINE HUNDRED)SH}
ENDCASE

%------------------------------

IF VAR5 (1) eq
{
CASE VAR4-5 {}
%TEEN PLACEMENT
(10) {( TEN THOUSAND)SH}
(11) {( ELEVEN THOUSAND)SH}
(12) {( TWELVE THOUSAND)SH}
(13) {( THIRTEEN THOUSAND)SH}
(14) {( FOURTEEN THOUSAND)SH}
(15) {( FIFTEEN THOUSAND)SH}
(16) {( SIXTEEN THOUSAND)SH}
(17) {( SEVENTEEN THOUSAND)SH}
(18) {( EIGHTEEN THOUSAND)SH}
(19) {( NINETEEN THOUSAND)SH}
ENDCASE
}
ELSE
{
CASE VAR5 {}
%TEN THOUSAND DOLLAR PLACEMENT
(2) {( TWENTY)SH}
(3) {( THIRTY)SH}
(4) {( FORTY)SH}
(5) {( FIFTY)SH}
(6) {( SIXTY)SH}
(7) {( SEVENTY)SH}
(8) {( EIGHTY)SH}
(9) {( NINETY)SH}
ENDCASE

IF VAR5(*)ne VAR5(0)ne and VAR5(1)ne and VAR4(0)ne and
{(-) SH}
ENDIF

IF VAR5(0)eq VAR4(0)ne and
{( ) SH}
ENDIF

IF VAR4 (0) eq
{( THOUSAND) SH}
ENDIF

CASE VAR4 {}
%THOUSAND DOLLAR PLACEMENT
(1) {(ONE THOUSAND)SH}
(2) {(TWO THOUSAND)SH}
(3) {(THREE THOUSAND)SH}
(4) {(FOUR THOUSAND)SH}
(5) {(FIVE THOUSAND)SH}
(6) {(SIX THOUSAND)SH}
(7) {(SEVEN THOUSAND)SH}
(8) {(EIGHT THOUSAND)SH}
(9) {(NINE THOUSAND)SH}
ENDCASE
}
ENDIF

%---------------------------

CASE VAR3 {}
%HUNDRED DOLLAR PLACEMENT
(1) {( ONE HUNDRED)SH}
(2) {( TWO HUNDRED)SH}
(3) {( THREE HUNDRED)SH}
(4) {( FOUR HUNDRED)SH}
(5) {( FIVE HUNDRED)SH}
(6) {( SIX HUNDRED)SH}
(7) {( SEVEN HUNDRED)SH}
(8) {( EIGHT HUNDRED)SH}
(9) {( NINE HUNDRED)SH}
ENDCASE

%---------------------------

IF VAR2 (1) eq
{
CASE VAR1-2 {}
%TEEN PLACEMENT
(10) {( TEN)SH}
(11) {( ELEVEN)SH}
(12) {( TWELVE)SH}
(13) {( THIRTEEN)SH}
(14) {( FOURTEEN)SH}
(15) {( FIFTEEN)SH}
(16) {( SIXTEEN)SH}
(17) {( SEVENTEEN)SH}
(18) {( EIGHTEEN)SH}
(19) {( NINETEEN)SH}
ENDCASE
}
ELSE
{
CASE VAR2 {}
%TEN DOLLAR PLACEMENT
(2) {( TWENTY)SH}
(3) {( THIRTY)SH}
(4) {( FORTY)SH}
(5) {( FIFTY)SH}
(6) {( SIXTY)SH}
(7) {( SEVENTY)SH}
(8) {( EIGHTY)SH}
(9) {( NINETY)SH}
ENDCASE

IF VAR2(*)ne VAR2(0)ne and VAR2(1)ne and VAR1(0)ne and
{(-) SH}
ENDIF

IF VAR2(0)eq VAR1(0)ne and
{( ) SH}
ENDIF

CASE VAR1 {}
%DOLLAR PLACEMENT
(1) {(ONE)SH}
(2) {(TWO)SH}
(3) {(THREE)SH}
(4) {(FOUR)SH}
(5) {(FIVE)SH}
(6) {(SIX)SH}
(7) {(SEVEN)SH}
(8) {(EIGHT)SH}
(9) {(NINE)SH}
ENDCASE}
ENDIF

%------------------------------

IF VAR1 (*) eq
{( ZERO AND $$VARcent./100 DOLLARS) VSUB SH}
ELSE
{( AND $$VARcent./100 DOLLARS) VSUB SH}
ENDIF