您所在位置：主题：求助,几句Delphi的PCD码转成VB代码,谢谢
hwj5858
[专家分：0] 发布于 2008-07-10 11:12:00
function IntToBCD(Hex:longint):longint;
var b0,b1,b2,b3,b4,b5,b6,b7 : longint;
begin
b7:=(Hex div 10000000);
b6:=(Hex mod 10000000) div 1000000;
b5:=(Hex mod 1000000 ) div 100000;
b4:=(Hex mod 100000 ) div 10000;
b3:=(Hex mod 10000 ) div 1000 ;
b2:=(Hex mod 1000 ) div 100 ;
b1:=(Hex mod 100 ) div 10 ;
b0:=(Hex mod 10 );
Result :=b0+(b1 shl 4)+(b2 shl 8)+(b3 shl 12)
+(b4 shl 16)+(b5 shl 20)+(b6 shl 24)+(b7 shl 28);
end;
var b0,b1,b2,b3,b4,b5,b6,b7 : longint;
begin
b7:=(Hex div 10000000);
b6:=(Hex mod 10000000) div 1000000;
b5:=(Hex mod 1000000 ) div 100000;
b4:=(Hex mod 100000 ) div 10000;
b3:=(Hex mod 10000 ) div 1000 ;
b2:=(Hex mod 1000 ) div 100 ;
b1:=(Hex mod 100 ) div 10 ;
b0:=(Hex mod 10 );
Result :=b0+(b1 shl 4)+(b2 shl 8)+(b3 shl 12)
+(b4 shl 16)+(b5 shl 20)+(b6 shl 24)+(b7 shl 28);
end;
