Yaslaw.Info

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== [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 =====
<code>double = ceil(zahl)</code>
<code vb>Public Function ceil(ByVal iValue As Variant) As Double</code>

  ***iValue** Wert, der aufgerundet werden soll

===== Beispiele =====
<code vb>?ceil(17.512)
 18 

?ceil(17.009)
 18 </code>

===== Code =====
<code vb udf_ceil>'-------------------------------------------------------------------------------
'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</code>

Yaslaw.Info

User Tools

Site Tools

Page Tools