1

小数点以下 2 桁までしか必要ありません。

Dim v1、v2、v3、v4、v5、tv、rp1、rp2、rp3、rp4、rp5 As Double

Dim Per1、Per2、Per3、Per4、per5 As Double

    Per1 = v1 / tv * 100

    Per2 = v2 / tv * 100

    Per3 = v3 / tv * 100

    Per4 = v4 / tv * 100

    per5 = v5 / tv * 100

per1=76.34393939202 のような値が得られます

しかし、私が使用する場合: Dim Per1, Per2, Per3, Per4, per5 As ULong それは私に 76 を与えます

私はそれが私に76.34のような値を与えることを望んでいますが、どうすればそれを行うことができますか? 私を助けてください。

4

2 に答える 2

4

Double を ULong に変換すると、すべての小数点以下の桁数が削除されます。画面に出力するときに問題が発生する場合は、単純に文字列フォーマッタを使用できます。

Format(Per1, "0.00")

ドキュメントはここにありますhttp://msdn.microsoft.com/en-us/library/microsoft.visualbasic.strings.format.aspx

数値を丸めたい場合は、使用できます

Math.Round(Per1, 2)

ラウンドはここに文書化されていますhttp://msdn.microsoft.com/en-us/library/75ks3aby.aspx

お役に立てれば

于 2013-03-28T19:58:18.097 に答える
0

c# では次のようになります

 string.Format("{0:0.00}", (double)Convert.ToInt32(tv) * 100 / Convert.ToInt32(v1))
于 2013-03-28T19:56:25.400 に答える