vb6 - VB6 10 進数を格納する

Question

関数で計算してパーセンテージを計算しようとしています。ただし、パーセンテージ変数は 0 になります。何が間違っていますか?

Public FullLoopNum as Integer
Public ReportPercentage As Integer
Public ReportRecordNum As Integer

Public Function WebOutput

ReportRecordNum = 1
FullLoopNum = 4

ReportPercentage = (ReportRecordNum \ FullLoopNum)
ReportPercentage = ReportPercentage * 100



End Function

Answer 1

非浮動小数点数 (整数) である整数のみを使用しています。Variantデータ型とCDec関数の組み合わせが必要になります。このようなもの：

Public FullLoopNum as Variant
Public ReportPercentage As Variant
Public ReportRecordNum As Variant

ReportPercentage = CDec(ReportRecordNum / FullLoopNum)
ReportPercentage = CDec(ReportPercentage * 100)

私はこれをテストしていませんが、 の使用方法についてのアイデアが得られるはずですCDec。Currencyまたは、データ型を使用することもできます。