数字转大写公式

IF(left(MFCNUM($MF(数字)$),1)="拾","壹"&if(mfisnull(find(".",mfcnum($MF(数字)$))),MFCNUM($MF(数字)$)&"元整",if(and(find(".",mfcnum($MF(数字)$))<>0,len(mid(mfcnum($MF(数字)$),find(".",mfcnum($MF(数字)$))+1,2))=2,left(right(mfcnum($MF(数字)$),2),1)="零"),mid(mfcnum($MF(数字)$),1,find(".",mfcnum($MF(数字)$))-1)&"元"&right(mfcnum($MF(数字)$),2)&"分",if(and(find(".",$MF(数字)$)<>0,len(mid(mfcnum($MF(数字)$),find(".",mfcnum($MF(数字)$))+1,2))=2,left(right(mfcnum($MF(数字)$),2),1)<>"零"),mid(mfcnum($MF(数字)$),1,find(".",mfcnum($MF(数字)$))-1)&"元"&left(right(mfcnum($MF(数字)$),2),1)&"角"&right(mfcnum($MF(数字)$),1)&"分",mid(mfcnum($MF(数字)$),1,find(".",mfcnum($MF(数字)$))-1)&"元"&right(mfcnum($MF(数字)$),1)&"角整"))),if(mfisnull(find(".",mfcnum($MF(数字)$))),MFCNUM($MF(数字)$)&"元整",if(and(find(".",mfcnum($MF(数字)$))<>0,len(mid(mfcnum($MF(数字)$),find(".",mfcnum($MF(数字)$))+1,2))=2,left(right(mfcnum($MF(数字)$),2),1)="零"),mid(mfcnum($MF(数字)$),1,find(".",mfcnum($MF(数字)$))-1)&"元"&right(mfcnum($MF(数字)$),2)&"分",if(and(find(".",$MF(数字)$)<>0,len(mid(mfcnum($MF(数字)$),find(".",mfcnum($MF(数字)$))+1,2))=2,left(right(mfcnum($MF(数字)$),2),1)<>"零"),mid(mfcnum($MF(数字)$),1,find(".",mfcnum($MF(数字)$))-1)&"元"&left(right(mfcnum($MF(数字)$),2),1)&"角"&right(mfcnum($MF(数字)$),1)&"分",mid(mfcnum($MF(数字)$),1,find(".",mfcnum($MF(数字)$))-1)&"元"&right(mfcnum($MF(数字)$),1)&"角整"))))