在VBA中如何判断一个数是正整数

相关文章推荐

读研的山楂 · 江苏常州：古运河畔“红色唱段”“传统戏剧”你 ...· 5 月前 ·

腼腆的甘蔗 · 第二集：我，为中美关系而奋斗 (Steph ...· 1 年前 ·

完美的地瓜 · 浅析JDBC的ResultSet接口和使用M ...· 1 年前 ·

英姿勃勃的电梯 · 2024年劳伦斯世界体育奖：德约科维奇、邦马 ...· 1 年前 ·

满身肌肉的风衣 · 宝马2系旅行车新能源(进口)品质怎么样 ...· 2 年前 ·

public function ChargeInt(byval ChargeNumber as String)as boolean
if not isNumberic(ChargeNumber) then
msgbox "请输入整数!"
exit function
end if
if CDBl(ChargeNumber)<0 then
msgbox "数据应为正数!"
exit function
end if
if ChargeNumber like "*.*[1-9]" then
ChargeInt = True
else
ChargeInt = False
end if
end function
你试下

推荐文章

读研的山楂 · 江苏常州：古运河畔“红色唱段”“传统戏剧”你方唱罢我登场_我苏网

5 月前

腼腆的甘蔗 · 第二集：我，为中美关系而奋斗 (Stephen A. Orlins)--国际--人民网

1 年前

完美的地瓜 · 浅析JDBC的ResultSet接口和使用MySQL语句查询数据-PingCAP | 平凯星辰

1 年前

英姿勃勃的电梯 · 2024年劳伦斯世界体育奖：德约科维奇、邦马蒂、拜尔斯领衔获奖名将

1 年前

满身肌肉的风衣 · 宝马2系旅行车新能源(进口)品质怎么样第二页 - 买车网

2 年前