rmb.prg

是一个很小的金额发音程序

*FUNC RMB
*PARA N
n=123456789.87&&本程序为打印和口读,如果所有的零都打印和读出的话可以更简单.
NC=LTRIM(STUF(STR(N,19,2),17,1,""))
C1="仟佰拾万仟佰拾亿仟佰拾万仟佰拾元角分"
C2="零壹贰叁肆伍陆柒捌玖"
ND="人民币："
		beep='e:\新D盘\人劳部管理\GRAPHICS\人民币.WAV'
		SET BELL TO (BEEP)
		??CHR(7)
		FOR NULLL=1 TO 4000000
		ENDF
K=1
KA=LEN(NC)
DO WHIL K<=KA
	K1=VAL(SUBS(NC,K,1))
	K2=(18-LEN(NC)+K)*2-1
Y=IIF(K1=0,"",SUBS(C2,K1*2+1,2))
X=IIF(K1=0.AND.((KA-K-2)/4#INT((KA-K-2)/4).OR.((KA-K)=6.AND.SUBS(NC,K-;
3,4)="0000")),"",SUBS(C1,K2,2))              
	IF K1#0.AND.SUBS(NC,K-1,1)="0"
		nd=ND+"零"+y+x
		beep='e:\新D盘\人劳部管理\GRAPHICS\零.WAV'
		SET BELL TO (BEEP)
		??CHR(7)
		FOR NULLL=1 TO 1400000
		ENDF
	else
		nd=nd+Y+X
	ENDI
	IF Y==''
	ELSE
		beep='e:\新D盘\人劳部管理\GRAPHICS\'+Y+'.WAV'
		SET BELL TO (BEEP)
		??CHR(7)
		FOR NULLL=1 TO 1400000
		ENDF
	ENDI
	IF X==''
	ELSE
		beep='e:\新D盘\人劳部管理\GRAPHICS\'+x+'.WAV'
		SET BELL TO (BEEP)
		??CHR(7)
		FOR NULLL=1 TO 1400000
		ENDF
		SET BELL TO
	ENDI
	K=K+1
ENDD
IF RIGHT(NC,1)="0"
	ND=ND+"整"
	beep='e:\新D盘\人劳部管理\GRAPHICS\整.WAV'
	SET BELL TO (BEEP)
	??CHR(7)
	FOR NULLL=1 TO 1400000
	ENDF
	SET BELL TO
ENDI
RETU ND