📄 12880.html
字号:
<html>
<head>
<title>写个四舍五入的 Function 吧</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>写个四舍五入的 Function 吧</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by SuBird on May 13, 1999 at 10:11:56:<p>
In Reply to: <a href="12824.html">Re: 照下去;看看前人的讨论后再问嘛!(顺便提醒纪兄一下)</a> posted by 安宝 on May 11, 1999 at 13:34:45:<p>
Re:<p>Public Function Round(num As Variant, n As Long) As String<br>Round = Format(num, IIf(n > 0, "0." & String(n, "0"), "0"))<br>End Function<p>Private Sub Command1_Click()<br> MsgBox Round(34.35629645, 4)<br>End Sub<p>传回34.3563<p>参数说明：<br>num：欲四舍五入的数值。因为欲四舍五入的数值可能是 Double 或 Single 或是其它资料型态，所以这里把 num 宣告成 Variant；如果把 num 宣告成Double，而欲四舍五入的数值是 Single 型态，就会出现资料型态不符合的错误；但是把 num 宣告成 Variant 则可避免这种错误，或是使用传值呼叫(ByVal) 也可避免这种错误。<br>n：取到小数点以下第 n 位。<br>Round 函数传回的是一个字串资料。
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 12880-->
<!--top: 13113--><li><a href="13113.html">这个程式好像在哪见过ㄝ</a> <b>Tom</b> <i>01:49:24 5/19/99</i>
(<!--responses: 13113-->1)
<ul><!--insert: 13113-->
<!--top: 13176--><li><a href="13176.html">Sorry! </a> <b>SuBird</b> <i>16:19:37 5/20/99</i>
(<!--responses: 13176-->0)
<ul><!--insert: 13176-->
</ul><!--end: 13176-->
</ul><!--end: 13113-->
</ul><!--end: 12880-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -