# Re: 原因出在 0.693 这个数字

Posted by David Wong on September 10, 1998 at 11:34:11:

In Reply to: Re: 原因出在 0.693 这个数字 posted by Honey on September 09, 1998 at 18:38:54:

多谢你的帮助。我现在用的方法是 k = int(format(format(0.693 - 0.67, 4) / 0.002 + 0.5, 4)) + 1

问题可以暂时解决，但这样一个简单的运算电脑都会有问题，令我怀疑我们的系统中其他地方会不会也有同样的问题呢？就以这个错来说，系统用了几年，而且是运用在大型油站，百密一疏还可以亡羊补牢，但这个错失已令我们信心受损 ...

: 以下程式供你参考一下 可以解决这种问题
: Dim k As String, F As Variant
: k = Str((0.693 - 0.67) / 0.002 + 0.5)
: '强制转成字串型态

: F = Int(CDbl(k)) + 1
: '将字串型态转成数值 再取Int
: 'F的值会就是13

Follow Ups: