将数字汇总到VB的最大值

时间:2018-01-22 10:37:13

标签: vba vb6

我进行小型计算,需要将结果四舍五入到最大的一个季度 例如:

如果结果 1.12是1.25 1.32是1.50 1.52是1.75 1.80是2.00

3 个答案:

答案 0 :(得分:1)

你可以在这里找到一个好的答案(由sehe发布):

VBA: Round up to the nearest multiple of a number

根据您的需要,只需将第二个参数的类型更改为double:

this.dialogRef.beforeClose().subscribe((result) => {
if (result) {
  // some code
  this.fileInput.nativeElement.click();
}
this.dialogRef = null;
});}

答案 1 :(得分:0)

检查此示例。您可以使用以下内容:

Round a decimal to the nearest quarter in C#

答案 2 :(得分:0)

向第一季度增加0.24,然后向下舍入到四分之一

向下舍入到四分之一,首先乘以4,将数字向下舍入,然后除以4

'1 form with
'  1 textbox       : Name=Text1
'  1 commandbutton : Name=Command1
Option Explicit

Private Sub Command1_Click()
  Dim sngVal As Single
  sngVal = Val(Text1.Text)
  sngVal = sngVal + 0.24
  sngVal = sngVal * 4
  sngVal = Fix(sngVal)
  sngVal = sngVal / 4
  Caption = CStr(sngVal)
End Sub