function isInteger(para)
on error resume next
dim str
dim li
if isNUll(para) then
isInteger=false
exit function
End if
str=cstr(para)
if trim(str)="" then
isInteger=false
exit function
End if
l=len(str)
for i= to l
if mid(stri)>"" or mid(stri)<"" then
isInteger=false
exit function
End if
next
isInteger=true
if errnumber<> then errclear
End function
