如何将数字小写金额转换成大写

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)&"角整"))))