VB6 Store Десятичное число

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

Используйте тип Double и смените оператор деления на косую черту.

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

ReportPercentage = (ReportRecordNum * 100/FullLoopNum) 

Answer 2

Вы используете только целые числа, которые не являются числами с плавающей точкой (целые). Вам понадобится комбинация типа данных Variant и функции CDec. Что-то вроде этого:

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

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

Я не проверял, но это должно дать вам представление о том, как действовать, используя CDec. В качестве альтернативы вы можете использовать тип данных .