Access中的天花板功能

Ron*_*rby 3 math excel ms-access vba ms-office

搜索过这个,没有运气.

有人能告诉我如何在MS访问中创建一个与excel中的天花板功能相同的天花板功能?

小智 13

由于Int()似乎像Floor()一样工作,你可以得到这样的Ceiling:-Int(-x)

  • 这是一个如此美丽、简单的解决方案。我想我会像 Arthur 那样创建一个函数,以便在代码中清楚地说明发生了什么。 (2认同)

Art*_*kel 8

此答案使用VBA for Access,源自http://www.tek-tips.com/faqs.cfm?fid=5031:

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
    Ceiling = (Int(X / Factor) - (X / Factor - Int(X / Factor) > 0)) * Factor
End Function
Run Code Online (Sandbox Code Playgroud)

请注意,对于负X,此答案在数学上是正确的.有关背景信息,请参阅http://en.wikipedia.org/wiki/Floor_and_ceiling_functions#Spreadsheet_software.


mar*_*arg 0

您可以添加对 Microsoft Excel 对象库的引用并使用Excel.WorksheetFunction.Ceiling