Access曏上取整的類似Excel的Ceiling函數

2019-08-06 21:25:00

zstmtony

原創

4361

在Excel中有自帶的Ceiling函數可實現曏上取整，但Access,沒有，需要自己寫一下

以下有2箇函數的寫法，可蔘考：

Public Function Ceiling(ByVal X As Double, Optional ByVal Factor As Double = 1) As Double
' X is the value you want to round
' Factor is the optional multiple to which you want to round, defaulting to 1 （默認值爲0）
Ceiling = (Int(X / Factor) - (X / Factor - Int(X / Factor) > 0)) * Factor
End Function

Public Function Ceiling(RoundValue As Currency) As Currency
    Dim TheValue As Currency
    TheValue = RoundValue
    Select Case TheValue - Int(TheValue)
        Case Is <= 0.25
            Ceiling = Int(TheValue)
        Case Is >= 0.5
            Ceiling = Int(TheValue) + 1
        Case Is >= 0.26
            Ceiling = Int(TheValue) + 0.5
    End Select
End Function

Access數據庫自身

Access數據錶技巧

Access查詢技巧

Access窗體控件

Access報錶圖錶

Access VBA函數模塊

Access Dao/Ado/鏈接錶

Access Activex第三方控件

Access ADP Sql Server等

Access 行業應用開髮

文章分類

聯繫我們

聯繫人：	王先生
Email：	18449932@qq.com
QQ：	18449932
微博：	officecn01