小数四舍五入问题，我想让一个小数向上取整，用于自定义分页控件用，帮我看看。

[lyj670]

scmd = New SqlCommand("select count(*) from " & biao & " where " & bhzd & " is not null " & where, ljsql)
Try
ljsql.Open()
Dim s1 As Integer
s1 = scmd.ExecuteScalar()
zongpage = (s1 / pagesize)
zongpage 是总页数，但是在很多时候少了一页。比如：
分页数为5页数据为7时就少了一页。
好象有这个向上取整的函数，查是我查不到。
谢谢大家帮忙。

[songzx66]

zongpage = (s1 / pagesize)
Dim zongpage1 As Double
zongpage1= s1 / pagesize
if zongpage1>zongpage then
zongpage =zongpage +1
end if

[46539492]

if s1 / pagesize=0 then
zongpage = (s1 / pagesize)
else
zongpage = (s1 / pagesize+1)
end if

[46539492]

if s1 mod pagesize=0 then

[sniper81]

先判断能否整除，不能的话就把商加1就可以了

[combread]

float i = 1.1;
int j;
j = Math.Ceiling(i);