Private Sub Command1_Click()
站在用户的角度思考问题，与客户深入沟通，找到泸县网站设计与泸县网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都网站设计、成都网站建设、企业官网、英文网站、手机端网站、网站推广、主机域名、网络空间、企业邮箱。业务覆盖泸县地区。
If Text1.Text 0 Then Print "负数" Else If Text1.Text = 0 Then Print "0" Else: Print "正数"
End Sub
也不用创建啊,有个函数叫sign
用法:
select sign(数值) from dual
大于0返回1,等于0返回0,小于0返回-1
你说的那个
select * from count where sign(num1)=1
得出来的就是为正数的了
---补充--
create or replace FUNCTION NUM(v_num number)
return int is
Result int;
begin
if(v_num 0) then
Result := -1;
end if;
if(v_num = 0) then
Result := 0;
end if;
if(v_num 0) then
Result := 1;
end if;
return(Result);
end num;
用法与sign一致
如select num(100) from dual;
if val(inputbox()) 0 then msgbox "正数"else msgbox "负数"end ifif val(inputbox()) mod 2= 0 then msgbox "双数"else msgbox "单数"end ifif int(val(inputbox()) = val(inputbox() then msgbox "整数"else msgbox "小数"end if
意思是：Number(p)是声明一个整数，最多有10位有效数字，1位小数。
number（4,3）是表示这个数一共有4位是有效位,后面的3表示有3个是小数也就是这个数只能是1.234,这样格式的最大只能是9.999。
number（3,4）表示这个数有效位数是3位但是有四位小数也就是只能是这个格式0.0123最大只能是0.0999。
扩展资料
Number类型的用法
p(precision)为精度，精度最大值为38；
s(scale)表示小数点右边的数字个数，scale的取值范围为-84到127；
因此，Number(p)即是声明一个整数，相当于Number(p,0)，即等同于int型；
例子：
Number(8,1)存储小数位为1位，总长度为8的浮点数，如果小数位数不足，则用0补全；
Number(8)存储总长度为8的整数。
select * from A where to_char(日期字段,'yyyymm')=to_char(add_months(sysdate,-1),'yyyymm')
这样试验一下，表名和字段名你替换一下，也就是把A和日期字段这俩地方换一下
在Oracle中Number类型可以用来存储0，正负定点或者浮点数，可表示的数据范围在
1.0 * 10(-130) —— 9.9...9 * 10(125) {38个9后边带88个0}
的数字，当Oracle中的数学表达式的值=1.0*10(126)时，Oracle就会报错。
Number的数据声明如下：
表示 作用 说明
Number(p, s) 声明一个定点数 p(precision)为精度，s(scale)表示小数点右边的数字个数，精度最大值为38，scale的取值范围为-84到127
Number(p) 声明一个整数 相当于Number(p, 0)
Number 声明一个浮点数 其精度为38，要注意的是scale的值没有应用，也就是说scale的指不能简单的理解为0，或者其他的数。
定点数的精度(p)和刻度(s)遵循以下规则：
当一个数的整数部分的长度 p-s 时，Oracle就会报错
当一个数的小数部分的长度 s 时，Oracle就会舍入。
当s(scale)为负数时，Oracle就对小数点左边的s个数字进行舍入。
当s p 时, p表示小数点后第s位向左最多可以有多少位数字，如果大于p则Oracle报错，小数点后s位向右的数字被舍入
