VFP 愛用者社區

[xjliaos]

有什么方法可以將數字金額轉換成英文,大家邦邦忙
例: 3750.00
THREE THOUSAND SEVEN HUNDRED FIFTY ONLY

[nelsonchuang]

請先自行歸納英文的用語~
當你知道了規則,你就會寫了~

[syntech]

請先搜尋吧

[lee188188]

請試以下(有正式用的):
...

t_STR=" " && 整數的金額
t1_STR=" " && 小數點的金額

***sum it_dqty,it_amount to tot_qty, tot_money
tot_money=386.23

do utmonsay

? 'SAY TOTAL U.S.DOLLARS'+t_STR+t1_STR
return

*******************
*
** UTMONSAY.PRG SAY U.S. TOTAL ...
*
proc utmonsay

priv z

****************** 95.12.21 改良lee!
decl a_1[19]
a_1[ 1]="ONE"
a_1[ 2]="TWO"
a_1[ 3]="THREE"
a_1[ 4]="FOUR"
a_1[ 5]="FIVE"
a_1[ 6]="SIX"
a_1[ 7]="SEVEN"
a_1[ 8]="EIGHT"
a_1[ 9]="NINE"
a_1[10]="TEN"
a_1[11]="ELEVEN"
a_1[12]="TWELVE"
a_1[13]="THIRTEEN"
a_1[14]="FORTEEN"
a_1[15]="FIFTEEN"
a_1[16]="SIXTEEN"
a_1[17]="SEVENTEEN"
a_1[18]="EIGHTEEN"
a_1[19]="NINETEEN"

decl a_10[8]
a_10[ 1]="TWENTY"
a_10[ 2]="THIRTY"
a_10[ 3]="FORTY"
a_10[ 4]="FIFTY"
a_10[ 5]="SIXTY"
a_10[ 6]="SEVENTY"
a_10[ 7]="EIGHTY"
a_10[ 8]="NINETY"


t_STR=""
t1_STR=""

tt_total=tot_money
IF (int(tt_total/100000)>0)
t_STR=t_STR+' '+a_1[int(tt_total/100000)]+" HUNDRED"
ENDIF
IF (int(tt_total/10000)-int(tt_total/100000)*10<2)
IF (int(tt_total/1000)-int(tt_total/100000)*100>0)
t_STR=t_STR+' '+a_1[int(tt_total/1000)-int(tt_total/100000)*100]+" THOUSAND"
ELSE
IF (int(tt_total/1000)>0)
t_STR=t_STR+" THOUSAND"
ENDIF
ENDIF
ELSE
t_STR=t_STR+' '+a_10[int(tt_total/10000)-int(tt_total/100000)*10-1]
IF (int(tt_total/1000)-int(tt_total/10000)*10>0)
t_STR=t_STR+' '+a_1[int(tt_total/1000)-int(tt_total/10000)*10]+" THOUSAND"
ELSE
t_STR=t_STR+" THOUSAND"
ENDIF
ENDIF
IF ((int(tt_total/100)-int(tt_total/1000)*10)>0)
t_STR=t_STR+' '+a_1[int(tt_total/100)-int(tt_total/1000)*10]+" HUNDRED"
ENDIF

IF (int(tt_total/10)-int(tt_total/100)*10<2)
IF (int(tt_total)-int(tt_total/100)*100>0)
t_STR=t_STR+' '+a_1[int(tt_total)-int(tt_total/100)*100]
ENDIF
ELSE
t_STR=t_STR+' '+a_10[int(tt_total/10)-int(tt_total/100)*10-1]
IF (int(tt_total)-int(tt_total/10)*10>0)
t_STR=t_STR+' '+a_1[int(tt_total)-int(tt_total/10)*10]
ENDIF
ENDIF
z= str(tt_total,9,2)
IF right(z,2) <> '00'
t1_STR=t1_STR+" AND CENTS"
IF VAL(subSTR(STR(tt_total,9,2),8,1)) < 2
t1_STR=t1_STR+' '+a_1[VAL(subSTR(STR(tt_total,9,2),8,2))]+" ONLY."
ELSE
t1_STR=t1_STR+' '+a_10[VAL(subSTR(STR(tt_total,9,2),8,1))-1]
IF (VAL(subSTR(STR(tt_total,9,2),9,1))>0)
t1_STR=t1_STR+' '+a_1[VAL(subSTR(STR(tt_total,9,2),9,1))]+" ONLY."
ELSE
t1_STR=t1_STR+" ONLY."
ENDIF
ENDIF

ELSE
t_STR=t_STR+" ONLY."
ENDIF

if left(t_str,1)#' ' && 前, 加一空白
t_str=' '+t_str
endif
return