Function inJ(fildName As String)  '不足一元按一元计算   

inJ = IIf(Int(fildName) = fildName, fildName, Int(fildName) + 1)
End Function