自用BCD转HEX HEX转BCD源码分享，造福同行

继世传闻

于 2018-08-09 14:41:32 发布

阅读量2k

点赞数

分类专栏： keil 文章标签： BCD HEX X

本文链接：https://blog.youkuaiyun.com/qq_20658515/article/details/81536404

版权

keil 专栏收录该内容

2 篇文章

订阅专栏

/********** BCD to HEX **********/
//数值范围:0~9999
u16 BCD2HEX(u16 BCDdata)
{
  u16 temp;
  temp = (((BCDdata>>12) & 0x000f) * 1000)
       + (((BCDdata>>8) & 0x000f) * 100)
       + (((BCDdata>>4) & 0x000f) * 10)
       + (BCDdata & 0x000f);
  return temp;
}

/********** HEX to BCD **********/
//数值范围:0~9999
u16 HEX2BCD(u16 HEXdata)
{
  u16 BCDdata;
  u16 temp;
  temp = HEXdata%10000;
  BCDdata = (temp/1000) << 12;
  BCDdata = BCDdata | ((temp/100) << 8);
  BCDdata = BCDdata | ((temp/10) << 4);
  BCDdata = BCDdata | temp%10;
  return BCDdata;
}