BCD码是指每位十进制数用4位二进制数据编码的方法,
如:
0--->0000
10--->0001 0000(BCD码) 而二进制是0000 1010
现求一十进制转换为BCD码的函数,谢谢!
如:
0--->0000
10--->0001 0000(BCD码) 而二进制是0000 1010
现求一十进制转换为BCD码的函数,谢谢!
解决方案 »
- 谁能帮我把delphi转成 bcb
- 【求教】使用Delphi编写多文档程序时如何屏蔽子窗口最大化到主窗口后右上角的“向下还原”按钮而保留“关闭”按钮
- d7开发soap/service com+程序时,运行客户端出现一个错误
- 说个情 hehe^^ 支持一下menggirl做版主 -- 95927
- delphi导出word问题,在线等,解决马上给分。
- win32页下的PageScroller 是如何使用,动态时呢?
- xpmenu的控件?
- 高分求助
- 100分,求助各位高手,分析一下下边的程序;up仍然有分,谢谢了
- 怎样过滤表中记录?
- 在线升级的解决方案
- 送100分:) 请教Cell控件的键盘响应方法
再将十进制数转为字符,取出每一位,再查询码表不就行了
同意这个做法。哈哈。
{
int bcdval=0;
if( dnum>9999 || dnum < 0 ) return -1;
bcdval = ( ( (dnum/1000)*16+(dnum%1000)/100)*16+(dnum%100)/10 )*16 +dnum%10;
return bcdval;
}