*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