====== [VBA] ceil() ====== Liefert die nächste ganze Zahl, die größer oder gleich dem Inputparameter ist. {{:vba:functions:udf_ceil.bas|Download udf_ceil.bas}} ===== Definition ===== double = ceil(zahl) Public Function ceil(ByVal iValue As Variant) As Double ***iValue** Wert, der aufgerundet werden soll ===== Beispiele ===== ?ceil(17.512) 18 ?ceil(17.009) 18 ===== Code ===== '------------------------------------------------------------------------------- 'File : udf_ceil.bas ' Copyright mpl by ERB software ' All rights reserved ' http://wiki.yaslaw.info/dokuwiki/doku.php/vba/functions/concat 'Environment : VBA 2010 + 'Version : 1.0.0 'Name : ceil 'Author : Stefan Erb (ERS) 'History : 16.06.2014 - ERS - Creation '------------------------------------------------------------------------------- Option Explicit '/** ' * Rundet eine Zahl auf. Das gegenteil von fix() ' * ' * double = ceil(zahl) ' * ' * @param Variant ' * @return Double ' */ Public Function ceil(ByVal iValue As Variant) As Double ceil = Fix(iValue + 0.9999999999) End Function