📄 5483.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>Re: 原因出在 0.693 这个数字</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 原因出在 0.693 这个数字</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:dbms@bigfoot.com">David Wong</a> on September 10, 1998 at 11:34:11:<p>
In Reply to: <a href="5432.html">Re: 原因出在 0.693 这个数字</a> posted by Honey on September 09, 1998 at 18:38:54:<p>
多谢你的帮助。我现在用的方法是 k = int(format(format(0.693 - 0.67, 4) / 0.002 + 0.5, 4)) + 1<p>问题可以暂时解决，但这样一个简单的运算电脑都会有问题，令我怀疑我们的系统中其他地方会不会也有同样的问题呢？就以这个错来说，系统用了几年，而且是运用在大型油站，百密一疏还可以亡羊补牢，但这个错失已令我们信心受损 ...<p>: 以下程式供你参考一下 可以解决这种问题<br>: Dim k As String, F As Variant<br>: k = Str((0.693 - 0.67) / 0.002 + 0.5)<br>: '强制转成字串型态<p>: F = Int(CDbl(k)) + 1<br>: '将字串型态转成数值 再取Int<br>: 'F的值会就是13<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5483-->
</ul><!--end: 5483-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -