hex-bcd.c

bcd码转换

 //4位2进制码转5位BCD码子函数       不返回bcd码值型
  void  hbzh (ulong k)  // 4-2转换
{  
  data   ulong   number7,number6,number5,number4,number3,number2,number1,number0;
   number7= k/10000000;
   number6=(k-=number7*10000000)/1000000;
   number5=(k-=number6*1000000)/100000;
   number4=(k-=number5*100000)/10000;
   number3=(k-=number4*10000)/1000;
   number2=(k-=number3*1000)/100;
   number1=(k-=number2*100)/10;
   number0=k-=number1*10;
   
}





//4位2进制码转7位BCD码子函数        返回bcd码值型
ulong  hbzh (ulong k)  // 4-2转换
{ data   ulong s,j,a3=0;
  data   uchar o=0;
  if(k>10000000) {a3=a3|1;}
  j=k%10000000;
  if(j>1000000)  {s=j%1000000;
                 j=j/1000000;
                 a3=a3<<4|j;}
  else {a3=a3<<4,s=j%1000000;}
  if(s>100000)  {j=s%100000;
                 s=s/100000;
                 a3=a3<<4|s;}
  else {a3=a3<<4,j=s%100000;}
  if(j>10000) {s=j%10000;
               j=j/10000;
               a3=a3<<4|j;}
  else {a3=a3<<4,s=j%10000;}
  if(s>1000) {j=s%1000;
              s=s/1000;
              a3=a3<<4|s;}
  else {a3=a3<<4,j=s%1000;}
  if(j>100)  {s=j%100;
              j=j/100;
              a3=a3<<4|j;}
  else {a3=a3<<4,s=j%100;}

  if(s>10)  {j=s%10;
             s=s/10;
             a3=a3<<4|s;}
  else {a3=a3<<4,j=s%10;}
  a3=a3<<4|j;
  return (a3);
}