vb取整函数