數字轉換為中文大寫

//********************************************************
// 模塊：數字轉換為中文大寫

#include "stdafx.h"

static char *unit1[] = {
"拾",
"佰",
"仟"
};

static char *unit2[] = {
"萬",
"億"
};

static char *digital[] = {
"零", "壹", "貳", "三", "肆", "伍", "陸", "柒", "捌", "玖"
};

//******************************************************
// 功能：將萬以內的數據轉換成字符，字符串與閱讀方面相反
// long level[in]:要轉換的數據
// char *buf[out]:字符輸出
// 備注：內部函數
//******************************************************

static void GetLevelText(long level,char *buf)
{
int digit;
BOOL bPreZero=FALSE;
BOOL bZeroValidate=FALSE;
int i=0;
int unit=-1;
while(level){
digit=level%10;
if(digit)
{
if(bPreZero&&bZeroValidate)
{
strcat(buf,digital[0]);
i+=2;
}
if(unit!=-1)// buf[i++]=unit1[unit];//unit
{
strcat(buf,unit1[unit]);
i+=2;
}
strcat(buf,digital[digit]);
i+=2;
bPreZero=FALSE;
bZeroValidate=TRUE;
}else
{
bPreZero=TRUE;
}
unit++;
level/=10;
}
buf[i]=0;
}

//************************************************************
// 功能：數據轉換成中文字符
// long num[in]:要轉換的數據
// char *buf[out]:字符輸出
// 返回值：TRUE-轉換成功，FALSE-失敗，數據超過處理范圍
//************************************************************

BOOL Num2UpDigit(long num,char *buf)
{
long level1,level2,level3;
char level1buf[17]={0},level2buf[17]={0},level3buf[17]={0};
int p=0;
level1=num%10000;
num/=10000;
level2=num%10000;
num/=10000;
level3=num;
if(num/10000) return FALSE;//超過數據處理范圍

//將數據分成三級
if(level1) GetLevelText(level1,level1buf);
if(level2) GetLevelText(level2,level2buf);
if(level3) GetLevelText(level3,level3buf);

if(level3){
for(int i=strlen(level3buf)-2;i>=0;i-=2)
{
memcpy(buf+p,level3buf+i,2);
p+=2;
}
memcpy(buf+p,unit2[1],2);//級別單位
p+=2;
}
if(level2){
if(level3&&level2/1000==0)//加零
{
memcpy(buf+p,digital[0],2);
p+=2;
}
for(int i=strlen(level2buf)-2;i>=0;i-=2)
{
memcpy(buf+p,level2buf+i,2);
p+=2;
}
memcpy(buf+p,unit2[0],2);//級別單位
p+=2;
}else if(level3&&level1)//加零
{
memcpy(buf+p,digital[0],2);
p+=2;
}
if(level1){
if((level2||level3)&&level1/1000==0&&!(level3&&!level2))//加零
{
memcpy(buf+p,digital[0],2);
p+=2;
}
for(int i=strlen(level1buf)-2;i>=0;i-=2)
{
memcpy(buf+p,level1buf+i,2);
p+=2;
}
}
buf[p]=0;
return TRUE;
}