%
function Ceil(value)
If isNumeric(value) = True Then
Ceil = -(Int(-(value)))
Else
Ceil = value
End If
end Function
Response.Write Ceil(1.0) ' 1
Response.write "
"
Response.Write Ceil(1.1) ' 2
Response.write "
"
Response.Write Ceil(-2.9) ' -3
Response.write "
"
Response.Write Ceil("GoCoder") 'GoCoder
%>