Int(x) = x And Int(y) = y And x * y < 0
代码已在XP SP3+VB6.0 SP6环境下测试通过.
春风学园 计算机研究社的小柊很高兴为您解答.