出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
無題 　 かすみさん [2002/02/27 19:49:48] [1761]
　 ↑小数点以下を四捨五入したい 　 かすみさん [2002/02/27 19:50:55] [1762]
　 　 四捨五入関数 　 北岳さん [2002/02/27 23:24:39] [1764]
　 　 　 ありがとうございます 　 かすみさん [2002/02/28 10:16:27] [1770]
　 　 　 　 round 関数 　 北岳さん [2002/03/01 11:58:12] [1788]
　 　 　 　 　 Re:round 関数 　 喜平さん [2002/03/07 16:59:42] [1826]
[1761] 無題
投稿者：かすみさん 2002/02/27 19:49:48
こんばんわ。
四捨五入について教えて下さい。
小数点以下第1位を四捨五入し、整数にしたいのですが、
方法がまったくわからず困っています。
関数等はあるのでしょうか。
[1762] ↑小数点以下を四捨五入したい
投稿者：かすみさん 2002/02/27 19:50:55
すみません。
題名入れるのわすれました。
[1764] 四捨五入関数
投稿者：北岳さん 2002/02/27 23:24:39
呼び出し方：ret=round(X, Y)
　X:計算対象実数
　Y:小数点以下桁数（1、2、-1などを入れてみて下さい）
formの中から自分自身を呼び出すaspで例示。
　
-----round.asp --------
<%
Function round(X, Y)
z = X * 10 ^ Y
a = Int(X * 10 ^ Y)
If z - a > 0.5 Then a = a + 1
round = a / 10 ^ Y
End Function
%>
<html><body bgcolor="beige">
<h2>四捨五入の関数</h2>
<p>　　［例］
<form name=frm1" action="round.asp" method="post">
<p>■計算対象実数： 　<input type="text" name="txt1" size=30 value="<%= request.form("txt1") %>">
<p>■小数点以下桁数： <input type="text" name="txt2" size=5 value="<%= request.form("txt2") %>">　<input type="submit" value="計算">
<br>
<p>◆結　果：　<%= round(Request.Form("txt1"),Request.Form("txt2")) %>
</form>
</center>
</body></html>
[1770] ありがとうございます
投稿者：かすみさん 2002/02/28 10:16:27
北岳さん、ありがとうございます。
さっそく試してみました。
できました。感動です!!

> 呼び出し方：ret=round(X, Y)
> 　X:計算対象実数
> 　Y:小数点以下桁数（1、2、-1などを入れてみて下さい）
> formの中から自分自身を呼び出すaspで例示。
> 　
> -----round.asp --------
> <%
> Function round(X, Y)
> z = X * 10 ^ Y
> a = Int(X * 10 ^ Y)
> If z - a > 0.5 Then a = a + 1
> round = a / 10 ^ Y
> End Function
> %>
> <html><body bgcolor="beige">
> <h2>四捨五入の関数</h2>
> <p>　　［例］
> <form name=frm1" action="round.asp" method="post">
> <p>■計算対象実数： 　<input type="text" name="txt1" size=30 value="<%= request.form("txt1") %>">
> <p>■小数点以下桁数： <input type="text" name="txt2" size=5 value="<%= request.form("txt2") %>">　<input type="submit" value="計算">
> <br>
> <p>◆結　果：　<%= round(Request.Form("txt1"),Request.Form("txt2")) %>
> </form>
> </center>
> </body></html>
[1788] round 関数
投稿者：北岳さん 2002/03/01 11:58:12
サンプルは、VB4で自作して使っていたものを、今回 VBSにそのまま転用したものです。
あれ？ よく見たら、VBScript にも round 関数がありますね。
単に
<%
response.write round(123.45678,3)
%>
で123.457　が得られました。
失礼、わざわざ function で妙な関数を呼び出す必要はありませんでした。

[1826] Re:round 関数
投稿者：喜平さん 2002/03/07 16:59:42
> サンプルは、VB4で自作して使っていたものを、今回 VBSにそのまま転用したものです。
　その関数は、Round(8.5)=8
となりますよ。

> あれ？ よく見たら、VBScript にも round 関数がありますね。
> 単に
> <%
> response.write round(123.45678,3)
> %>
> で123.457　が得られました。
> 失礼、わざわざ function で妙な関数を呼び出す必要はありませんでした。
　そんなことはありません。
vbs のround も・・・・
round(8.5)=8
　となりますので。

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ