VB 溢出,错误
如题
m_CardIDTemp.CARDTYPE(5)值为 161
m_CardIDTemp.CARDTYPE(4)值为 87
m_CardIDTemp.CARDTYPE(3)值为 209
m_CardIDTemp.CARDTYPE(2)值为 46
m_CardID.CardID = CLng(m_CardIDTemp.CARDTYPE(5)) * &H1000000 + CLng(m_CardIDTemp.CARDTYPE(4)) * &H10000 + CLng(m_CardIDTemp.CARDTYPE(3)) * &H100 + CLng(m_CardIDTemp.CARDTYPE(2))
运行后提示 实时错误“6”
溢出
此处m_CardID.CardID应为2706886958
[解决办法]
m_CardID.CardID的数据类型换为双精度的试试
[解决办法]
是啊,都改成double类型的
[解决办法]
long就够了
[解决办法]
Long型最大是2147483647,实在不行拆成两个Long型