我进行小型计算,需要将结果四舍五入到最大的一个季度 例如:
如果结果 1.12是1.25 1.32是1.50 1.52是1.75 1.80是2.00
答案 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)
检查此示例。您可以使用以下内容:
答案 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