7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
imur02 2003-12-08
- 打赏
- 举报
学习
sword281 2003-12-08
- 打赏
- 举报
int和fix
int和fix 對於正數年來說都是保留數的整數部分eg. int(8.3)=fix(8.3)=8
對於負數年來說fix取它的大於它的最小整數,而int取小於它的最大整數
eg. int(-4.5)=-5 而fix(-4.5)=-4
Function upint(byval value as single) as long
select case sgn(value)
case 1 upint=int(value)+1
case 0 1
case -1 upint=fix(value)
endselect
endfunction
Function downint(byval value as single) as long
select case sgn(value)
case 1 upint=int(value)
case 0 -1
case -1 upint=int(value)
endselect
endfunction
int和fix 對於正數年來說都是保留數的整數部分eg. int(8.3)=fix(8.3)=8
對於負數年來說fix取它的大於它的最小整數,而int取小於它的最大整數
eg. int(-4.5)=-5 而fix(-4.5)=-4
Function upint(byval value as single) as long
select case sgn(value)
case 1 upint=int(value)+1
case 0 1
case -1 upint=fix(value)
endselect
endfunction
Function downint(byval value as single) as long
select case sgn(value)
case 1 upint=int(value)
case 0 -1
case -1 upint=int(value)
endselect
endfunction
boydgmx 2003-12-08
- 打赏
- 举报
a=CInt(Format(b,"0"))
a=CInt(Format(b,"0"))+1
嘿，还蛮好用的。。
a=CInt(Format(b,"0"))+1
嘿，还蛮好用的。。
forever_chang 2003-12-08
- 打赏
- 举报
可以自己写
a=CInt(Format(b,"0"))
a=CInt(Format(b,"0"))+1
a=CInt(Format(b,"0"))
a=CInt(Format(b,"0"))+1
